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: DGPMV20

Package: Registration

Routine: DGPMV20


Information

DGPMV20 ;ALB/MIR - DISPLAY DATES FOR SELECTION ; [ 03/11/2004 4:12 PM ]

Source Information

Source file <DGPMV20.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 $$GET1^DIQ  ^DIR  
IHS Changes To ADT 1 EN^BDGEPI  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
IHS Changes To ADT 2 ADGPCAC0  BDGPCCEL  
Registration 2 DGPMEX  DGPMV2  

Entry Points

Name Comments DBIA/ICR reference
ENEX ;CALLED FROM DGPMEX FOR EXTENDED BED CONTROL/EXTENDED PATIENT INQ
Q
W6
W5
W4
W3 ;I $P(DGX,"^",18)=10 W ?50,"TO: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$E($P(^(0),"^",1),1,18),1:"")
WR
W1
WEX
W2

External References

Name Field # of Occurrence
^%ZIS ENEX+2
EN^BDGEPI ENEX+1
$$GET1^DIQ W1+3, W2+3, W3+1, W4+3, W6+4
^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+2
Function Call: WRITE
  • Prompt: !?23,"FROM: ",$$GET1^DIQ(405,+$P(DGPMAN,"^",17),.05)
  • Line Location: W1+3
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(4,+$P(DGX,"^",5),0)):$E($P(^(0),"^",1),1,18),1:"")
  • Line Location: W2+2
Function Call: WRITE
  • Prompt: ?50,"TO: ",$$GET1^DIQ(405,+$P(DGPMAN,"^",17),.05)
  • Line Location: W2+3
Function Call: WRITE
  • Prompt: ?50,"RETURN: "
  • Line Location: W2+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: W2+4
Function Call: WRITE
  • Prompt: ?50,"TO: ",$S($D(^DIC(42,+$P(DGX,"^",6),0)):$E($P(^(0),"^",1),1,17),1:"")
  • Line Location: W2+5
Function Call: WRITE
  • Prompt: " [",$E($P(^(0),"^",1),1,10),"]"
  • Line Location: W2+5
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: ?50,"TO: ",$$GET1^DIQ(405,+$P(DGPMAN,"^",17),.05)
  • Line Location: W3+1
Function Call: WRITE
  • Prompt: ?55,"TO: ",$E($P(X,"^",1),1,20)
  • Line Location: W4+4
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+5
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: "ADMITTING: ",X
  • Line Location: W6+5
Function Call: WRITE
  • Prompt: "DX: ",DGDX
  • Line Location: W6+7
Function Call: WRITE
  • Prompt: @IOF,!!,"ADMISSION:"
  • Line Location: ENEX+2
Function Call: WRITE
  • Prompt: !!,"DISCHARGE:"
  • Line Location: ENEX+7
Function Call: WRITE
  • Prompt: !?5,Y
  • Line Location: WEX+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WEX+1
Routine Call
  • DIR
  • Line Location:
    • WEX+1
Routine Call
  • %ZIS
  • Line Location:
    • ENEX+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGPM - [#405] GET1^DIQ

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN ENEX+3, ENEX+5
DGDIS Q!
DGDX W6+8!
>> DGFL ENEX+2*, ENEX+3, ENEX+4, ENEX+6, ENEX+7, WEX+1*
DGIFN WR*, WR+1, WR+2!, W6+4, ENEX+5*, ENEX+6*, Q!
>> DGONE WR, W5, W6, W6+1, W6+2, W6+5, ENEX+2*, ENEX+4*, ENEX+7*, WEX
>> DGPMAN W1+3, W2+3, W3+1, W4+3, ENEX+2, ENEX+3, ENEX+7
>> DGPMCA ENEX+3, ENEX+5
>> DGPMEX ENEX+1
DGPMLD WR+1*, WR+2!, W4+5, W5
>> DGPMT WR+1, WR+2, ENEX+2*, ENEX+3*, ENEX+5*, ENEX+7*, WEX+1
DGX WR*, WR+2!, W1, W1+3, W2, W2+3, W2+4, W2+5, W3+1, W4
, W4+3, W6, W6+1, W6+2, ENEX+2*, ENEX+3*, ENEX+6*, ENEX+7*, Q!, WEX
DIR Q!
DIR(0 WEX+1*
DTOUT Q!, WEX+1
DUOUT Q!
I DGPMV20+7*, WR, ENEX+3*, ENEX+5*, ENEX+6*, Q!
IOF ENEX+2, WEX+1
>> IOP ENEX+2*
IOSL WEX+1
J ENEX+5*, Q!
>> X W4*, W4+3*, W4+4, W6+4*, W6+5
>> Y WR*, W2+4*, WEX*, WEX+1
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