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: PSURT1

Package: Pharmacy Benefits Management

Routine: PSURT1


Information

PSURT1 ;BIR/RDC - PATIENT DEMOGRAPHIC RETRANSMITION; APR 2, 2007 ; 4/2/07 11:01am

Source Information

Source file <PSURT1.m>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 1

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All