Routine: APCDCHKI

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
IHS Patient	1	MOD^AUPNVSIT
Patient Care Component	1	^APCDCHKP
Uncategorized	1	($$A08,A08)^BTSEVENT
VA Fileman	1	^DIE

Entry Points

Name	Comments	DBIA/ICR reference
DELPRC	;
PROCESS	; Process each "In hospital" record ; Set variables
EOJ	; Clean up and XIT
DRIVER
CHECK	;
INIT	;
CHKYR	;
TSKMN	;
CHKPROC	;
CHKHOSP	; Check corresponding V Hospitalization for discharge date
PROC2	;

External References

Name	Field # of Occurrence
^%ZIS	APCDCHKI+7
^%ZISC	EOJ+1
^%ZTLOAD	TSKMN+2
^APCDCHKP	DRIVER+1
MOD^AUPNVSIT	PROCESS+19
$$A08^BTSEVENT	PROCESS+22
A08^BTSEVENT	PROCESS+22
^DIE	PROCESS+16, DELPRC+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This routine will find all In-Hospital visits that are not linked to a",!,"hospitalization and link them if possible." Line Location: APCDCHKI+4
Function Call: WRITE	Prompt: !!,"This process could take some time so you may want to queue the report to ",!,"print after-hours.",! Line Location: APCDCHKI+5
Function Call: WRITE	Prompt: !,"A report will be printed -- please enter the device for printing." Line Location: APCDCHKI+6
Function Call: WRITE	Prompt: !! Line Location: APCDCHKI+7
Routine Call	DIE Line Location: PROCESS+16 DELPRC+4
Routine Call	%ZIS Line Location: APCDCHKI+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^AUPNVPRC - [#9000010.08]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVCHS - [#9000010.03]	CHKHOSP+3
^AUPNVCHS("AD"	CHKHOSP+1
^AUPNVINP - [#9000010.02]	CHKHOSP+4
^AUPNVINP("AD"	CHKHOSP+1
^AUPNVPRC - [#9000010.08]	CHKPROC+1, CHKPROC+2, DELPRC+1, DELPRC+3
^AUPNVPRC("AD"	CHKPROC+1, CHKPROC+2
^AUPNVSIT - [#9000010]	PROCESS+2, PROCESS+3, PROCESS+6, PROC2+1, CHECK+1
^AUPNVSIT("AAH"	PROCESS+11, PROC2+1
^AUPNVSIT("AI"	DRIVER, PROCESS+2!, PROCESS+4!, PROCESS+5!, PROCESS+6!, PROCESS+7!, CHKYR+1!
^XTMP("ILINK"	INIT+2!, PROCESS+12, PROCESS+17, PROCESS+24, CHKYR+1, DELPRC+3*, DELPRC+5!, EOJ+2!

Label References

Name	Line Occurrences
CHECK	PROC2+1
CHKPROC	PROCESS+18
CHKYR	PROCESS+13
DELPRC	CHKPROC+2
EOJ	APCDCHKI+7, DRIVER+2, TSKMN+2
PROC2	PROCESS+11
PROCESS	DRIVER
TSKMN	APCDCHKI+7

Naked Globals

Name	Field # of Occurrence
^(0	PROC2+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	CHKYR+1*
>> %ZIS	APCDCHKI+7*
APCDDCD	PROCESS+17, CHKHOSP+3, CHKHOSP+4, CHKHOSP+5, EOJ+3!
APCDDT	EOJ+3!
APCDFND	PROCESS+8, PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+24, CHKHOSP+5, CHKYR+1, EOJ+3!
APCDHDAT	CHECK+2*, EOJ+3!
APCDHDFN	PROCESS+8, PROCESS+10, PROCESS+12, PROCESS+15, PROCESS+17, PROCESS+19, PROC2+1*, CHECK+1, CHKHOSP+1, CHKHOSP+5 , CHKPROC+1, EOJ+3!
APCDHLER	PROCESS+22*!
APCDHLOC	CHECK+2*, EOJ+3!
APCDHOSP	PROCESS+8!, EOJ+3!
APCDHOSP(	PROCESS+12, CHKHOSP+5*
APCDHOSP(""	PROCESS+15
APCDHPRC	EOJ+4!
APCDHPRC(	CHKPROC+1*, CHKPROC+2, DELPRC+1
APCDHTYP	CHECK+2*, EOJ+3!
APCDHV	EOJ+3!
APCDHVR	CHECK+1*, CHECK+2, EOJ+3!
APCDICDP	CHKPROC+2*, DELPRC+1, EOJ+4!
APCDIDAT	PROCESS+8*, EOJ+3!
APCDIDFN	INIT+3, DRIVER, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+12, PROCESS+15 , PROCESS+17, PROCESS+21, PROCESS+22, PROCESS+24, CHKYR+1, CHKPROC+2, EOJ+3!
APCDILOC	PROCESS+8*, EOJ+3!
APCDINPD	CHKHOSP+1*, CHKHOSP+2, CHKHOSP+3, CHKHOSP+4, EOJ+3!
APCDITYP	PROCESS+8*, CHKHOSP+1, CHKHOSP+3, CHKHOSP+4, EOJ+3!
APCDIVR	PROCESS+3*, PROCESS+4, PROCESS+5, PROCESS+7, PROCESS+8, EOJ+3!
APCDL	PROCESS+12*, EOJ+4!
APCDOLD	PROCESS+8, PROCESS+24, CHKYR+1, EOJ+3!
APCDPG	EOJ+3!
APCDSVD	PROCESS+10, PROCESS+11, PROC2+1, EOJ+3!
APCDT	EOJ+3!
APCDTYPE	EOJ+3!
APCDVD	PROCESS+8*, PROCESS+10, CHKHOSP+5, CHKYR+1, EOJ+3!
APCDVDH	PROCESS+10*, PROCESS+11, EOJ+3!
APCDVPRC	CHKPROC+1, CHKPROC+2, DELPRC+1, DELPRC+3, DELPRC+4, DELPRC+5, EOJ+4!
>> AUPNVSIT	PROCESS+19*
DA	PROCESS+15, PROCESS+16!, DELPRC+4!
DFN	PROCESS+8*, PROCESS+11, PROC2+1, EOJ+3!
DIE	PROCESS+15, PROCESS+16!, DELPRC+4!
DR	PROCESS+15, PROCESS+16!, DELPRC+4!
DT	CHKYR+1
IO("Q"	APCDCHKI+7, EOJ+3!
>> IOCPU	TSKMN+2
ION	TSKMN+2
>> POP	APCDCHKI+7
U	INIT+3*, PROCESS+4, PROCESS+5, PROCESS+6, PROCESS+7, PROCESS+8, PROC2+1, CHECK+2, CHKHOSP+3, CHKHOSP+4 , CHKPROC+1, CHKPROC+2, DELPRC+1
>> Y	DELPRC+5
>> ZTCPU	TSKMN+2*
>> ZTDESC	TSKMN+2*
>> ZTDTH	TSKMN+2*
>> ZTIO	TSKMN+2*
>> ZTQUEUED	INIT+1
>> ZTREQ	INIT+1*
>> ZTRTN	TSKMN+2*
ZTSAVE	TSKMN+1!

Marked Items

Customize PDF page

Package: Patient Care Component

Routine: APCDCHKI

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items