Routine: GMTSDGA1

Package	Total	Call Graph
Health Summary	2	(MTIM,REGDT4)^GMTSU CKP^GMTSUP
VA Fileman	1	EN^DIQ1

Package

Total

Call Graph

Health Summary

(MTIM,REGDT4)^GMTSU CKP^GMTSUP

VA Fileman

EN^DIQ1

Name	Comments	DBIA/ICR reference
ADOUT	; Admissions Output
NXT	; Next Diagnosis
DCOUT	; Discharges Output
BDO	; Bedsection/Disposition/Outpatient Treatment
DXOUT	; PTF Discharge Diagnosis Output
TROUT	; Transfers Output

External References

Name	Field # of Occurrence
EN^DIQ1	BDO+1
MTIM^GMTSU	TROUT+1
REGDT4^GMTSU	DCOUT+2, DXOUT+4, ADOUT+5
CKP^GMTSUP	TROUT+2, TROUT+3, DCOUT+1, DCOUT+3, DCOUT+5, DCOUT+6, DCOUT+7, DCOUT+8, DCOUT+9, DXOUT+1 , DXOUT+2, DXOUT+7, DXOUT+8, ADOUT+1, ADOUT+2, ADOUT+9, ADOUT+10, ADOUT+11, ADOUT+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?24,TRFAC,! Line Location: TROUT+3
Function Call: WRITE	Prompt: " Date of Discharge: ",X,! Line Location: DCOUT+2
Function Call: WRITE	Prompt: ?16,"DXLS: ",ICD(ADM,2,80,+$P(ICD,U,10),3),! Line Location: DCOUT+3
Function Call: WRITE	Prompt: ?10,"Bedsection: ",BDSC,! Line Location: DCOUT+5
Function Call: WRITE	Prompt: " Disposition Type: ",$P(VAIP(17,3),U,2),! Line Location: DCOUT+6
Function Call: WRITE	Prompt: " Disposition Place: ",DSPL,! Line Location: DCOUT+7
Function Call: WRITE	Prompt: "Outpatient Treatment: ",OPTR,! Line Location: DCOUT+8
Function Call: WRITE	Prompt: ! Line Location: DCOUT+9
Function Call: WRITE	Prompt: ! Line Location: DXOUT+1
Function Call: WRITE	Prompt: DDT," - ",ADT,?57,"LOS: ",LOS,! Line Location: DXOUT+5
Function Call: WRITE	Prompt: "No discharge diagnosis available for this admission.",! Line Location: DXOUT+8
Function Call: WRITE	Prompt: ! Line Location: ADOUT+1
Function Call: WRITE	Prompt: ADT," - ",DDT Line Location: ADOUT+6
Function Call: WRITE	Prompt: ?25,GMTSWARD," ",GMTSRB Line Location: ADOUT+6
Function Call: WRITE	Prompt: ?56,"LOS: ",LOS,! Line Location: ADOUT+7
Function Call: WRITE	Prompt: " Last Tr Specialty: ",$E(SPEC,1,25),?50,"Last Prov: ",$E($P($G(VAIP(14,5)),U,2),1,15),! Line Location: ADOUT+9
Function Call: WRITE	Prompt: "Admitting Diagnosis: ",$G(VAIP(13,7)),! Line Location: ADOUT+10
Function Call: WRITE	Prompt: " Bedsection: ",$S(+($P(^DGPT(PTF,70),U,2))>0:$P($G(^DIC(42.4,+$P(^DGPT(PTF,70),U,2),0)),U),1:""),! Line Location: ADOUT+11
Function Call: WRITE	Prompt: ?13,"ICD DX: " Condition for execution: GMI=3 Line Location: NXT+3
Function Call: WRITE	Prompt: ?21,GMTO,?62,GMTNO,! Line Location: NXT+3

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	TROUT+3
^DGPT - [#45]	DCOUT+4, ADOUT+11
^DIC(42.4 - [#42.4]	ADOUT+8, ADOUT+11
^DIC(45.7 - [#45.7]	ADOUT+8

Name	Line Occurrences
BDO	DCOUT+4
NXT	DXOUT+7, ADOUT+12

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADA	TROUT+3
>> ADATE	TROUT+1
>> ADM	DCOUT+3, DXOUT+7, ADOUT+12, NXT+1
>> ADT	TROUT+1*, TROUT+2, DXOUT+5, ADOUT+6
BDSC	DCOUT+1~, DCOUT+5, BDO+2*
DA	BDO+1~*, BDO+2, BDO+3, BDO+4
>> DDT	DXOUT+4, DXOUT+5, ADOUT+4, ADOUT+5*, ADOUT+6
DIC	BDO+1~*
DIQ	BDO+1~*
DR	BDO+1~*
DSPL	DCOUT+1~, DCOUT+7, BDO+4*
>> FLAG	DXOUT+1, DXOUT+3, ADOUT+1, ADOUT+3
>> GMC	DCOUT+1*
>> GMI	DXOUT+6, DXOUT+7, ADOUT+12*, NXT+1, NXT+2, NXT+3
>> GMTNO	NXT+1*, NXT+3
>> GMTO	NXT+1*, NXT+3
>> GMTSNPG	DCOUT+9, DXOUT+1, ADOUT+1
>> GMTSQIT	TROUT+2, TROUT+3, DCOUT+1, DCOUT+3, DCOUT+5, DCOUT+6, DCOUT+7, DCOUT+8, DCOUT+9, DXOUT+1 , DXOUT+2, DXOUT+7, DXOUT+8, ADOUT+1, ADOUT+2, ADOUT+9, ADOUT+10, ADOUT+11, ADOUT+12
>> GMTSRB	ADOUT+6
>> GMTSWARD	ADOUT+6
>> GMX	DXOUT+7, ADOUT+12, NXT+1
>> ICD	DCOUT+3, ADOUT+12
>> ICD(	DCOUT+3, DXOUT+7, ADOUT+12, NXT+1
>> LOS	DXOUT+5, ADOUT+7
NODIAG	DXOUT+6, DXOUT+8!, NXT+4
OPTR	DCOUT+1~, DCOUT+8, BDO+3*
>> PTF	DCOUT+4, BDO+1*, ADOUT+11
>> PTF70	DCOUT+4*
PTFA	BDO+1~
PTFA(45	BDO+2, BDO+3, BDO+4
>> PTFLG	DCOUT+4*
>> SPEC	ADOUT+8*, ADOUT+9
>> TI	TROUT+1*
TRFAC	TROUT+3*!
>> TS	ADOUT+8*
U	TROUT+2, TROUT+3, DCOUT+3, DCOUT+6, ADOUT+5, ADOUT+8, ADOUT+9, ADOUT+11
>> VAIP(13	DXOUT+4, ADOUT+10
>> VAIP(14	ADOUT+8, ADOUT+9
>> VAIP(17	DCOUT+1, DCOUT+2, DCOUT+6, ADOUT+4, ADOUT+5, ADOUT+6, ADOUT+10
>> VAIP(4	TROUT+2
>> VAIP(5	TROUT+2
>> X	TROUT+1, DCOUT+2, DXOUT+4, ADOUT+5

Customize PDF page

Package: Health Summary

Routine: GMTSDGA1

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: