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

Package: Outpatient Pharmacy

Routine: PSOTPCRP


Information

PSOTPCRP ;BIR/RTR-Non VA phycisian eligible patient report ;07/07/03

Source Information

Source file <PSOTPCRP.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$DT^XLFDT  
VA Fileman 3 ^DIC  EN^DIQ1  ^DIR  
Registration 2 (ADD,DEM)^VADPT  PID^VADPT6  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO TPB PATIENT REPORT  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;End report
ADDR ;Check for difference in State
PASS ;
INSTX ;Ask for individual Institutions
START ;
INST ;Ask for Institutions
ADDRX ;
ACT ;Ask for type of report
HD ;HEADER

External References

Name Field # of Occurrence
^%ZIS ACT+6
^%ZISC END+6
^%ZTLOAD ACT+7
^DIC INSTX+1
EN^DIQ1 START+29
^DIR INST+1, ACT+1, HD+1, END+2
ADD^VADPT ADDR+5, ADDRX+1, ADDRX+4
DEM^VADPT START+16
PID^VADPT6 START+19
$$DT^XLFDT START+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This report prints entries from the TPB ELIGIBILITY file (#52.91)."
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"If multiple Institutions are selected, and some Institutions have data and",!,"some don't, only those Institutions that have data will print on the report.",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: INST+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: INSTX+1
Function Call: WRITE
  • Prompt: !,"No Institutions selected, nothing queued to print.",!
  • Line Location: INSTX+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ACT+6
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: ACT+6
Function Call: WRITE
  • Prompt: !,"Report queued to print.",!
  • Line Location: ACT+7
Function Call: WRITE
  • Prompt: !!,"No patients found that meet report criteria.",!
  • Line Location: START+26
Function Call: WRITE
  • Prompt: !?1,"Exclusion: ACTIVE RX "_$P(PSOXND,"^",11)
  • Line Location: START+44
Function Call: WRITE
  • Prompt: !?1,"Exclusion: ACTUAL APPT. <30 DAYS FROM DATE APPT. MADE"
  • Line Location: START+45
Function Call: WRITE
  • Prompt: !?1,"Exclusion: ACTIVE RX "_$P(PSOXND,"^",11)_" & ACTUAL APPT. <30 DAYS FROM DATE APPT. MADE"
  • Line Location: START+46
Function Call: WRITE
  • Prompt: !,$G(PSOVADIS)
  • Line Location: START+48
Function Call: WRITE
  • Prompt: !,$G(PSOVADIX)
  • Line Location: START+50
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"("_PSOINAME_")"_" Total: ",$G(PSOTAR(PSOG1))
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"Grand Total: "_PSOGTOP,?38,"Start",?47,"Stop",?56,"Letter",?65,"Inactivation",!,"Patient",?38,"Date",?47,"Date",?56,"Date",?65,"Reason",!,PSOGPLIN
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !
  • Line Location: END+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+5
Routine Call
  • DIC
  • Line Location:
    • INSTX+1
Routine Call
  • DIR
  • Line Location:
    • INST+1
    • ACT+1
    • HD+1
    • END+2
Routine Call
  • %ZIS
  • Line Location:
    • ACT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.91 - [#52.91] START+9, START+10, START+34, ADDR+3
^TMP("PSOGP" START+1!, START+22*, START+27, START+32, START+33, END+1!

Label References

Name Line Occurrences
ADDR START+35
ADDRX ADDR+6, ADDR+7
END START+26, START+53
HD START+26, START+30, START+47, START+49, START+52
INSTX INSTX+4
PASS INST+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ACT+6!*, ACT+7!
DA START+3~, START+29!*
DFN START+3~, START+15*, START+19*, ADDR+3*, ADDR+4
DIC INSTX+1!*, START+3~, START+29!*
DIC("A" INSTX+3*
DIC("B" INSTX+2*
DIC(0 INSTX+1*
DIQ START+3~, START+29!*
DIQ(0 START+29*
DIR INST+1!, ACT+1!, HD+1!, END+2!
DIR("?" INST+2*, ACT+2*, ACT+3*, ACT+4*
DIR("A" INST+1*, ACT+1*, HD+1*, END+2*
DIR("B" INST+1*, ACT+1*
DIR(0 INST+1*, ACT+1*, HD+1*, END+2*
DR START+3~, START+29!*
DT START+4*, START+13, START+14
>> DTOUT INST+1, INSTX+1, ACT+1
>> DUOUT INST+1, INSTX+1, ACT+1
DUZ(2 INSTX+2
IO START+2
IO("Q" ACT+7
IOF HD+3, END+5
IOP ACT+6!
IOSL START+47, START+49, START+52
IOST START+5
POP ACT+6!
PSOG1 START+3~, START+27*, START+28, START+29, START+32, START+33, START+52, HD+4
PSOG2 START+3~, START+32*, START+33, START+37
PSOG3 START+3~, START+32*, START+33
PSOG4 START+3~, START+33*, START+34, ADDR+3
PSOGDV START+3~, START+5*, HD+1, HD+2, END+2, END+3, END+4
PSOGLOP START+3~, START+9*, START+10, START+22
PSOGNAME START+3~, START+17*, START+20*, START+22
PSOGNODE START+3~, START+10*, START+12, START+13, START+14, START+15, START+19, START+22, START+23
PSOGOK EN+3~, INST+4*, INSTX+1, INSTX+2, INSTX+3, INSTX+4*
PSOGPAGE START+3~, START+5*, HD+1, HD+2, HD+4, HD+5*
PSOGPAR EN+3~, END+1!
PSOGPAR( INSTX+4*, START+12
PSOGPAR(0 INSTX+5
PSOGPINS EN+3~, EN+4*, INST+3*, START+12, END+1!
PSOGPLIN START+3~, START+6*, HD+7
PSOGPOUT START+3~, START+5*, START+27, START+30, START+32, START+33, START+47, START+49, HD+1*, END+2
PSOGSORT EN+3~, ACT+5*, START+13, START+14, HD+4, END+1!
PSOGSSN START+3~
PSOGSSNX START+3~
PSOGTOP START+3~, START+8*, START+22*, START+26, HD+7
PSOINAME START+3~, START+28*, START+29*, HD+4
PSOTAR START+3~
PSOTAR( START+23*, START+52, HD+4
PSOTAR("NONE" START+24*
PSOTARX START+3~, START+31*, START+36*, START+52
PSOTINS START+3~, START+29!
PSOTINS(4 START+29
PSOVA1 ADDR+1~, ADDRX+3*, ADDRX+6
PSOVA2 ADDR+1~, ADDRX+5*, ADDRX+6, ADDRX+7
PSOVADIS START+3~, START+47!, START+48, START+49!, START+51!, ADDR+2*, ADDR+8*, ADDRX+1*, ADDRX+2*
PSOVADIX START+3~, START+47!, START+49!, START+50, START+51!, ADDR+2*, ADDR+9*, ADDRX+7*
PSOXND START+3~, START+34*, START+38, START+39, START+40, START+41, START+43, START+44, START+45, START+46
PSOXRS START+3~, START+41*, START+42
VA START+3~, START+19!, START+21!
VA("BID" START+20
VADM START+3~, START+15!, START+16!, START+18!
VADM(1 START+16, START+17
VAERR START+3~, START+19!, START+21!
VAPA ADDR+1~, ADDR+6!, ADDR+7!, ADDR+10!, ADDRX+1!, ADDRX+4!, ADDRX+6!, ADDRX+8!
VAPA("P" ADDRX+4*
VAPA(12 ADDR+6
VAPA(17 ADDR+8, ADDR+9
VAPA(22 ADDR+7
VAPA(5 ADDR+9, ADDRX+1, ADDRX+2, ADDRX+3, ADDRX+5
VAPA(9 ADDR+9, ADDRX+1
>> Y INST+1, INST+3, INSTX+1, INSTX+4, ACT+1, ACT+5, HD+1
ZTDESC ACT+7*!
>> ZTQUEUED END+6
>> ZTREQ END+6*
ZTRTN ACT+7*!
ZTSAVE ACT+7!
ZTSAVE("PSOGPAR(" ACT+7*
ZTSAVE("PSOGPINS" ACT+7*
ZTSAVE("PSOGSORT" ACT+7*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All