Routine: PSUPR0

Package	Total	Call Graph
Pharmacy Benefits Management	8	EN^PSUDBQUE EN^PSUPR1 EN^PSUPR2 EN^PSUPR3 EN^PSUPR4 EN^PSUPR5 EN^PSUPR6 VARKILL^PSUTL
VA Fileman	3	(,DD)^%DT C^%DTC ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
EN	;EP from PSUCP
CLEAR	;EP clear ^XTMP of PSUPR nodes
MANUAL	;EP Manual entry point for Running Procurement Module to ; exercise detailed message, summary messages, & Reports ; Some startup code borrowed from PSUCP for dates
EXIT	;EP Tasking Entry Point for Cleaning out XTMP and Variables ; Restore Important Variables
PRINT	;EP Tasking Entry Point for PRINT REPORT
PULLQ	;Q

Name	Line Occurrences
Function Call: WRITE	Prompt: !,X Line Location: CLEAR+2
Function Call: WRITE	Prompt: !,"Mail messages are sent to the user only at this time",! Line Location: MANUAL+3
Function Call: WRITE	Prompt: ! Line Location: MANUAL+11
Function Call: WRITE	Prompt: ! Line Location: MANUAL+16
Function Call: WRITE	Prompt: !,"Starting Procurement Date",?30,Y Line Location: MANUAL+17
Function Call: WRITE	Prompt: !,"Ending Procurement Date:",?30,Y Line Location: MANUAL+18
Function Call: WRITE	Prompt: ! Line Location: MANUAL+19
Function Call: WRITE	Prompt: ! Line Location: MANUAL+22
Function Call: WRITE	Prompt: !,"You can not queue to your terminal",! Line Location: MANUAL+23
Function Call: WRITE	Prompt: !,"You can queue to a host file",! Line Location: MANUAL+24
Function Call: WRITE	Prompt: ! Line Location: MANUAL+26
Routine Call	DIR Line Location: MANUAL+20 MANUAL+25

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	MANUAL+5
^XMB(1 - [#4.3]	MANUAL+5
^XTMP(	PULLQ+5!, PULLQ+6, PULLQ+12, PULLQ+35*, EXIT+3, EXIT+4!, CLEAR+2!
^XTMP("PSU_"	EN+6

Name	Line Occurrences
MANUAL	MANUAL+13, MANUAL+14, MANUAL+21

Name	Field # of Occurrence
%DT	MANUAL+6!, MANUAL+7, MANUAL+11!, MANUAL+12
%DT("A"	MANUAL+7, MANUAL+12
%DT(0	MANUAL+7, MANUAL+12
DIR	MANUAL+19!, MANUAL+22!, MANUAL+26!
DIR("A"	MANUAL+20, MANUAL+25
DIR("B"	MANUAL+20, MANUAL+25
DIR(0	MANUAL+20, MANUAL+25
DT	PULLQ+4, PULLQ+6, MANUAL+4
DUZ	MANUAL+4
>> I	EN+6, PULLQ+11
>> PSUDUZ	PULLQ+35, MANUAL+4*
>> PSUEDT	MANUAL+15*, MANUAL+18
PSUIOP	MANUAL+29!, MANUAL+30*
>> PSUJOB	EN+4*, EN+6, PULLQ+1, PULLQ+34
>> PSUMASF	MANUAL+4*
>> PSUMON	MANUAL+4*
PSUMSG	PULLQ+29!, PULLQ+30, PULLQ+35
>> PSUNS	MANUAL+32*
>> PSUPBMG	PULLQ+35, MANUAL+4*
>> PSUPRJOB	PULLQ+1*, PULLQ+2
>> PSUPRSUB	PULLQ+2*, PULLQ+5, PULLQ+6, PULLQ+12, EXIT+3, EXIT+4
>> PSURC	MANUAL+28*
PSURP	MANUAL+27, MANUAL+29, MANUAL+30!
>> PSURX	MANUAL+31*
>> PSUSDT	MANUAL+10*, MANUAL+12, MANUAL+17
>> PSUSMRY	MANUAL+4*
>> PSUSNDR	MANUAL+5*
>> PSUSUB	PULLQ+34*, PULLQ+35
>> PSUVARS	EN+5*, EN+6
U	EN+6, PULLQ+6, MANUAL+5
X	PULLQ+6, PULLQ+9!, PULLQ+10, PULLQ+11, PULLQ+12, PULLQ+13!, EXIT+2!, EXIT+3, EXIT+8!, CLEAR+1* , CLEAR+2, MANUAL+5, MANUAL+8, MANUAL+13
X(	PULLQ+11*, EXIT+7
>> X1	PULLQ+4*
>> X2	PULLQ+4*
>> Y	PULLQ+11, EXIT+7, MANUAL+9, MANUAL+10, MANUAL+14, MANUAL+15, MANUAL+17, MANUAL+18, MANUAL+21, MANUAL+27