Routine: ADGCRB5

Package	Total	Call Graph
VA Fileman	4	DD^%DT (,C)^%DTC $$GET1^DIQ ^DIWP
DRG Grouper	1	($$ICDDX,$$ICDOP)^ICDEX
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGCRB0

Entry Points

Name	Comments	DBIA/ICR reference
A	;EP -- driver
H8	; -- sub heading 8
H9	; -- sub heading 9
DSCMTS	; -- day surgery comments
H10	; -- sub heading 10
ADMDS()	; -- admit after ds
VPRC	; -- procedures
VISIT()	; -- visit ifn
VINP	; -- hospitalization
VPOV	; -- diagnosis
WRAP(X,DIWL,DIWR,DIWF)	; -- print text fields in word-wrap mode
VSIT	; -- visit DGFN
DSV()	;EP -- ds visit ifn

External References

Name	Field # of Occurrence
DD^%DT	DSCMTS+3, ADMDS+7
^%DTC	ADMDS+8
C^%DTC	ADMDS+5
$$GET1^DIQ	VPOV+6, VPRC+4
^DIWP	WRAP+1
$$ICDDX^ICDEX	VPOV+3
$$ICDOP^ICDEX	VPRC+5
$$VAL^XBDIQ1	VPRC+17, VPRC+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,DGLIN,!,"26 ICD 27 Hosp Acq",?24,"28 Established DX",!,DGLIN1 Line Location: H8+3
Function Call: WRITE	Prompt: !!,"* No visit for day surgery entry yet *" Line Location: VSIT+3
Function Call: WRITE	Prompt: !?3,$P($$ICDDX^ICDEX(+Y,0),U,2),?13,$S($P(Y,U,7)=1:"X",1:"") Line Location: VPOV+3
Function Call: WRITE	Prompt: ?27,Z Line Location: VPOV+6
Function Call: WRITE	Prompt: ?27,Z Line Location: VPOV+7
Function Call: WRITE	Prompt: !,DGLIN1,!,"29 ICD 30 DX",?18,"31 Op & Selec Procedures" Line Location: H9+3
Function Call: WRITE	Prompt: ?55,"32 Post-Op 33 33a Op" Line Location: H9+4
Function Call: WRITE	Prompt: !?3,"Code",?58,"Infec Date Phy Code",!,DGLIN1 Line Location: H9+5
Function Call: WRITE	Prompt: !?3,$P(OP,U,2) Line Location: VPRC+6
Function Call: WRITE	Prompt: ?11,$P($G(^ICD9($P(DGY,U,5),0)),U) Line Location: VPRC+8
Function Call: WRITE	Prompt: ?12,$P($G(^ICD9(X,0)),U) Line Location: VPRC+9
Function Call: WRITE	Prompt: ?21,X Line Location: VPRC+12
Function Call: WRITE	Prompt: ?60,$S($P(DGY,U,8)="Y":"YES",1:" NO"),?66,$E($P(DGY,U,6),4,7) Line Location: VPRC+14
Function Call: WRITE	Prompt: ?72,$$VAL^XBDIQ1(200,+$P(DGY,U,11),9999999.039) Line Location: VPRC+17
Function Call: WRITE	Prompt: ?72,$$VAL^XBDIQ1(6,+$P(DGY,U,11),9999999.039) Line Location: VPRC+18
Function Call: WRITE	Prompt: !,DGLIN1,!,"34 Post-op Comments",! Line Location: H10+1
Function Call: WRITE	Prompt: !,DGLIN1,!,"34 Discharge Type" Line Location: H10+2
Function Call: WRITE	Prompt: ?27,"35 Facility Transferred To",?63,"36 Facility Code",! Line Location: H10+3
Function Call: WRITE	Prompt: ?3,$E($P(^DG(405.1,X,0),U),1,24) Line Location: VINP+4
Function Call: WRITE	Prompt: ?30,$P(@(U_$P(X1,";",2)_+X1_",0)"),U) Line Location: VINP+6
Function Call: WRITE	Prompt: ?66,$P($G(^AUTTLOC(+X1,0)),U,10) Line Location: VINP+8
Function Call: WRITE	Prompt: !,DGLIN1,!,"37 Disch Service",?24,"38 Disch Srv Code" Line Location: VINP+11
Function Call: WRITE	Prompt: ?55,"39 # Consults",! Line Location: VINP+12
Function Call: WRITE	Prompt: ?3,$P(^(0),U) Line Location: VINP+15
Function Call: WRITE	Prompt: ?30,$P(^(9999999),U) Line Location: VINP+16
Function Call: WRITE	Prompt: ?63,$P(Y,U,8) Line Location: VINP+17
Function Call: WRITE	Prompt: ?2,LINE Line Location: DSCMTS+6
Function Call: WRITE	Prompt: ! Condition for execution: $X>DIWL Line Location: WRAP+3
Function Call: WRITE	Prompt: ?DIWL,^UTILITY($J,"W",DIWL,X,0) Line Location: WRAP+3

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVPOV - [#9000010.07]	GET1^DIQ
^AUPNVPRC - [#9000010.08]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ADGDS - [#9009012]	DSCMTS+2, DSV+2
^AUPNVINP - [#9000010.02]	VINP+3
^AUPNVINP("AD"	VINP+2
^AUPNVPOV - [#9000010.07]	VPOV+2
^AUPNVPOV("AD"	VPOV+1, DSV+5
^AUPNVPRC - [#9000010.08]	VPRC+2
^AUPNVPRC("AD"	VPRC+1
^AUPNVPRV("AD"	DSV+6
^AUPNVSIT - [#9000010]	VISIT+5, DSV+7
^AUPNVSIT("AA"	VISIT+4, DSV+4
^AUTNPOV - [#9999999.27]	VPOV+5, VPRC+11, VPRC+12
^AUTTLOC - [#9999999.06]	VINP+8
^BDGPAR(1	ADMDS+4
^DD(9000010.06	VPRC+16
^DG(405.1 - [#405.1]	VINP+4
^DGPM("APTT1"	ADMDS+5
^DIC(45.7 - [#45.7]	VINP+15, VINP+16
^ICD0 - [#80.1]	VPRC+2
^ICD9 - [#80]	VPOV+2, VPRC+8
^UTILITY($J	WRAP+1!, WRAP+2, WRAP+3, WRAP+4!

Label References

Name	Line Occurrences
$$ADMDS	DSCMTS+5
$$DSV	VISIT+1
$$VISIT	VSIT+2
DSCMTS	VINP+1
H10	A+1
H8	A+1
H9	A+1
VINP	A+1
VPOV	A+1
VPRC	A+1
VSIT	A+1
WRAP	VPOV+8, VPRC+13

Naked Globals

Name	Field # of Occurrence
^(0	VPOV+2, VPRC+2, VINP+3, VINP+15, VISIT+5
^(2	DSCMTS+2
^(9999999	VINP+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADT	ADMDS+1~, ADMDS+7*, ADMDS+9
DATE	DSV+1~, DSV+2*, DSV+3
>> DFN	DSCMTS+2, ADMDS+5, VISIT+4, DSV+2, DSV+4
>> DGDS	VSIT+3, H10+1, VINP+1, DSCMTS+2, VISIT+1, DSV+2
>> DGLIN	H8+3
>> DGLIN1	H8+3, H9+3, H9+5, H10+1, H10+2, VINP+11
>> DGN	ADMDS+4, VISIT+2
>> DGPOVDA	VPOV+4*
>> DGPOVN0	VPOV+4*
>> DGVSDA	A+1, VSIT+2*, VSIT+3, VSIT+4, VPOV+1, VPRC+1, VINP+2
DGX	VPRC+1~*, VPRC+2, VPRC+4
DGY	VPRC+1~, VPRC+2*, VPRC+8, VPRC+10, VPRC+11, VPRC+12, VPRC+14, VPRC+15, VPRC+17, VPRC+18
DGZN	A+1!
DIWF	WRAP~
DIWL	WRAP~, WRAP+2, WRAP+3
DIWR	WRAP~
DT	VPRC+5
DX	VPOV+1~
LINE	DSCMTS+1~, DSCMTS+2, DSCMTS+3, DSCMTS+4, DSCMTS+5, DSCMTS+6*
LMT	ADMDS+1~, ADMDS+8*, ADMDS+9
OP	VPRC+1~, VPRC+5*, VPRC+6
OPI	VPRC+1~, VPRC+4*, VPRC+5
REVDT	DSV+1~, DSV+3*, DSV+4
S0	DSCMTS+1~, DSCMTS+2*, DSCMTS+3
S2	DSCMTS+1~, DSCMTS+2*, DSCMTS+4, DSCMTS+6
SAV	ADMDS+1~, ADMDS+7*, ADMDS+8
SDT	ADMDS+1~, ADMDS+4*, ADMDS+5, ADMDS+8
U	VPOV+3, VPOV+4, VPOV+5, VPRC+6, VPRC+8, VPRC+10, VPRC+11, VPRC+12, VPRC+14, VPRC+15 , VPRC+16, VPRC+17, VPRC+18, VINP+4, VINP+5, VINP+6, VINP+8, VINP+14, VINP+15, VINP+16 , VINP+17, DSCMTS+3, DSCMTS+4, DSCMTS+6, ADMDS+4, VISIT+5, DSV+2, DSV+7
V	DSV+1~, DSV+4*, DSV+5, DSV+6, DSV+7, DSV+8
X	VPOV+1~, VPOV+2, VPOV+4, VPOV+6, VPRC+10, VPRC+12, VPRC+13, VINP+2~, VINP+3, VINP+4* , ADMDS+1~, ADMDS+6, ADMDS+8, VISIT+2~, VISIT+4, VISIT+5, WRAP~, WRAP+2, WRAP+3
X1	VINP+2~, VINP+5, VINP+6, VINP+7, VINP+8, VINP+14, VINP+15, VINP+16, ADMDS+1~, ADMDS+4* , ADMDS+8*
X2	ADMDS+1~, ADMDS+4, ADMDS+8
Y	VPOV+1~, VPOV+2, VPOV+3, VPOV+4, VPOV+5, VINP+2~, VINP+3, VINP+4, VINP+5, VINP+14 , VINP+17, DSCMTS+1~, DSCMTS+3, ADMDS+1~, ADMDS+5, ADMDS+6, ADMDS+7, VISIT+2~, VISIT+4, DSV+1~ , DSV+4, DSV+7*, DSV+8
Z	VPOV+1~, VPOV+6, VPOV+8, VISIT+2~, VISIT+5*, VISIT+6

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGCRB5

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: