Routine: ADGGFL

Package	Total	Call Graph
Kernel	2	^%ZIS ^%ZISC
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

^%ZIS ^%ZISC

VA Fileman

^DIR

Entry Points

Name	Comments	DBIA/ICR reference
ADT	;-- this is where i get the admission iens
SET	;-- this is where i set the nodes with the new pointers
END	;-- kill the variables and quit
GET	;-- go through the hospital location file and grab bad data nodes
DIT	;-- this is where i get the discharge iens
MAIN	;-- this is the main routine driver

Name	Field # of Occurrence
^%ZIS	GET+16
^%ZISC	GET+24
^DIR	SET+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"I am getting the new admission type pointers" Line Location: ADT+1
Function Call: WRITE	Prompt: "." Line Location: ADT+6
Function Call: WRITE	Prompt: !,"I am getting the new discharge type pointers..." Line Location: DIT+1
Function Call: WRITE	Prompt: "." Line Location: DIT+6
Function Call: WRITE	Prompt: !,"I will now search for entries in the V Hospitalization file " Line Location: GET+1
Function Call: WRITE	Prompt: "that are incomplete." Line Location: GET+2
Function Call: WRITE	Prompt: !,"At the end of this search, I will print a list of incomplete " Line Location: GET+3
Function Call: WRITE	Prompt: "data nodes." Line Location: GET+4
Function Call: WRITE	Prompt: "." Line Location: GET+10
Function Call: WRITE	Prompt: @IOF Line Location: GET+15
Function Call: WRITE	Prompt: !,"You must rerun this conversion before continuing, D ^ADGGFL when ready" Line Location: GET+17
Function Call: WRITE	Prompt: !,"The following data nodes have incomplete data:" Line Location: GET+18
Function Call: WRITE	Prompt: !,"^AUPNVINP("_TMPA_",0) has "_$G(^TMP($J,TMPA)) Line Location: GET+21
Function Call: WRITE	Prompt: !!,"All data in ^AUPNVINP is acceptable for conversion",! Line Location: GET+23
Function Call: WRITE	Prompt: !,"You must update V HOSP pointers, D SET^ADGGFL when ready" Line Location: SET+5
Function Call: WRITE	Prompt: !,"I am now repointing the V Hospitalization file " Line Location: SET+6
Function Call: WRITE	Prompt: "." Line Location: SET+23
Function Call: WRITE	Prompt: !,"Conversion completed succsessfully, "_REC_" entries updated" Line Location: SET+24
Routine Call	DIR Line Location: SET+3
Routine Call	%ZIS Line Location: GET+16

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVINP - [#9000010.02]	GET+8, GET+11, GET+12, GET+13, SET+11, SET+12, SET+14, SET+15, SET+18, SET+19
^DG(405.1 - [#405.1]	ADT+4, ADT+5, DIT+4, DIT+5
^DIC(42.1 - [#42.1]	ADT+2, ADT+3
^DIC(42.2 - [#42.2]	DIT+2, DIT+3
^TMP("VHOSP"	SET+8, SET+22*, END+2!
^TMP($J	GET+11, GET+12, GET+13*, GET+19, GET+20, GET+21, SET+13, END+2!

Name	Line Occurrences
ADT	MAIN+1
DIT	MAIN+1
END	MAIN+3
GET	MAIN+2
SET	MAIN+3, SET+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACNT	SET+11, SET+20, SET+23*, END+1!
ADT	SET+14*, SET+16, END+1!
ADT(	ADT+5*, SET+16
AIEN	SET+8, SET+11, SET+12, SET+13, SET+14, SET+15, SET+18, SET+19, END+1!
>> CNT	GET+19, GET+22, GET+23
DA	END+1!
DIE	END+1!
>> DIR("A"	SET+2*
>> DIR(0	SET+2*
>> DIRUT	SET+4
DIT	SET+15*, SET+17, END+1!
DIT(	DIT+5*, SET+17
DR	END+1!
ENT	GET+8, GET+9, GET+10*, END+1!
FMIEN	ADT+3, ADT+5, DIT+3, DIT+5, END+1!
FMNM	ADT+2, ADT+3, ADT+4, ADT+5, DIT+2, DIT+3, DIT+4, DIT+5, END+1!
>> HLF	GET+8*, GET+11, GET+12, GET+13
IOF	GET+15
NAT	SET+16*, SET+18, END+1!
NDT	SET+17*, SET+19, END+1!
>> POP	MAIN+2, GET+17
>> REC	SET+7, SET+8, SET+21*, SET+22, SET+24
TMPA	GET+19*, GET+20, GET+21, END+1!
U	GET+12, GET+13, SET+14, SET+15, SET+18, SET+19
>> Y	SET+5

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGGFL

Information

Source Information

Call Graph

Call Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: