Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSULRHL3

Package: Pharmacy Benefits Management

Routine: PSULRHL3


Information

PSULRHL3 ;HCIOFO/BH - Daily file procesing ; 1/20/11 3:03pm

Source Information

Source file <PSULRHL3.m>

Call Graph

Call Graph

Call Graph Total: 4

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
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
CLOSE ; Set Cross ref indicating that facilities data for the day got
; processed, and close the output file.
FILE ; File the lab data to the output file in the following single string format.
ERROR(CODE,FAC,MESSAGE) ; Error processing
CULL ; Cull all entries for a facility that have been processed on or before the date in FD x-ref
ERORDSP ; Display errors
HEAD ;
PRTC ;press return to continue prompt

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+44
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:
    • CULL+11
    • CULL+19
Routine Call
  • DIE
  • Line Location:
    • CLOSE+6
    • ERROR+9
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+12, FILE+16, FILE+19, FILE+20, FILE+26
, FILE+27, FILE+28, 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+7~
CODE ERROR~, ERROR+2, ERROR+3, ERROR+4
CR FILE+7~
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+7~, FILE+13*, FILE+22, 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+7~, FILE+13*, FILE+22, 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+7~, FILE+36*, FILE+38*, FILE+43
ICN FILE+7~, FILE+13*, FILE+22
IDATE CULL+1~, CULL+6*, CULL+13*, CULL+15, CULL+17
IEN PROCESS+12~, PROCESS+33*, PROCESS+34*, FILE+12, FILE+16, FILE+19, FILE+20, FILE+26, FILE+27, FILE+28
, CULL+1~, CULL+16*, CULL+17*, CULL+19, ERORDSP+2~, ERORDSP+13*, ERORDSP+14*, ERORDSP+15
IO FILE+11
IO("S" PRTC+1
IOF HEAD+1
IOSL ERORDSP+16
IOST PRTC+1
LABA FILE+7~, FILE+39*, FILE+44
LABB FILE+7~, FILE+41*, FILE+44
LABC FILE+7~, FILE+43*, FILE+44
LNCODE FILE+7~, FILE+32*, FILE+39
LNNAME FILE+7~, FILE+31*, FILE+39
LOCALLAB FILE+7~, FILE+30*, FILE+39
LRANGE FILE+8~, FILE+36*, FILE+38*, FILE+43
MESSAGE ERROR~, ERROR+2, ERROR+3, ERROR+5*, ERROR+6
>> MSG ERORDSP+15*, ERORDSP+17
NLTCODE FILE+8~, FILE+30*, FILE+39
NLTNAME FILE+8~, FILE+31*, FILE+39
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+8~, FILE+33*, FILE+35, FILE+36, FILE+37, FILE+38
RC PROCESS+12~, PROCESS+35, PROCESS+36*, PROCESS+37
RDATE PROCESS+12~, PROCESS+17*, PROCESS+24, PROCESS+25, CLOSE+5
REC FILE+8~, FILE+12*, FILE+13
RESIEN FILE+8~, FILE+24*, FILE+26*, FILE+27, FILE+28
RESREC FILE+8~, FILE+27*, FILE+30, FILE+31, FILE+32
RESREC1 FILE+8~, FILE+28*, FILE+33
RESULT FILE+8~, FILE+32*, FILE+41
SDATE PROCESS+12~
SPEC FILE+8~, FILE+21*, FILE+22
SPECDATE FILE+9~, FILE+21*, FILE+22
SPECIEN FILE+9~, FILE+15*, FILE+16*, FILE+19, FILE+20, FILE+26, FILE+27, FILE+28
SPECREC FILE+9~, FILE+20*, FILE+21
SRC OPEN+1~, OPEN+6!
SRC( OPEN+7*
SSN FILE+9~, FILE+13*, FILE+22
STA5A FILE+9~, FILE+13*, FILE+22
STR FILE+9~, FILE+22*, FILE+44, ERROR+1~, ERROR+2*, ERROR+3*, ERROR+6*, ERROR+8
STR1 FILE+9~
TEMP PROCESS+12~, PROCESS+15*, PROCESS+17
TEST FILE+9~, FILE+18*, FILE+19*
U FILE+13, FILE+21, FILE+30, FILE+31, FILE+32, FILE+33
UNITS FILE+9~, FILE+33*, FILE+41
X PROCESS+12~, PROCESS+17
X1 PROCESS+12~, PROCESS+17*
X2 PROCESS+12~, PROCESS+17*
>> Y PRTC+2
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All