Routine: APCPREDO

Package	Total	Call Graph
Patient Care Component Data Transmission	7	^APCPDR2 (,QUEUE)^APCPDRI ERRBULL^APCPDRI3 (,RUNTIME)^APCPEOJ INIT^APCPRED1 ^APCPRLOG EN^APCPTAPE
VA Fileman	3	(,NOW)^%DTC ^DIE ^DIR
IHS Patient	1	$$UID^AUPNVSIT
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMADD^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP FROM TASKMAN
PROCESS	;
EOJ	;
ABORT	; ABNORMAL TERMINATION
START	;
INIT	;
SETUTIL
TAPE	; COPY TRANSACTIONS TO TAPE
PROCESS2	;
CHKLOG	; CHECK LOG FILE
RESETV	; RESET VISIT DATA IN LOG

External References

Name	Field # of Occurrence
^%DTC	EN+4
NOW^%DTC	EN+2
^APCPDR2	PROCESS2+10
^APCPDRI	START+2
QUEUE^APCPDRI	START+6
ERRBULL^APCPDRI3	ABORT+2
^APCPEOJ	EOJ+1
RUNTIME^APCPEOJ	EN+15
INIT^APCPRED1	INIT+1
^APCPRLOG	EN+13
EN^APCPTAPE	TAPE+3, TAPE+10
$$UID^AUPNVSIT	PROCESS2+5
^DIE	EN+10, RESETV+5
^DIR	EN+20, TAPE+7, ABORT+4
^XBFMK	EN+10
$$FMADD^XLFDT	PROCESS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: START+3
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: START+5
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: START+7
Function Call: WRITE	Prompt: !!,"Okay your request is queued!",!! Line Location: START+8
Function Call: WRITE	Prompt: !!,"-->There are more than three generations of VISITs stored in the LOG file.",!,"-->Time to do a purge." Line Location: CHKLOG+2
Function Call: WRITE	Prompt: !!,"Abnormal termination!! QFLG=",APCP("QFLG") Line Location: ABORT+3
Routine Call	DIE Line Location: EN+10 RESETV+5
Routine Call	DIR Line Location: EN+20 TAPE+7 ABORT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNVSIT - [#9000010]	Classic Fileman Calls
^APCPLOG - [#9001005]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	EN+8
^APCPERRC("B"	ABORT+1
^APCPLOG - [#9001005]	PROCESS+3, CHKLOG+1, RESETV+2*
^APCPSITE(1	TAPE+1, TAPE+3, TAPE+6
^AUPNVSIT - [#9000010]	PROCESS2+4, PROCESS2+5*, PROCESS2+6
^AUTTSITE(1	EN+6, EN+7, EN+8, EN+9
^XTMP("APCPREDO"	PROCESS+1, PROCESS2+3, SETUTIL*, RESETV+2, RESETV+4, RESETV+5, RESETV+7!

Label References

Name	Line Occurrences
ABORT	EN+12, EN+14, EN+16, TAPE+3
CHKLOG	EN+17
EOJ	START+3, START+5, START+7, START+8, EN+12, EN+14, EN+16, EN+21, ABORT+2
INIT	START+4
PROCESS	EN+11
PROCESS2	PROCESS+3
RESETV	EN+18
TAPE	EN+19

Naked Globals

Name	Field # of Occurrence
^(	RESETV+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+2!
%H	EN+2!
%I	EN+2!
APCP	EN+22!
APCP("APCPTAPE"	TAPE+10*
APCP("BT"	EN+3*
APCP("DEF DEV	ICE" , TAPE+1*, TAPE+2, TAPE+3
APCP("FILENAME"	EN+5, EN+6, EN+8, EN+9, EN+10
APCP("I"	CHKLOG+1*
APCP("MAIN TX	DATE" , EN+2*
APCP("POSTING	DATE" , PROCESS2+9*
APCP("QFLG"	START+3, START+5, START+7, EN+12, EN+14, EN+16, PROCESS+3, TAPE+2, TAPE+3, TAPE+4 , TAPE+11, ABORT+1, ABORT+3
APCP("QFLG1"	ABORT+1*
APCP("RUN LOG	" , EN+10, PROCESS+3, CHKLOG+1, RESETV+2, ABORT+1
APCP("RUN STA	RT" , EN+2*
APCP("V DFN"	PROCESS+3*, PROCESS2+3, PROCESS2+4, PROCESS2+5, PROCESS2+6, SETUTIL
APCP("X"	CHKLOG+1, CHKLOG+2, RESETV+2, RESETV+4*, RESETV+5
APCP("Y"	RESETV+2*
>> APCPCNT	EN+1*, PROCESS2+2, RESETV+2, RESETV+5
>> APCPCNT1	EN+1*
>> APCPCNT2	EN+1*
>> APCPCNTR	PROCESS+2, RESETV+1, RESETV+3*
APCPE	PROCESS2+1!
>> APCPJD	EN+4*, EN+6, EN+8, EN+9
>> APCPO("QUEUE"	START+8
>> APCPO("RUN"	START+1*
APCPV	PROCESS2+1!
APCPV("DEP CO	UNT" , SETUTIL
APCPV("STAT T	X GEN" , PROCESS2+3*, SETUTIL
APCPV("TX GEN	ERATED" , PROCESS2+3*, SETUTIL
APCPV("TYPE"	SETUTIL
APCPV("V DATE	" , PROCESS2+8*
APCPV("V REC"	, PROCESS2+6*, PROCESS2+8
DA	EN+10, EN+20!, TAPE+7!, RESETV+5!, ABORT+1*, ABORT+4!
>> DIE	EN+10, RESETV+5, ABORT+1*
DIR	EN+20!, TAPE+7!, ABORT+4!
DIR("A"	EN+20, TAPE+7, ABORT+4*
DIR("B"	TAPE+7*
DIR(0	EN+20, TAPE+7, ABORT+4*
>> DIRUT	TAPE+8
DR	EN+10, RESETV+5!, ABORT+1*
DT	EN+4, PROCESS+1
U	EN+6, EN+7, EN+8, EN+9, PROCESS+1, PROCESS2+5, SETUTIL, TAPE+1, TAPE+3, TAPE+6
>> X	EN+4
>> X1	EN+4*
>> X2	EN+4*
>> Y	TAPE+9, TAPE+10
>> ZTQUEUED	EN+1, EN+12, EN+14, EN+15, EN+16, EN+17, EN+20, PROCESS+2, TAPE+2, TAPE+3 , TAPE+5, RESETV+1, RESETV+3, ABORT+2

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPREDO

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: