Routine: PSUCP1

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

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUCP

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

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

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

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

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUCP1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: