Routine: GMTSDGC1

Information

GMTSDGC1 ; SLC/KER/SBW - Subroutines for Ext ADT Hist ;06/25/15 15:47

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Health Summary	2	$$CODESYS^GMTSPXU1 CKP^GMTSUP
VA FileMan	2	EN^DIQ1 ^DIWP
DRG Grouper	1	$$VLT^ICDEX
Registration	1	^DGPMLOS

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary	1	GMTSDGCH

Entry Points

Name	Comments	DBIA/ICR reference
OTHER(DFN,PTF,CODE,GMVAIP,MDA)	; Additional data to include
GETDATA	; Gets LOS, ICD and bedsection data
NXTICD	; Print the next ICD

External References

Name	Field # of Occurrence
^DGPMLOS	GETDATA+3
EN^DIQ1	GETDATA+6
^DIWP	OTHER+31
$$CODESYS^GMTSPXU1	GETDATA+13, GETDATA+21, GETDATA+29, GETDATA+39
CKP^GMTSUP	OTHER+6, OTHER+10, OTHER+14, OTHER+18, OTHER+21, OTHER+23, OTHER+24, OTHER+25, OTHER+34, OTHER+36 , NXTICD+5
$$VLT^ICDEX	GETDATA+18, GETDATA+26, GETDATA+34, GETDATA+44

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?12,"Adm. Diag: ",GMVAIP("MF") Line Location: OTHER+6
Function Call: WRITE	Prompt: ?64,"LOS: ",LOS,! Line Location: OTHER+7
Function Call: WRITE	Prompt: ?11,"Bedsection: ",BDSC,?64,"LOS: ",LOS,! Line Location: OTHER+18
Function Call: WRITE	Prompt: ?7,"Principal Diag: No discharge diagnosis available.",! Line Location: OTHER+22
Function Call: WRITE	Prompt: ?4,"Disposition Place: ",DSPL,! Line Location: OTHER+23
Function Call: WRITE	Prompt: ?4,"Outpat. Treatment: ",OPTR,! Line Location: OTHER+24
Function Call: WRITE	Prompt: ! Line Location: OTHER+25
Function Call: WRITE	Prompt: ?14,"TS Diag: " Line Location: OTHER+34
Function Call: WRITE	Prompt: ?23,^UTILITY($J,"W",GMJ,GMJ1,0),! Line Location: OTHER+36
Function Call: WRITE	Prompt: ?23,GMTO,?61,GMTNO,! Line Location: NXTICD+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DGPM - [#405]	OTHER+13, OTHER+30, OTHER+31
^DGPT - [#45]	GETDATA+4, GETDATA+10, GETDATA+36, GETDATA+37
^UTILITY($J	OTHER+28!, OTHER+32, OTHER+33, OTHER+36, OTHER+37!

Label References

Name	Line Occurrences
GETDATA	OTHER+5, OTHER+17
NXTICD	OTHER+10, OTHER+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADM	GETDATA+41, GETDATA+42, GETDATA+43, GETDATA+45
ATTN	OTHER+1~
AWS	OTHER+1~
BD	OTHER+1~
BDSC	OTHER+1~, OTHER+18, GETDATA+5, GETDATA+7
CODE	OTHER~, OTHER+3, OTHER+11, OTHER+15, OTHER+26
DA	GETDATA+1~, GETDATA+6*, GETDATA+7, GETDATA+8, GETDATA+9
DFN	OTHER~
DGPMIFN	OTHER+1~, GETDATA+2*, GETDATA+3
DIC	GETDATA+1~, GETDATA+6, GETDATA+10
DIQ	GETDATA+1~, GETDATA+6*
DIWF	OTHER+27~, OTHER+29*
DIWL	OTHER+27~, OTHER+29*
DIWR	OTHER+27~, OTHER+29*
DP	OTHER+2~
DR	GETDATA+1~, GETDATA+6, GETDATA+10
DSPL	OTHER+2~, OTHER+23, GETDATA+5, GETDATA+9
DT	GETDATA+11
GMI	OTHER+1~, OTHER+9, OTHER+10, OTHER+19, OTHER+20, NXTICD+1, NXTICD+2, NXTICD+3, NXTICD+4
GMJ	OTHER+27~, OTHER+31, OTHER+33, OTHER+36
GMJ1	OTHER+27~, OTHER+35, OTHER+36
GMTNO	OTHER+1~, NXTICD+1*, NXTICD+5
GMTO	OTHER+1~, NXTICD+1*, NXTICD+5
GMTSDATE	GETDATA+1~, GETDATA+11*, GETDATA+18, GETDATA+26, GETDATA+34, GETDATA+44
GMTSI	GETDATA+1~, GETDATA+28, GETDATA+31, GETDATA+32, GETDATA+33, GETDATA+35, GETDATA+38, GETDATA+41, GETDATA+42, GETDATA+43 , GETDATA+45
>> GMTSNPG	OTHER+25
>> GMTSQIT	OTHER+6, OTHER+10, OTHER+14, OTHER+18, OTHER+21, OTHER+23, OTHER+24, OTHER+25, OTHER+34, OTHER+36 , NXTICD+5
GMTSTAB	GETDATA+1~, GETDATA+2*, GETDATA+17, GETDATA+25, GETDATA+33, GETDATA+43
GMTSTEMP	GETDATA+1~, GETDATA+18, GETDATA+19, GETDATA+26, GETDATA+27, GETDATA+34, GETDATA+35, GETDATA+44, GETDATA+45
GMVAIP	OTHER~
GMVAIP("AN"	GETDATA+2
GMVAIP("DN"	OTHER+4
GMVAIP("MF"	OTHER+6
GMVAIP("WL"	OTHER+14
GMX	OTHER+1~, OTHER+10, OTHER+20, NXTICD+1
ICD	OTHER+1~, OTHER+8, GETDATA+10, GETDATA+11, GETDATA+12, GETDATA+20, GETDATA+28, GETDATA+37, GETDATA+38
ICD(	OTHER+10, OTHER+20, GETDATA+31, GETDATA+32, GETDATA+33, GETDATA+35, GETDATA+41, GETDATA+42, GETDATA+43, GETDATA+45 , NXTICD+1
ICD(1	GETDATA+15, GETDATA+16, GETDATA+17, GETDATA+19
ICD(2	GETDATA+23, GETDATA+24, GETDATA+25, GETDATA+27
ICDI	GETDATA+1~, GETDATA+12, GETDATA+13, GETDATA+15, GETDATA+16, GETDATA+17, GETDATA+18, GETDATA+19, GETDATA+20, GETDATA+21 , GETDATA+23, GETDATA+24, GETDATA+25, GETDATA+26, GETDATA+27, GETDATA+28, GETDATA+29, GETDATA+31, GETDATA+32, GETDATA+33 , GETDATA+34, GETDATA+35, GETDATA+38, GETDATA+39, GETDATA+41, GETDATA+42, GETDATA+43, GETDATA+44, GETDATA+45
ICDX	GETDATA+1~, GETDATA+13, GETDATA+14, GETDATA+15, GETDATA+17, GETDATA+21, GETDATA+22, GETDATA+23, GETDATA+25, GETDATA+29* , GETDATA+30, GETDATA+31, GETDATA+33, GETDATA+39*, GETDATA+40, GETDATA+41, GETDATA+43
LOS	OTHER+1~, OTHER+7, OTHER+18, GETDATA+3*
MDA	OTHER~, OTHER+13, OTHER+30, OTHER+31
NODIAG	OTHER+1~, OTHER+19, OTHER+21, NXTICD+6
OP	OTHER+2~
OPTR	OTHER+2~, OTHER+24, GETDATA+5, GETDATA+8
PTF	OTHER~, GETDATA+4, GETDATA+6, GETDATA+10, GETDATA+36, GETDATA+37
PTFA	GETDATA+1~
PTFA(45	GETDATA+7, GETDATA+8, GETDATA+9
TRFAC	OTHER+12~, OTHER+13*, OTHER+14
U	OTHER+13, OTHER+14, GETDATA+11, GETDATA+12, GETDATA+14, GETDATA+17, GETDATA+20, GETDATA+22, GETDATA+25, GETDATA+28 , GETDATA+30, GETDATA+33, GETDATA+37, GETDATA+38, GETDATA+40, GETDATA+43
>> VAIP("MT"	OTHER+14
>> VAIP("WL"	OTHER+14
WARD	OTHER+1~
X	OTHER+31*, GETDATA+1~, GETDATA+3

Customize PDF page

Package: Health Summary