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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPMV20

Package: Registration

Routine: DGPMV20


Information

DGPMV20 ;ALB/MIR - DISPLAY DATES FOR SELECTION ; 27 APR 90

Source Information

Source file <DGPMV20.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^%ZIS  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Registration 2 DGPMEX  DGPMV2  

Entry Points

Name Comments DBIA/ICR reference
WR
W1
W2
W3
W4
W5
W6
ENEX ;CALLED FROM DGPMEX FOR EXTENDED BED CONTROL/EXTENDED PATIENT INQ
Q
WEX

External References

Name Field # of Occurrence
^%ZIS ENEX+1
^DIR WEX+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$J(I,2),"> ",Y
  • Line Location: WR+0
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,17),1:"")
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: " [",$E($P(^(0),"^",1),1,10),"]"
  • Line Location: W1+0
Function Call: WRITE
  • Prompt: !?23,"FROM: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$P(^(0),"^",1),1:"")
  • Line Location: W1+1
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W2+1
Function Call: WRITE
  • Prompt: ?50,"RETURN: "
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: Y
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,17),1:"")
  • Line Location: W2+3
Function Call: WRITE
  • Prompt: " [",$E($P(^(0),"^",1),1,10),"]"
  • Line Location: W2+3
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W3+0
Function Call: WRITE
  • Prompt: ?55,"TO: ",$E($P(X,"^",1),1,20)
  • Line Location: W4+2
Function Call: WRITE
  • Prompt: !?7,"REASON: ",$S($D(^DG(406.41,+DGPMLD,0)):$E($P(^(0),"^",1),1,20),1:""),?35,"COMMENTS: ",$P(DGPMLD,"^",2)
  • Line Location: W4+3
Function Call: WRITE
  • Prompt: "DISPOSITION: ",$S($P(DGPMLD,"^",3)="a":"ADMITTED",$P(DGPMLD,"^",3)="d":"DISMISSED",1:"")
  • Line Location: W5+0
Function Call: WRITE
  • Prompt: "SPECIALTY: ",$S($D(^DIC(45.7,+$P(DGX,"^",9),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W6+0
Function Call: WRITE
  • Prompt: "PROVIDER : ",$S($D(^VA(200,+$P(DGX,"^",8),0)):$E($P(^(0),"^",1),1,15),1:"")
  • Line Location: W6+1
Function Call: WRITE
  • Prompt: "ATTENDING: ",$S($D(^VA(200,+$P(DGX,"^",19),0)):$E($P(^(0),"^",1),1,15),1:"")
  • Line Location: W6+2
Function Call: WRITE
  • Prompt: "DX: ",DGDX
  • Line Location: W6+3
Function Call: WRITE
  • Prompt: @IOF,!!,"ADMISSION:"
  • Line Location: ENEX+1
Function Call: WRITE
  • Prompt: !!,"DISCHARGE:"
  • Line Location: ENEX+6
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: WEX+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WEX+1
Routine Call
  • %ZIS
  • Line Location:
    • ENEX+1
Routine Call
  • DIR
  • Line Location:
    • WEX+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" WR, W2+2, WEX
^DG(405.1 - [#405.1] WR, WEX
^DG(405.4 - [#405.4] W1, W2+3
^DG(406.41 - [#406.41] W4+3
^DGPM - [#405] WR+1, W6+3, ENEX+2, ENEX+4, ENEX+6
^DGPM("APCA" ENEX+2
^DGPM("ATS" ENEX+4
^DIC(4 - [#4] W1+1, W2+1, W3, W4+1
^DIC(42 - [#42] W1, W2+3, W4
^DIC(45.7 - [#45.7] W6
^UTILITY("DGPMVN" DGPMV20+2, WR
^UTILITY($J ENEX+4!*, ENEX+5
^VA(200 - [#200] W6+1, W6+2

Label References

Name Line Occurrences
@( WR+2, WEX+1
Q ENEX+3
WEX ENEX+1, ENEX+2, ENEX+5, ENEX+6
WR DGPMV20+2

Naked Globals

Name Field # of Occurrence
^( WR, ENEX+2, ENEX+4, ENEX+5
^("LD" WR+1
^(0 WR, W1, W1+1, W2+1, W2+3, W3, W4, W4+1, W4+3, W6
, W6+1, W6+2, W6+3, ENEX+2, ENEX+4, ENEX+6, WEX

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN ENEX+2, ENEX+4
DGDIS Q!
DGDX W6+3*, W6+4!
>> DGFL ENEX+1*, ENEX+2, ENEX+3, ENEX+5, ENEX+6, WEX+1*
DGIFN WR*, WR+1, WR+2!, W6+3, ENEX+4*, ENEX+5*, Q!
>> DGONE WR, W5, W6, W6+1, W6+2, W6+3, ENEX+1*, ENEX+3*, ENEX+6*, WEX
>> DGPMAN ENEX+1, ENEX+2, ENEX+6
>> DGPMCA ENEX+2, ENEX+4
DGPMLD WR+1*, WR+2!, W4+3, W5
>> DGPMT WR+1, WR+2, ENEX+1*, ENEX+2*, ENEX+4*, ENEX+6*, WEX+1
DGX WR*, WR+2!, W1, W1+1, W2, W2+1, W2+2, W2+3, W3, W4
, W4+1, W6, W6+1, W6+2, ENEX+1*, ENEX+2*, ENEX+5*, ENEX+6*, Q!, WEX
DIR Q!
DIR(0 WEX+1*
DTOUT Q!, WEX+1
DUOUT Q!
I DGPMV20+2*, WR, ENEX+2*, ENEX+4*, ENEX+5*, Q!
IOF ENEX+1, WEX+1
>> IOP ENEX+1*
IOSL WEX+1
J ENEX+4*, Q!
>> X W4*, W4+1*, W4+2
>> Y WR*, W2+2*, WEX*, WEX+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All