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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSOBAIR2

Package: Outpatient Pharmacy

Routine: PSOBAIR2


Information

PSOBAIR2 ;BIR/RTR-Report of suspended prescriptions with bad address ;08/16/2006

Source Information

Source file <PSOBAIR2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
DATE ;
SKIP ;
REP ;
ALL ;
END ;
HD ;
MESS ;
NAME ;Set name(ssn)
PRALL ;Print data for all patients
PRONE ;Print data for one patient
CON ;
CHKADDR ;
FOREIGN ;
CHKMAIL ;
DETAIL ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option shows unprinted suspended prescriptions for the following:",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"- BAD ADDRESS INDICATOR set in the PATIENT file (#2) and no active temporary",!," address"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"- DO NOT MAIL set in the PHARMACY PATIENT file (#55)"
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !,"- FOREIGN ADDRESS set in the PATIENT file (#2) and no active US temporary",!," address",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !!?3,"You are logged in under the "_$P($G(^PS(59,+$G(PSOSITE),0)),"^")_" division.",!
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !!,"No data found to print for this date range.",!
  • Line Location: ALL+21
Function Call: WRITE
  • Prompt: !!!,"NOTE: B=BAD ADDRESS INDICATOR D=NO NOT MAIL F=FOREIGN ADDRESS"
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+5
Function Call: WRITE
  • Prompt: !
  • Line Location: END+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?67,"PAGE: "_PSOPAGE
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !,"for suspense dates through "_$G(PSOEDTX)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?70,"B/D/F"
  • Condition for execution: PSOBDF="A"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,PSOLINE
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !!,"Nothing queued to print.",!
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !!,$G(PSONSSN)
  • Line Location: PRALL+4
Function Call: WRITE
  • Prompt: ?30," ",PSOADDR
  • Line Location: PRALL+4
Function Call: WRITE
  • Prompt: !,$G(PSOADATE),?15," Rx#: ",$P(SFN0,"^"),?30," ",$P($G(^PSDRUG($P(SFN0,"^",6),0)),"^")
  • Line Location: PRONE+3
Function Call: WRITE
  • Prompt: !,$G(PSONSSN)
  • Line Location: CON+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^PS(52.5 - [#52.5] GET1^DIQ
^PS(59 - [#59] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call