Routine: APCPDR

Package	Total	Call Graph
Patient Care Component Data Transmission	6	^APCPDR2 ^APCPDRI ERRBULL^APCPDRI3 (,RUNTIME)^APCPEOJ ^APCPLOG EN^APCPTAPE
VA Fileman	3	(,NOW)^%DTC ^DIE ^DIR
IHS Patient	2	KILL^AUPNPAT $$UID^AUPNVSIT
Kernel	1	$$FMADD^XLFDT

Package

Total

Call Graph

Patient Care Component Data Transmission

^APCPDR2 ^APCPDRI ERRBULL^APCPDRI3 (,RUNTIME)^APCPEOJ ^APCPLOG EN^APCPTAPE

VA Fileman

(,NOW)^%DTC ^DIE ^DIR

IHS Patient

KILL^AUPNPAT $$UID^AUPNVSIT

Kernel

$$FMADD^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
RESET	; kill PCIS xref and set flag if tx 23 or 24 generated
PROCESS	;
EOJ	; EOJ
PURGE2	;
DRIVER	;EP called from TSKMN+2
PURGE	; PURGE 'APCIS' XREF FOR VISITS JUST DONE
START	;EP - called from option
ABORT	; ABNORMAL TERMINATION
TAPE	; COPY TRANSACTIONS TO TAPE
PROCESS3	;
PROCESS2	;
CHKLOG	; CHECK LOG FILE

External References

Name	Field # of Occurrence
^%DTC	DRIVER+3
NOW^%DTC	DRIVER+2
^APCPDR2	PROCESS3+10
^APCPDRI	START+3
ERRBULL^APCPDRI3	TAPE+3, ABORT+2
^APCPEOJ	EOJ+1
RUNTIME^APCPEOJ	DRIVER+18
^APCPLOG	DRIVER+15
EN^APCPTAPE	TAPE+3, TAPE+11
KILL^AUPNPAT	PROCESS3+2
$$UID^AUPNVSIT	PROCESS3+7
^DIE	DRIVER+9, RESET+2
^DIR	DRIVER+22, TAPE+8, ABORT+4
$$FMADD^XLFDT	PROCESS+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Okay, request queued!!",!! Line Location: START+4
Function Call: WRITE	Prompt: !!,"Bye",!! Line Location: START+5
Function Call: WRITE	Prompt: !,"-->There are more than fifteen 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: DRIVER+9 RESET+2
Routine Call	DIR Line Location: DRIVER+22 TAPE+8 ABORT+4

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	DRIVER+7
^APCPERRC("B"	ABORT+1
^APCPLOG - [#9001005]	PROCESS3+3, PROCESS3+11, PROCESS3+12, PROCESS3+13*, CHKLOG+1
^APCPSITE(1	TAPE+1, TAPE+3, TAPE+5
^AUPNVSIT - [#9000010]	PROCESS3+6, PROCESS3+7*, PROCESS3+8
^AUPNVSIT("APCIS"	PROCESS+4, PROCESS2+1, RESET+1!
^AUTTSITE(1	DRIVER+5, DRIVER+6, DRIVER+7, DRIVER+8
^XTMP("APCPDR"	PROCESS+1, PROCESS3+4, PROCESS3+12, PURGE+3, PURGE+4!, PURGE2+1, RESET+2

Name	Line Occurrences
ABORT	START+6, DRIVER+11, DRIVER+14, DRIVER+16, DRIVER+20
CHKLOG	DRIVER+21
EOJ	START+4, START+5, DRIVER+23, ABORT+2, ABORT+5
PROCESS	DRIVER+13
PROCESS2	PROCESS+4
PROCESS3	PROCESS2+1
PURGE	DRIVER+17
PURGE2	PURGE+3
RESET	PURGE2+1
TAPE	DRIVER+19

Name	Field # of Occurrence
^(0	PROCESS3+13*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Patient Care Component Data Transmission

Routine: APCPDR

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: