Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGPMEX

Package: Registration

Routine: DGPMEX


Information

DGPMEX ;ALB/MIR - EXTENDED BED CONTROL ; 02 APR 90 @8:00

Source Information

Source file <DGPMEX.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Registration 9 IN^DGHELP  (CA,UC)^DGPMV  Q^DGPMV1  Q^DGPMV2  ENEX^DGPMV20  PTF^DGPMV21  PTF^DGPMV22  (DT,Q)^DGPMV3  
LO^DGUTL  
VA FileMan 1 ^DIC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DG BED CONTROL EXTENDED  DG INPATIENT INQUIRY EXTENDED  

Entry Points

Name Comments DBIA/ICR reference
Q1
BREAK
EN
Q
EN1
W1
ASK

External References

Name Field # of Occurrence
IN^DGHELP ASK+2
CA^DGPMV ASK+4
UC^DGPMV ASK+9
Q^DGPMV1 Q1
Q^DGPMV2 Q1
ENEX^DGPMV20 EN1+5
PTF^DGPMV21 EN1+4
PTF^DGPMV22 ASK+8
DT^DGPMV3 ASK+9
Q^DGPMV3 Q1
LO^DGUTL EN+1
^DIC EN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No admissions on file",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"CHOOSE FROM:"
  • Line Location: EN1+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !?5,"Enter:",!?10,"1 or A to edit admission",!?10,"2 or T to enter/edit a transfer",!?10,"3 or D to enter/edit the discharge"
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !,DGPME,!
  • Line Location: ASK+8
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: !,"CHOOSE 1-",DGI
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: !,"<RETURN> TO CONTINUE",!,"OR '^' TO QUIT"
  • Condition for execution: $D(^UTILITY("DGPMVN",$J,DGI+1))
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: ": "
  • Line Location: BREAK+0
Function Call: WRITE
  • Prompt: !!,*7,"INVALID RESPONSE",!
  • Line Location: BREAK+3
Function Call: WRITE
  • Prompt: ?55,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W1+1
Function Call: WRITE
  • Prompt: !?23,"FROM: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$P(^(0),"^",1),1:"")
  • Line Location: W1+1
Routine Call
  • DIC
  • Line Location:
    • EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" W1
^DG(405.1 - [#405.1] W1
^DGPM - [#405] EN1, EN1+3
^DGPM("APTT1" EN+2
^DGPM("ATID1" EN1
^DGPM("C" ASK+6, ASK+10
^DIC(4 - [#4] W1+1
^DIC(42 - [#42] W1+1
^DISV( EN1+3*, BREAK+2
^UTILITY("DGPMVD" EN!, EN1*, ASK!
^UTILITY("DGPMVDA" EN1*, BREAK+2
^UTILITY("DGPMVN" EN!, EN1*, EN1+1, EN1+3, ASK!, BREAK, BREAK+3

Label References

Name Line Occurrences
ASK ASK+3
BREAK EN1+1, EN1+2, BREAK+3
EN EN+2, EN1+2, EN1+4, EN1+5, ASK+1, ASK+11
Q EN+1, EN1+6
Q1 EN
W1 EN1+1

Naked Globals

Name Field # of Occurrence
^( EN1, EN1+1, BREAK+2
^(0 EN1, EN1+3, W1, W1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % ASK+3
>> C EN1*
>> D EN1*
DFN EN+1*, EN+2, EN1, EN1+3, ASK+6, ASK+8, ASK+10, Q1!, BREAK+2
DGER EN1+1*, EN1+2, Q1!, BREAK*
DGFL EN1+6, Q1!
DGI EN1+1*, EN1+2, Q1!, BREAK
>> DGOK EN1+1*, EN1+3, BREAK+2*, BREAK+4*
>> DGPM1X ASK+9*
DGPMAN EN1+3*, ASK+9, Q1!
DGPMCA EN1+3*, ASK+8, ASK+9, Q1!
DGPMDA ASK+9*, Q1!
DGPME EN1+4!, EN1+5!, ASK+8
DGPMEX DGPMEX+3*, EN1+4, EN1+5, Q!
>> DGPMHY ASK+9*
DGPMN ASK+9*, Q1!
DGPMOUT ASK+9*, Q1!
DGPMT ASK+4*, ASK+5, Q1!
DGPMUC Q1!
>> DGPMY ASK+9*
DGX EN1+1*, Q1!, BREAK+2*, W1, W1+1
DIC EN+1*, Q1!
DIC(0 EN+1*
DTIME ASK+1, BREAK
DUZ EN1+3, BREAK+2
>> I EN1*, EN1+1*, W1
>> N EN1*
>> X ASK+1*, ASK+4, BREAK*, BREAK+1, BREAK+2, BREAK+3, BREAK+4
>> Y EN+1, W1*
>> Z ASK+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All