Routine: PSULRHL3

Package	Total	Call Graph
VA Fileman	3	(C,NOW)^%DTC (FILE,UPDATE)^DIE ^DIR
Kernel	1	($$LIST,CLOSE,OPEN)^%ZISH

Entry Points

Name	Comments	DBIA/ICR reference
CULL	; Cull all entries for a facility that have been processed on or before the date in FD x-ref
HEAD	;
ERROR(CODE,FAC,MESSAGE)	; Error processing
PROCESS	; This process loops through the file containing parsed HL7 data. ; This process runs each day and collects up to the previous days data. ; The data is ordered by facility. All the data for the facility for ; for up to the previous day gets filed into one flat file for PBM to ; process. A pre-init sub routine CULL loops through all x-refs that ; indicate processed data for facility and date and culls the data and ; removes the FD x-ref. ;
OPEN()	; Open the output directory
ERORDSP	; Display errors
PRTC	;press return to continue prompt
FILE	; File the lab data to the output file in the following single string format.
CLOSE	; Set Cross ref indicating that facilities data for the day got ; processed, and close the output file.

External References

Name	Field # of Occurrence
C^%DTC	PROCESS+17
NOW^%DTC	PROCESS+15
$$LIST^%ZISH	OPEN+8
CLOSE^%ZISH	CLOSE+7
OPEN^%ZISH	OPEN+10
FILE^DIE	CULL+11, CULL+19
UPDATE^DIE	CLOSE+6, ERROR+9
^DIR	PRTC+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: STR_LABA_LABB_LABC,! Line Location: FILE+41
Function Call: WRITE	Prompt: "No Error's to report." Line Location: ERORDSP+5
Function Call: WRITE	Prompt: !," "_MSG,! Line Location: ERORDSP+17
Function Call: WRITE	Prompt: " "_DATE,?71,"Page ",PG,!! Line Location: HEAD+2
Function Call: WRITE	Prompt: " Error log for PBM III national database processing.",! Line Location: HEAD+3
Function Call: WRITE	Prompt: " ---------------------------------------------------",! Line Location: HEAD+4
Routine Call	DIE Line Location: CLOSE+6 ERROR+9
Routine Call	DIE Line Location: CULL+11 CULL+19
Routine Call	DIR Line Location: PRTC+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIZ(99999	PROCESS+22, PROCESS+24, PROCESS+29, PROCESS+32, PROCESS+34, FILE+9, FILE+13, FILE+16, FILE+17, FILE+23 , FILE+24, FILE+25, CULL+3, CULL+5, CULL+9, CULL+13, CULL+15, CULL+17, ERORDSP+5, ERORDSP+9 , ERORDSP+12, ERORDSP+14, ERORDSP+15

Label References

Name	Line Occurrences
$$OPEN	PROCESS+36
CLOSE	PROCESS+27, PROCESS+40
CULL	PROCESS+9
ERROR	PROCESS+25, OPEN+8, OPEN+11
FILE	PROCESS+39
HEAD	ERORDSP+4, ERORDSP+16
PRTC	ERORDSP+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PROCESS+15
A	CULL+1~, CULL+18!
A(99999	CULL+19*
ARR	ERROR+1~
B	CULL+1~, CULL+10!
B(99999	CULL+11*
CNT	FILE+6~
CODE	ERROR~, ERROR+2, ERROR+3, ERROR+4
CR	FILE+6~
DATE	PROCESS+28, PROCESS+29, PROCESS+32, PROCESS+34, ERORDSP+2~, ERORDSP+3*, HEAD+2
DELLIEN	CULL+1~, CULL+8, CULL+9, CULL+11
DFN	PROCESS+12~, PROCESS+31, PROCESS+32, PROCESS+34, FILE+6~, FILE+10, FILE+19, CULL+1~, CULL+14, CULL+15* , CULL+17
DIR	PRTC+2!
DIR(0	PRTC+2*
DONE	ERORDSP+2~, ERORDSP+16, PRTC+2*
DST	OPEN+1~, OPEN+6!
DT	OPEN+2, ERROR+2, ERROR+3, ERROR+6, ERORDSP+3
EDATE	PROCESS+12~, PROCESS+15, PROCESS+29, ERORDSP+2~, ERORDSP+11, ERORDSP+12*, ERORDSP+14
FAC	FILE+6~, FILE+10, FILE+19, ERROR~, ERROR+6, ERROR+7, CULL+1~, CULL+2, CULL+3, CULL+5 , CULL+9, CULL+13, CULL+15, CULL+17, ERORDSP+2~, ERORDSP+8, ERORDSP+9*, ERORDSP+12, ERORDSP+14
FACILITY	PROCESS+12~, PROCESS+20, PROCESS+22, PROCESS+24, PROCESS+25, PROCESS+29, PROCESS+32, PROCESS+34, OPEN+2, OPEN+8 , OPEN+11
FDA	CLOSE+2~, CLOSE+3!
FDA(99999	CLOSE+4, CLOSE+5, ERROR+7, ERROR+8
FILE	PROCESS+12~, OPEN+2*, OPEN+7, OPEN+8, OPEN+10, OPEN+11, CLOSE+4
HRANGE	FILE+6~, FILE+33, FILE+35, FILE+40
ICN	FILE+6~, FILE+10*, FILE+19
IDATE	CULL+1~, CULL+6, CULL+13, CULL+15, CULL+17
IEN	PROCESS+12~, PROCESS+33, PROCESS+34, FILE+9, FILE+13, FILE+16, FILE+17, FILE+23, FILE+24, FILE+25 , CULL+1~, CULL+16, CULL+17, CULL+19, ERORDSP+2~, ERORDSP+13, ERORDSP+14, ERORDSP+15
IO	FILE+8
IO("S"	PRTC+1
IOF	HEAD+1
IOSL	ERORDSP+16
IOST	PRTC+1
LABA	FILE+6~, FILE+36*, FILE+41
LABB	FILE+6~, FILE+38*, FILE+41
LABC	FILE+6~, FILE+40*, FILE+41
LNCODE	FILE+6~, FILE+29*, FILE+36
LNNAME	FILE+6~, FILE+28*, FILE+36
LOCALLAB	FILE+6~, FILE+27*, FILE+36
LRANGE	FILE+6~, FILE+33, FILE+35, FILE+40
MESSAGE	ERROR~, ERROR+2, ERROR+3, ERROR+5*, ERROR+6
>> MSG	ERORDSP+15*, ERORDSP+17
NLTCODE	FILE+6~, FILE+27*, FILE+36
NLTNAME	FILE+6~, FILE+28*, FILE+36
OPEN	PROCESS+12~, PROCESS+20, PROCESS+27, PROCESS+35, PROCESS+38*, PROCESS+40
OUTDIR	PROCESS+12~, OPEN+4*, OPEN+8, OPEN+10, OPEN+11
PDATE	CULL+1~, CULL+4, CULL+5, CULL+9, CULL+13
PG	ERORDSP+2~, ERORDSP+3, HEAD+1, HEAD+2
POP	OPEN+1~, OPEN+11
PSUDTE	PROCESS+12~
QUIT	PROCESS+12~, PROCESS+20, PROCESS+22, PROCESS+29, PROCESS+32, PROCESS+34, PROCESS+37
RANGE	FILE+6~, FILE+30*, FILE+32, FILE+33, FILE+34, FILE+35
RC	PROCESS+12~, PROCESS+35, PROCESS+36*, PROCESS+37
RDATE	PROCESS+12~, PROCESS+17*, PROCESS+24, PROCESS+25, CLOSE+5
REC	FILE+6~, FILE+9*, FILE+10
RESIEN	FILE+6~, FILE+21, FILE+23, FILE+24, FILE+25
RESREC	FILE+6~, FILE+24*, FILE+27, FILE+28, FILE+29
RESREC1	FILE+6~, FILE+25*, FILE+30
RESULT	FILE+6~, FILE+29*, FILE+38
SDATE	PROCESS+12~
SPEC	FILE+6~, FILE+18*, FILE+19
SPECDATE	FILE+6~, FILE+18*, FILE+19
SPECIEN	FILE+6~, FILE+12, FILE+13, FILE+16, FILE+17, FILE+23, FILE+24, FILE+25
SPECREC	FILE+6~, FILE+17*, FILE+18
SRC	OPEN+1~, OPEN+6!
SRC(	OPEN+7*
SSN	FILE+6~, FILE+10*, FILE+19
STR	FILE+6~, FILE+19, FILE+41, ERROR+1~, ERROR+2, ERROR+3, ERROR+6, ERROR+8
STR1	FILE+6~
TEMP	PROCESS+12~, PROCESS+15*, PROCESS+17
TEST	FILE+6~, FILE+15, FILE+16
U	FILE+10, FILE+18, FILE+27, FILE+28, FILE+29, FILE+30
UNITS	FILE+6~, FILE+30*, FILE+38
X	PROCESS+12~, PROCESS+17
X1	PROCESS+12~, PROCESS+17*
X2	PROCESS+12~, PROCESS+17*
>> Y	PRTC+2

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSULRHL3

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: