Routine: PSURT1

Package	Total	Call Graph
VA Fileman	3	^%DT NOW^%DTC ^DIR
Kernel	2	^%ZTLOAD $$FMTE^XLFDT

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSU RETRANSMIT PATIENT DATA

Entry Points

Name	Comments	DBIA/ICR reference
EN	; ENTRY POINT
PROCESS	;
BGNRNG	;
MONTH	; * allow only whole months to be processed *
ENDRNG	;
RANGE	; * process a range of dates from within file #59.9 *

External References

Name	Field # of Occurrence
^%DT	MONTH+6, BGNRNG+2, ENDRNG+2, PROCESS+24
NOW^%DTC	PROCESS+24
^%ZTLOAD	PROCESS+40
^DIR	EN+18, MONTH+3, PROCESS+9, PROCESS+18
$$FMTE^XLFDT	MONTH+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DATA AVAILABLE - NOTIFY YOUR SUPERVISOR" Line Location: EN+5
Function Call: WRITE	Prompt: !,"This option will allow the retransmission of Patient Demographic and Outpatient Visit data stored in the PBM PATIENT DEMOGRAPHICS FILE. Statistical data starting from " Line Location: EN+9
Function Call: WRITE	Prompt: START Line Location: EN+10
Function Call: WRITE	Prompt: " through " Line Location: EN+11
Function Call: WRITE	Prompt: STOP Line Location: EN+12
Function Call: WRITE	Prompt: " is available for retransmission." Line Location: EN+13
Function Call: WRITE	Prompt: ! Line Location: EN+14
Function Call: WRITE	Prompt: ! Line Location: MONTH+1
Function Call: WRITE	Prompt: !!,"Invalid Month/Year. Please Reenter a month and year." Line Location: MONTH+7
Function Call: WRITE	Prompt: " ("_RMONTH_")" Line Location: MONTH+8
Function Call: WRITE	Prompt: !!,"Data for the entire month of "_RMONTH_" is not available. Please reenter a month/year." Line Location: MONTH+13
Function Call: WRITE	Prompt: !!,"You may not select a date from the future. Please reenter a month/year within the valid parameters." Line Location: MONTH+14
Function Call: WRITE	Prompt: ! Line Location: BGNRNG+1
Function Call: WRITE	Prompt: !!,"Invalid date. Please reenter a start date." Line Location: BGNRNG+4
Function Call: WRITE	Prompt: !!,"Today is not a valid start date. Please reenter a start date." Line Location: BGNRNG+5
Function Call: WRITE	Prompt: !!,"You may not select a date in the future. Please reenter a start date." Line Location: BGNRNG+7
Function Call: WRITE	Prompt: ! Line Location: ENDRNG+1
Function Call: WRITE	Prompt: !!,"Invalid date. Please reenter a stop date." Line Location: ENDRNG+4
Function Call: WRITE	Prompt: !!,"Statistical data has not been compiled for current date. Please reenter a stop date." Line Location: ENDRNG+5
Function Call: WRITE	Prompt: !!,"You need to select a stop date greater than your start date. Please reenter your start/stop dates." Line Location: ENDRNG+7
Function Call: WRITE	Prompt: !!,"You may not select a date in the future. Please reenter a stop date." Line Location: ENDRNG+9
Function Call: WRITE	Prompt: !! Line Location: PROCESS+5
Function Call: WRITE	Prompt: !! Line Location: PROCESS+14
Routine Call	DIR Line Location: EN+18 MONTH+3 PROCESS+9 PROCESS+18

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+7, EN+8
^PSUDEM("B"	EN+4, EN+6

Label References

Name	Line Occurrences
BGNRNG	BGNRNG+4, BGNRNG+5, BGNRNG+7, ENDRNG+7
ENDRNG	ENDRNG+4, ENDRNG+5, ENDRNG+9
MONTH	EN+21, MONTH+7, MONTH+13, MONTH+14
PROCESS	EN+24
RANGE	EN+22

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	MONTH+6!, BGNRNG+2!, ENDRNG+2!, PROCESS+23!, PROCESS+24
%DT("A"	BGNRNG+2!, ENDRNG+2!, PROCESS+24*
%DT("B"	PROCESS+24*
%DT(0	RANGE+1, ENDRNG+14!, PROCESS+24
DIR	EN+18!, MONTH+4!, PROCESS+9!, PROCESS+18!
DIR("A"	EN+17, MONTH+3, MONTH+4!, PROCESS+6, PROCESS+15
DIR("B"	PROCESS+8, PROCESS+17
DIR(0	EN+17, MONTH+3, PROCESS+7, PROCESS+9!, PROCESS+16, PROCESS+18!
>> DIRUT	MONTH+5
DT	MONTH+2, MONTH+14, BGNRNG+5, BGNRNG+7, ENDRNG+5, ENDRNG+9
>> DTOUT	BGNRNG+3, ENDRNG+3
DUZ	PROCESS+11
EDT	EN+1~, EN+6*, EN+8
EMON	EN+1~, MONTH+18*, PROCESS+2
ERANGE	EN+1~, ENDRNG+11*, PROCESS+1
>> LAST	PROCESS+1, PROCESS+2, PROCESS+22
NOGOOD	EN+1~, EN+20, EN+21, EN+22, EN+23, MONTH+5, BGNRNG+3, ENDRNG+3
P	EN+1~, EN+2*, EN+4, EN+6
PMON	EN+1~
>> PSUDUZ	PROCESS+11*
>> PSUERNG	PROCESS+1*
>> PSULAST	PROCESS+22*
>> PSUMME	PROCESS+11*
>> PSUMSTR	PROCESS+19*
>> PSURMON	MONTH+16*, MONTH+17, MONTH+18
>> PSUSMRY	PROCESS+4*
>> PSUSRNG	PROCESS+1*
>> PSUSTART	PROCESS+22*
PSUWHEN	PROCESS+23!, PROCESS+25*, PROCESS+26
RMONTH	EN+1~, MONTH+8*, MONTH+13
RTYPE	EN+1~, MONTH+19, ENDRNG+13, PROCESS+1, PROCESS+2, PROCESS+13
SDT	EN+1~, EN+4*, EN+5, EN+7, RANGE+1
SMON	EN+1~, MONTH+17*, PROCESS+2
SRANGE	EN+1~, BGNRNG+9*, ENDRNG+7, PROCESS+1
>> START	EN+7, EN+10, PROCESS+1, PROCESS+2*, PROCESS+22
>> STOP	EN+8*, EN+12
TMON	EN+1~, MONTH+2*, MONTH+12
WHEN	EN+1~
>> X	BGNRNG+3, ENDRNG+3
>> Y	EN+7, EN+8, EN+21, EN+22, MONTH+7, MONTH+8, MONTH+12*, MONTH+13, MONTH+14, MONTH+16 , BGNRNG+4, BGNRNG+5, BGNRNG+7, BGNRNG+9, ENDRNG+4, ENDRNG+5, ENDRNG+7, ENDRNG+9, ENDRNG+11, PROCESS+10 , PROCESS+11, PROCESS+19, PROCESS+21, PROCESS+25
>> ZTDESC	PROCESS+26*
>> ZTDTH	PROCESS+26*
>> ZTIO	PROCESS+26*
>> ZTRTN	PROCESS+26*
>> ZTSAVE("PSUDUZ"	PROCESS+34*
>> ZTSAVE("PSUERNG"	PROCESS+33*
>> ZTSAVE("PSULAST"	PROCESS+28*
>> ZTSAVE("PSUMME"	PROCESS+29*
>> ZTSAVE("PSUMSTR"	PROCESS+30*
>> ZTSAVE("PSURMON"	PROCESS+31*
>> ZTSAVE("PSUSMRY"	PROCESS+35*
>> ZTSAVE("PSUSRNG"	PROCESS+32*
>> ZTSAVE("PSUSTART"	PROCESS+27*

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSURT1

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: