Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls