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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: PSUCP1

Package: Pharmacy Benefits Management

Routine: PSUCP1


Information

PSUCP1 ;BIR/TJH,PDW - PBM - CONTROL POINT, MANUAL ENTRY ; 1/12/09 12:12pm

Source Information

Source file <PSUCP1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Pharmacy Benefits Management 2 ($$LEAPYR,OPTS)^PSUCP  ($$VAL,$$VALI)^PSUTL  
VA Fileman 2 ^%DT  ^DIR  
Kernel 1 (,RESETVAR)^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Pharmacy Benefits Management 1 PSUCP  

Entry Points

Name Comments DBIA/ICR reference
MODP ; module selection prompt
DATES ; do this if user entered N, wants date range
EN ; start here
PSUMON ; do this if user asked for monthly report
RPT ; select report type - full report or summary only
PSUHDR ;Display header
DATE ;Date conversion
ERR ; Exit point following erroneous input or ^
SELF ; include self and PSU PBM mailgroup
MODULE ; display and select module(s)
BCKGND ; always run as a background job
DEVICE ;
MASTER ; if monthly, should it be added to master file
ASK ; ask type of report desired
EXIT ; exit point for normal finish
SETDT ; set month name variables
MODHLP

External References

Name Field # of Occurrence
^%DT DATES+4, DATES+8, PSUMON+4, BCKGND+6
^%ZIS DEVICE+6
RESETVAR^%ZIS DEVICE+15
^DIR ASK+6, SELF+6, MASTER+6, RPT+7, BCKGND+9
$$LEAPYR^PSUCP PSUMON+17
OPTS^PSUCP MODULE+1
$$VAL^PSUTL EN+3
$$VALI^PSUTL EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+4
Function Call: WRITE
  • Prompt: !
  • Line Location: DATES+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PSUMON+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SELF+6
Function Call: WRITE
  • Prompt: !
  • Line Location: MASTER+6
Function Call: WRITE
  • Prompt: !!,"Select one or more of the following:",!
  • Line Location: MODULE+2
Function Call: WRITE
  • Prompt: !,I,".",?5,PSUA(I,"M")
  • Line Location: MODULE+3
Function Call: WRITE
  • Prompt: !!,"Laboratory data and a Patient Demographic summary report will be automatically"
  • Line Location: MODULE+4
Function Call: WRITE
  • Prompt: !,"generated if IVs, Unit Dose, or Prescription extracts are chosen."
  • Line Location: MODULE+5
Function Call: WRITE
  • Prompt: !,"You may select all of the modules by entering 'A' for ALL or by using '1:12'."
  • Line Location: MODULE+6
Function Call: WRITE
  • Prompt: !!,"The Provider Data report may take an extended amount of time to run."
  • Line Location: MODULE+7
Function Call: WRITE
  • Prompt: !,"It is recommended that it be run during off peak hours."
  • Line Location: MODULE+8
Function Call: WRITE
  • Prompt: !!,"Select the code(s) associated with the data requested: "
  • Line Location: MODP+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: MODP+2
Function Call: WRITE
  • Prompt: " <??>",$C(7)
  • Line Location: MODP+4
Function Call: WRITE
  • Prompt: !!,"<INVALID CHOICE - ",X,", TRY AGAIN>",$C(7)
  • Line Location: MODHLP+19
Function Call: WRITE
  • Prompt: !!,"No choices were made."
  • Line Location: MODHLP+20
Function Call: WRITE
  • Prompt: !!,"You have selected: "
  • Line Location: MODHLP+24
Function Call: WRITE
  • Prompt: ?20,X," - ",PSUA(X,"M"),!
  • Line Location: MODHLP+25
Function Call: WRITE
  • Prompt: ?20,"Patient Demographic Summary"
  • Line Location: MODHLP+27
Function Call: WRITE
  • Prompt: !
  • Line Location: MODHLP+27
Function Call: WRITE
  • Prompt: !
  • Line Location: RPT+7
Function Call: WRITE
  • Prompt: !!,"This report will automatically run as a background job."
  • Line Location: BCKGND+1
Function Call: WRITE
  • Prompt: !
  • Line Location: BCKGND+9
Function Call: WRITE
  • Prompt: !,"HARDCOPIES NOT AVAILABLE FOR THIS OPTION"
  • Line Location: DEVICE+3
Function Call: READ
  • Prompt: "-> "
  • Formatting: !
  • Timeout: DTIME
  • Variable: PSUX
  • Line Location: DEVICE+12
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: DEVICE+12
Function Call: WRITE
  • Prompt: !!,"The Pharmacy Benefits Management (PBM) report will extract"
  • Line Location: PSUHDR+1
Function Call: WRITE
  • Prompt: !,"statistics from one or more of the following files:",!
  • Line Location: PSUHDR+2
Function Call: WRITE
  • Prompt: !,"1. Pharmacy Patient IV Sub-file File # 55.01"
  • Line Location: PSUHDR+3
Function Call: WRITE
  • Prompt: !,"2. Pharmacy Patient UD Sub-file File # 55.06"
  • Line Location: PSUHDR+4
Function Call: WRITE
  • Prompt: !,"3. AR/WS Stats File # 58.5"
  • Line Location: PSUHDR+5
Function Call: WRITE
  • Prompt: !,"4. Prescription File # 52"
  • Line Location: PSUHDR+6
Function Call: WRITE
  • Prompt: !,"5. Procurement File # 58.811,# 58.81"
  • Line Location: PSUHDR+7
Function Call: WRITE
  • Prompt: !,"6. Controlled Substances File # 58.81"
  • Line Location: PSUHDR+8
Function Call: WRITE
  • Prompt: !,"7. Patient Demographics File # 2"
  • Line Location: PSUHDR+9
Function Call: WRITE
  • Prompt: !,"8. Outpatient Visits File # 9000010,# 9000010.07"
  • Line Location: PSUHDR+10
Function Call: WRITE
  • Prompt: !,"9. Inpatient PTF Record File # 45"
  • Line Location: PSUHDR+11
Function Call: WRITE
  • Prompt: !,"10. Provider Data File # 200,# 7,# 49,# 8932.1"
  • Line Location: PSUHDR+12
Function Call: WRITE
  • Prompt: !,"11. Allergy/Adverse Event File # 120.8,# 120.85"
  • Line Location: PSUHDR+13
Function Call: WRITE
  • Prompt: !,"12. Vitals/Immunization Record File # 120.5,# 9999999.14"
  • Line Location: PSUHDR+14
Function Call: WRITE
  • Prompt: !,"13. Laboratory File # 60,# 63"
  • Line Location: PSUHDR+15
Function Call: WRITE
  • Prompt: !!,"This data can be collected for ALL of the files listed or for one or"
  • Line Location: PSUHDR+17
Function Call: WRITE
  • Prompt: !,"more specific files. A summary of data or a detailed report by drug"
  • Line Location: PSUHDR+18
Function Call: WRITE
  • Prompt: !,"can be delivered to you in a mail message or in a hard copy report.",!!
  • Line Location: PSUHDR+19
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+15
Routine Call
  • DIR
  • Line Location:
    • ASK+6
    • SELF+6
    • MASTER+6
    • RPT+7
    • BCKGND+9
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DATE+1
^XTMP("PSU_" PSUMON+24*, SETDT+4*, SELF+8*, SELF+9*, MODHLP+31*

Label References

Name Line Occurrences
ASK PSUMON+22
DATE SETDT+1, SETDT+2, SETDT+3
DATES DATES+20, SELF+7
ERR ASK+7, DATES+19, PSUMON+22, SELF+7, MASTER+7, MODP+2, MODP+3, RPT+11, BCKGND+10, DEVICE+2
MASTER MODP+3
MODHLP MODHLP+20
MODP MODHLP, MODHLP+19
MODULE MODHLP, RPT+11
PSUHDR EN+1
PSUMON PSUMON+23
SELF MASTER+7, MODP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATES+3*, DATES+4!, DATES+7*, DATES+8!, PSUMON+3*, PSUMON+4!, BCKGND+6*
%DT("A" DATES+3*, DATES+7*, PSUMON+3*
%DT(0 DATES+3*, DATES+7*, PSUMON+3*
%ZIS DEVICE+5*, DEVICE+6!
%ZIS("A" DEVICE+5*
%ZIS("B" DEVICE+5*
DIR ASK+6!, SELF+6!, MASTER+6!, RPT+7!, BCKGND+9!
DIR("?" ASK+1*, ASK+2*, ASK+3*, ASK+4*, SELF+4*, MASTER+4*, RPT+4*, RPT+5*, BCKGND+3*, BCKGND+4*
, BCKGND+5*
DIR("A" ASK+5*, SELF+3*, MASTER+3*, RPT+3*, BCKGND+7*
DIR("B" SELF+5*, MASTER+5*, RPT+6*, BCKGND+8*
DIR(0 ASK+5*, SELF+5*, MASTER+5*, RPT+6*, BCKGND+7*
DIROUT SELF+6!, MASTER+6!, RPT+7!
DIRUT SELF+6!, MASTER+6!, RPT+7!
DT DATES+15, PSUMON+7
DTIME MODP+2, DEVICE+12
DTOUT ASK+7, ASK+8!, PSUMON+3!, PSUMON+5, SELF+6!, MASTER+6!, RPT+7!, BCKGND+10, BCKGND+11!
DUOUT SELF+6!, MASTER+6!, RPT+7!
DUZ SELF+8
ERC ASK+9*, DATES+5*, DATES+9*, DATES+14*, DATES+18*, DATES+19, DATES+20*, PSUMON+5*, PSUMON+6, PSUMON+7
, PSUMON+10*, PSUMON+11, PSUMON+14*, PSUMON+22, PSUMON+23*, MODHLP+18*, MODHLP+19, ERR+1!
>> I MODULE+3*
IOM DEVICE+4, DEVICE+14
ION DEVICE+4, DEVICE+14
IOSL DEVICE+4, DEVICE+14
IOST DEVICE+4, DEVICE+7, DEVICE+14
MNUM PSUMON+15*, PSUMON+18, ERR+1!
MOD ERR+1!
PII MODHLP+9*, MODHLP+10, MODHLP+22*, ERR+1!
PJJ MODHLP+15*, MODHLP+16!
>> POP DEVICE+2, DEVICE+3*, DEVICE+7*
PSUA ERR+1!
PSUA( MODULE+3, MODHLP+18, MODHLP+25
PSUAM ASK+9*, DATES+1, PSUMON+1, MASTER+2, MODP+3, ERR+1!
>> PSUDTH BCKGND+12*
PSUDUZ SELF+2*, SELF+8*, DEVICE+2, ERR+1!
PSUEDT DATES+10*, DATES+11, DATES+13!, DATES+15, DATES+17!, PSUMON+18*, SETDT+2, ERR+1!
>> PSUERR EN+2*, ERR+4*
>> PSUFLAG1 SELF+8*
>> PSUFLAG2 SELF+8*
>> PSUFLAG3 SELF+9*
>> PSUFQ DEVICE+7
PSUGO RPT+1~, RPT+9*, RPT+11
>> PSUIO DEVICE+4*
>> PSUIOP DEVICE+1*, DEVICE+14*
>> PSUJOB PSUMON+24, SETDT+4, SELF+8, SELF+9, MODHLP+31
>> PSULY PSUMON+17*, PSUMON+18
PSUMASF MASTER+1*, MASTER+8*, ERR+1!
PSUMNTH DATES+2!, PSUMON+2*, ERR+1!
PSUMOD MODHLP+8!, MODHLP+20, ERR+1!
PSUMOD( MODHLP+15*, MODHLP+17*, MODHLP+18, MODHLP+22, MODHLP+25
PSUMOD(1 MODHLP+26
PSUMOD(13 MODHLP+22*
PSUMOD(2 MODHLP+26
PSUMOD(4 MODHLP+26
>> PSUMON SETDT+3*, SETDT+4
PSUMON1 SETDT+1*, ERR+3!
PSUMON2 SETDT+2*, ERR+3!
>> PSUMTH PSUMON+16*, PSUMON+17
PSUOPTS MODHLP+25*, MODHLP+28*, MODHLP+31, RPT+2, RPT+12, DEVICE+3, ERR+3!
PSUPBMG SELF+1*, SELF+10*, ERR+1!
>> PSUPOP DEVICE+1*, DEVICE+7, DEVICE+13*, DEVICE+14
PSUSDT DATES+6*, DATES+11, DATES+13!, DATES+15, DATES+17!, PSUMON+15*, PSUMON+24, SETDT+1, SETDT+3, ERR+3!
PSUSMRY RPT+10*, RPT+12*, ERR+3!
>> PSUSNDR EN+3*
>> PSUX DEVICE+12*, DEVICE+13
X EN+3*, PSUMON+3!, PSUMON+5, SETDT+1*, SETDT+2*, SETDT+3*, SETDT+5!, MODP+2*, MODP+3, MODP+4*
, MODP+10*, MODHLP, MODHLP+7*, MODHLP+9, MODHLP+10, MODHLP+18*, MODHLP+19, MODHLP+20*, MODHLP+25*, BCKGND+6*
, DATE+1
X1 SETDT+5!, MODHLP+10*, MODHLP+11, MODHLP+12, MODHLP+13, MODHLP+17, ERR+3!
XBEG MODHLP+13*, MODHLP+14, MODHLP+15, MODHLP+16!
XEND MODHLP+13*, MODHLP+14, MODHLP+15, MODHLP+16!
Y ASK+7, ASK+9, DATES+5, DATES+6, DATES+9, DATES+10, PSUMON+3!, PSUMON+5, PSUMON+7, PSUMON+9!
, PSUMON+11, PSUMON+13!, PSUMON+15, PSUMON+16, PSUMON+18, SETDT+1, SETDT+2, SELF+7, SELF+8, SELF+9
, SELF+10, MASTER+1*, MASTER+7, MASTER+8, RPT+9, RPT+10, BCKGND+7, BCKGND+10, BCKGND+12, DATE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All