Routine: APCLUPST

Package	Total	Call Graph
IHS VA Utilities	3	^XBDBQUE ^XBFMK EN^XBVK
Kernel	3	^%ZISC ($$OPEN,$$STATUS)^%ZISH $$FMTE^XLFDT
Patient Care Component Reports	2	XTMP^APCLOSUT ^APCLSTMP
VA Fileman	2	^%DT ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
LOAD	;
STRIP(Z)	;REMOVE CONTROL CHARACTERS
UPL	;
E	;
ZIS	;call to XBDBQUE
HEAD1	;
READF	;read file
FILE	;upload global
GETPAT	;
HEAD
START	;start processing
XIT	;
TEMPLATE	;If Template was selected
PRINT	;EP - called from xbdbque
PROC	;EP - called from xbdbque
DIR	;

External References

Name	Field # of Occurrence
^%DT	LOAD+8
^%ZISC	READF+7
$$OPEN^%ZISH	READF+3
$$STATUS^%ZISH	READF+6
XTMP^APCLOSUT	FILE+2
^APCLSTMP	TEMPLATE+3
^DIR	DIR+3, DIR+7, HEAD+1
^XBDBQUE	ZIS+2
^XBFMK	XIT+3
EN^XBVK	XIT+2
$$FMTE^XLFDT	HEAD1+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Log into Kernel first" Line Location: START+1
Function Call: WRITE	Prompt: !!,"This option should be used to upload patients from a file that is in the ",!,"format ASUFAC^HRN^DOB and store those patients in a search template." Line Location: START+3
Function Call: WRITE	Prompt: !,"You will be asked to provide the directory path and filename where the",!,"file resides. You will also be asked to enter the name of the search",!,"template that will be created.",! Line Location: START+4
Function Call: WRITE	Prompt: !,"When entering the directory path, enter a full path name with the ending '/'",!,"for example, /usr/spool/uucppublic/ or /usr/mumps/. When entering the ",!,"filename enter the extension as well, for example, MYFILE.TXT.",! Line Location: START+5
Function Call: WRITE	Prompt: !,"You must first enter the name of the search template to be created." Line Location: TEMPLATE+1
Function Call: WRITE	Prompt: !!,"Bye. File not accessed.",! Line Location: UPL+2
Function Call: WRITE	Prompt: !!,APCLC," records were read from the file.",! Line Location: UPL+3
Function Call: WRITE	Prompt: !!,"Now enter the device to which the results of the upload, including any errors",!,"will be printed.",! Line Location: UPL+4
Function Call: WRITE	Prompt: !,"Read ",APCLCNT," records. Loaded ",APCLLOAD," patients.",! Line Location: PRINT+4
Function Call: WRITE	Prompt: !!,"The following errors occurred: " Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"Now enter the directory path and filename where the data can be found.",! Line Location: DIR+1
Function Call: WRITE	Prompt: !!,"Directory not entered!! Bye." Line Location: DIR+4
Function Call: WRITE	Prompt: !,"Directory=",APCLDIR," ","File=",APCLFILE," reading file Hold on...",! Line Location: DIR+10
Function Call: WRITE	Prompt: !,*7,"CANNOT OPEN (OR ACCESS) FILE '",APCLDIR,APCLFILE,"'." Line Location: READF+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: READF+6
Function Call: WRITE	Prompt: !!,"All done reading file",! Line Location: READF+8
Function Call: WRITE	Prompt: ! Line Location: HEAD+1
Function Call: WRITE	Prompt: APCL80S,! Line Location: HEAD1+2
Function Call: WRITE	Prompt: "",?3,$P(^DIC(4,DUZ(2),0),U),?58,$$FMTE^XLFDT(DT),?72,"Page ",APCLPG,?78,"",! Line Location: HEAD1+3
Function Call: WRITE	Prompt: "",?78,"",! Line Location: HEAD1+4
Function Call: WRITE	Prompt: "RESULTS OF UPLOADING PATIENTS INTO A SEARCH TEMPLATE",! Line Location: HEAD1+5
Function Call: WRITE	Prompt: !,"SEARCH TEMPLATE CREATED: ",$P(^DIBT(APCLSTMP,0),U),! Line Location: HEAD1+6
Function Call: WRITE	Prompt: APCL80S,! Line Location: HEAD1+7
Routine Call	DIR Line Location: DIR+3 DIR+7 HEAD+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT("D"	GETPAT+1
^AUTTLOC("C"	LOAD+5
^DIBT(	LOAD+11*, HEAD1+6
^DIC(4 - [#4]	HEAD1+3
^DPT - [#2]	GETPAT+3
^XTMP("APCLUPST"	PRINT+6, PRINT+8, PRINT+10!, E+2, PROC+3, READF+5!, READF+6

Label References

Name	Line Occurrences
$$STRIP	READF+6
DIR	DIR+8
E	LOAD+7, GETPAT+2, GETPAT+3
FILE	UPL+1
GETPAT	LOAD+9
HEAD	PRINT+3, PRINT+7
HEAD1	HEAD
LOAD	PROC+3
XIT	TEMPLATE+4, UPL+2, ZIS+3, PRINT+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	LOAD+8!*
>> APCL80S	PRINT+1*, HEAD1+2, HEAD1+7
>> APCLC	UPL+3, READF+2, READF+6
>> APCLCNT	PRINT+4, PROC+2, LOAD+3, LOAD+7, GETPAT+2, GETPAT+3
>> APCLDIR	DIR+2, DIR+5, DIR+10, READF+3, READF+4
>> APCLDOB	LOAD+4, LOAD+8, GETPAT+3
>> APCLE	E+1, E+2, PROC+1
>> APCLFAC	LOAD+5*, LOAD+6, GETPAT+1
>> APCLFACN	LOAD+4*, LOAD+5, LOAD+7, GETPAT+2
>> APCLFILE	DIR+6, DIR+9, DIR+10, READF+3, READF+4
>> APCLH	PRINT+6, PRINT+8, PRINT+10, E+2, PROC+3, FILE+1*, READF+5, READF+6
>> APCLHRN	LOAD+4*, GETPAT+1, GETPAT+2
>> APCLJ	PRINT+6, PRINT+8, PRINT+10, E+2, PROC+3, FILE+1*, READF+5, READF+6
>> APCLLOAD	PRINT+4, PROC+2, LOAD+12
>> APCLPAT	LOAD+9, LOAD+10, LOAD+11, GETPAT+1, GETPAT+2, GETPAT+3*
>> APCLPG	PRINT+2, HEAD, HEAD1+1, HEAD1+3
APCLQUIT	UPL+1, UPL+2, PRINT+2!, PRINT+7, DIR+4, READF+4, HEAD+1
>> APCLR	PROC+3*
APCLSNAM	TEMPLATE+2!
APCLSTMP	TEMPLATE+2!, TEMPLATE+4, LOAD+11, HEAD1+6
>> APCLX	PRINT+6, PRINT+8, PROC+3, LOAD+2, LOAD+4
AUPNLK	XIT+1!
AUPNLK("ALL"	LOAD+1*
AUPNLK("INAC"	LOAD+1*
DA	DIR+3!, DIR+7!
DIR	DIR+3!, DIR+7!, HEAD+1!
DIR("A"	DIR+3, DIR+7
DIR(0	DIR+3, DIR+7, HEAD+1*
>> DIRUT	DIR+4, DIR+8
DT	HEAD1+3
DTIME	READF+6
>> DTOUT	HEAD+1
DUZ	START+1
DUZ(2	HEAD1+3
I	READF+1~, READF+6, STRIP+1~, STRIP+2
IO	READF+6, HEAD+1
IO(0	HEAD+1
IOF	START+2, HEAD1+1
IOSL	PRINT+7
IOST	HEAD+1
U	LOAD+4, GETPAT+3, HEAD1+3, HEAD1+6
X	E+2, LOAD+7, LOAD+8, GETPAT+1, GETPAT+2, GETPAT+3, READF+1~, READF+6
>> XBNS	ZIS+1*
>> XBRC	ZIS+1*
>> XBRP	ZIS+1*
>> XBRX	ZIS+1*
Y	LOAD+8, DIR+5, DIR+9, READF+1~, READF+3*, READF+4, HEAD+1
Z	STRIP~, STRIP+2*, STRIP+3

Customize PDF page

Package: Patient Care Component Reports

Routine: APCLUPST

Information

Source Information

Call Graph

Call Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: