Routine: ADGPMV10

Package	Total	Call Graph
Registration	2	^DGPMLOS IN5^VADPT

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGRPD

Entry Points

Name	Comments	DBIA/ICR reference
LODGER	;set-up necessary variables if getting last lodger episode
IHS	; los ;IHS
IN5	; -- calls IN5^VADPT and sets up array
CS	;Current Status
NULL
CS1
CS2	;-- additional fields for admission screen

External References

Name	Field # of Occurrence
^DGPMLOS	IHS+2
IN5^VADPT	IN5+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"*NOTE* This patient has not been converted into the new file structure.",!," Inpatient data for this patient is not yet available.",! Line Location: CS+2
Function Call: WRITE	Prompt: !!,"Status : PATIENT HAS NO INPATIENT OR LODGER ACTIVITY IN THE COMPUTER",*7 Line Location: CS+3
Function Call: WRITE	Prompt: !!,"Inpatient Status: NO ACTIVITY RECORDED IN COMPUTER" Line Location: CS+5
Function Call: WRITE	Prompt: "-" Line Location: CS+8
Function Call: WRITE	Prompt: "on PASS" Line Location: CS+8
Function Call: WRITE	Prompt: "on ",$S("^2^26^"[X:"A",1:"U"),"A" Line Location: CS+9
Function Call: WRITE	Prompt: "ASIH" Line Location: CS+10
Function Call: WRITE	Prompt: "OTHER FAC" Line Location: CS+11
Function Call: WRITE	Prompt: "on WARD" Line Location: CS+13
Function Call: WRITE	Prompt: ?39,"Discharge Type : ",$S($D(^DG(405.1,+$P(^(0),"^",4),0)):$P(^(0),"^",1),1:"UNKNOWN") Line Location: CS1+0
Function Call: WRITE	Prompt: " (Seriously ill)" Line Location: CS1+1
Function Call: WRITE	Prompt: ?39,$S("^4^5^"[("^"_+DGPMVI(2)_"^"):"Checked-out",+DGPMVI(2)=3:"Discharged ",1:"Transferred")," : ",$S("^1^4^"'[("^"_+DGPMVI(2)_"^"):$P(DGPMVI(3),"^",2),$P(DGPMVI(3),"^",2)'=$P(DGPMVI(13,1),"^",2):$P(DGPMVI(3),"^",2),1:"") Line Location: CS1+3
Function Call: WRITE	Prompt: !,"Provider : ",$E($P(DGPMVI(7),"^",2),1,26),?39,"Specialty : ",$E($P(DGPMVI(8),"^",2),1,26) Line Location: CS1+4
Function Call: WRITE	Prompt: !!,"Admission LOS: ",+$P(X,"^",5)," Absence days: ",+$P(X,"^",2)," Pass Days: ",+$P(X,"^",3)," ASIH days: ",+$P(X,"^",4) Line Location: CS1+6
Function Call: WRITE	Prompt: !!,"Admission LOS: ",+$P(X,"^",5) Line Location: IHS+1
Function Call: WRITE	Prompt: ?45,"Admission LOS: ",+$P(X,"^",5)," days" Line Location: IHS+2
Function Call: WRITE	Prompt: !!,"Religion : ",$S($D(^DIC(13,+$P(DGHOLD,U,8),0)):$E($P(^(0),U),1,24),1:"") Line Location: CS2+6
Function Call: WRITE	Prompt: ?39,"Marital Status : ",$S($D(^DIC(11,+$P(DGHOLD,U,5),0)):$P(^(0),U),1:"") Line Location: CS2+7
Function Call: WRITE	Prompt: !,"Eligibility : ",$S($D(^DIC(8,+$P(DGHOLD,U),0)):$P(^(0),U),1:"") Line Location: CS2+9

Name	Line Occurrences (* Changed, ! Killed)
^DD(2	CS2+11
^DG(405.1 - [#405.1]	CS1
^DGPM - [#405]	CS1, LODGER+3, LODGER+4
^DGPM("ATID4"	LODGER+2
^DGPM("C"	CS+4
^DIC(11 - [#11]	CS2+7
^DIC(13 - [#13]	CS2+6
^DIC(42 - [#42]	IN5+2
^DIC(8 - [#8]	CS2+9
^DPT - [#2]	CS+2, CS1+1, CS2+5, CS2+8, CS2+10
^UTILITY("VAIP"	IN5+1, IN5+2, IN5+3

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	CS+7*, CS+8, IHS+3!
C	IHS+3!
>> DFN	CS+2, CS+4, CS1+1, CS2+5, CS2+8, CS2+10, LODGER+2
DGHOLD	CS2+5, CS2+6, CS2+7, CS2+8, CS2+9, CS2+10*, CS2+11, CS2+12, CS2+13!
>> DGPMDCD	IN5+2, LODGER+4, LODGER+5, NULL
>> DGPMIFN	IHS+2*
>> DGPMSV	IN5+2*
>> DGPMSVC	IN5+2
>> DGPMT	CS+1, CS2+1
>> DGPMVI(	IN5+1, NULL
>> DGPMVI(1	LODGER+4, LODGER+5
>> DGPMVI(13	CS1+2, CS1+3, IHS+2, IN5+3, LODGER+4, LODGER+5*
>> DGPMVI(17	CS1, LODGER+4, LODGER+5
>> DGPMVI(2	CS+7, CS1, CS1+1, CS1+2, CS1+3, CS1+4, IHS+2, LODGER+4, LODGER+5
>> DGPMVI(3	CS1+3
>> DGPMVI(4	CS+8
>> DGPMVI(5	CS1+4
>> DGPMVI(6	CS1+4
>> DGPMVI(7	CS1+4
>> DGPMVI(8	CS1+4
I	IHS+3!, IN5+1, LODGER+2, LODGER+3, LODGER+4, LODGER+5, NULL*
J	IHS+3!
U	CS2+6, CS2+7, CS2+8, CS2+9, CS2+11, CS2+12
VAHOW	IN5+1*, IN5+3!
X	CS+1, CS+8, CS+9, CS+10, CS+11, IHS+2, IHS+3!, LODGER+3*, LODGER+4, LODGER+5

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGPMV10

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Line Occurrences
CS1	CS+8, CS+9, CS+10, CS+11
CS2	CS+5, CS1+5
IHS	CS+13
NULL	LODGER+3

Name	Field # of Occurrence
^(	CS2+8, CS2+10, LODGER+2
^("DAC"	CS1+1
^(0	CS1, CS2+5, CS2+6, CS2+7, CS2+9, IN5+2, LODGER+3, LODGER+4