Routine: DGPMV20

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

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

Entry Points

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

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

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

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

Customize PDF page

Package: Registration

Routine: DGPMV20

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

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

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