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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA Fileman 4 (,DD)^%DT  C^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 3 $$BADADR^DGUTL3  ADD^VADPT  PID^VADPT6  
Outpatient Pharmacy 2 $$CHKTEMP^PSOBAI  ^PSOLSET  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO BAI SUSPENDED  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE+1
DD^%DT DATE+2, ALL+19
C^%DTC DATE+3
^%ZIS SKIP+1
^%ZISC END+8
^%ZTLOAD SKIP+6
$$BADADR^DGUTL3 CHKADDR+2
$$GET1^DIQ DETAIL+2, DETAIL+3, DETAIL+5, DETAIL+6
^DIR EN+9, DATE+9, END+4, HD+2
$$CHKTEMP^PSOBAI CHKADDR+4
^PSOLSET DATE+4
ADD^VADPT FOREIGN+2
PID^VADPT6 NAME+1

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+13
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
Routine Call
  • DIR
  • Line Location:
    • EN+9
    • DATE+9
    • END+4
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • SKIP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
^PS(52.5 - [#52.5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] DETAIL+1, DETAIL+8
^PS(52.5 - [#52.5] ALL+2, ALL+5, ALL+6, ALL+7, ALL+10, ALL+11, DETAIL+1
^PS(55 - [#55] CHKMAIL+2
^PS(59 - [#59] DATE+5, DATE+7, HD+6
^PSDRUG - [#50] PRONE+3
^PSRX - [#52] PRONE+2, DETAIL+7
^TMP("PSOBADL" REP+1!, ALL+13, ALL+14, ALL+15, ALL+16, ALL+17, ALL+20, END+2!, DETAIL+9*

Label References

Name Line Occurrences
CHKADDR ALL+3, ALL+8, PRALL+4
CHKMAIL ALL+3, ALL+8
CON PRONE+3
DETAIL ALL+6, ALL+11
END ALL+13
FOREIGN ALL+3, ALL+8
HD ALL+12, ALL+18, PRALL+4, PRONE+5
MESS EN+9, DATE+1, DATE+4, DATE+9, SKIP+1
NAME ALL+15
PRALL ALL+15
PRONE ALL+20
SKIP DATE+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1*!
%DT("A" DATE+1*
%ZIS SKIP+1!*, SKIP+6!
DFN REP+2~, NAME+1*, FOREIGN+2*
DIR EN+6!, EN+9!, DATE+8!, DATE+9!, END+4!, HD+2!
DIR("?" EN+8*, DATE+8*
DIR("A" EN+7*, DATE+8*, END+4*, HD+2*
DIR("B" EN+6*, DATE+8*
DIR(0 EN+6*, DATE+8*, END+4*, HD+2*
>> DIRUT DATE+9
DT CHKMAIL+3
DTOUT EN+9, DATE+1, END+3!, MESS+2!
DUOUT EN+9, DATE+1, END+3!, MESS+2!
GG SKIP+3~, SKIP+5*
IO REP+3
IO("Q" SKIP+2
IOF END+7, HD+4
IOP SKIP+1!
IOSL ALL+18, PRALL+4, PRONE+5
IOST REP+4
MAILEXP CHKMAIL+1~, CHKMAIL+3*
PARTIAL ALL+1~, DETAIL+6*, DETAIL+7
PII EN+1~, DATE+5*
>> PNODE ALL+20*, PRONE+4
POP SKIP+1!
PRINTED ALL+1~
PSOAALL REP+2~
PSOADATE REP+2~, ALL+19*, PRONE+3
PSOADDR PRALL+1~, PRALL+2*, PRALL+4
PSOADF REP+2~
PSOADFF REP+2~
PSOADLP REP+2~
PSOADND REP+2~
PSOADX REP+2~
PSOAFLAG REP+2~, REP+4*, HD+1*, PRALL+3*, CON+1*
PSOANAME REP+2~, DETAIL+8*, DETAIL+9
PSOANODE REP+2~
PSOAOPT REP+2~
PSOAOPTA REP+2~
PSOAOPTB REP+2~
PSOAOPTC REP+2~
PSOAOPTZ REP+2~
PSOAPAT EN+1~
PSOASN REP+2~
PSOBADR CHKADDR+1~, CHKADDR+2*, CHKADDR+3, CHKADDR+5
PSOBAI ALL+3*, ALL+8*, END+3!, CHKADDR+5*
PSOBDF EN+1~, EN+10*, ALL+4, ALL+9, END+1, HD+6, HD+7, PRONE+4
PSOBDF( ALL+4, ALL+9
PSOBDF("B" REP+1*, ALL+3*, ALL+4, ALL+8*, ALL+9, CHKADDR+5*, DETAIL+9
PSOBDF("D" REP+1*, ALL+3*, ALL+4, ALL+8*, ALL+9, CHKMAIL+3*, DETAIL+9
PSOBDF("F" REP+1*, ALL+3*, ALL+4, ALL+8*, ALL+9, FOREIGN+3*, DETAIL+9
PSOC REP+2~
PSOCNT EN+1~, DATE+5*, DATE+6
PSODEV REP+2~, REP+4*, END+4, END+5, END+6, HD+2, HD+3
PSODFN REP+2~, ALL+1~, ALL+2*, ALL+5, ALL+6, ALL+7*, ALL+10, CHKADDR+2, CHKADDR+4, FOREIGN+2
, CHKMAIL+2, DETAIL+1, DETAIL+8, DETAIL+9
PSOEDT EN+1~, DATE+2*, DATE+3*, ALL+5, ALL+11
PSOEDTX EN+1~, DATE+2*, HD+7
PSOFORGN FOREIGN+1~, FOREIGN+3*
PSOLBL ALL+1~
PSOLINE REP+2~, REP+5*, HD+8
PSONB REP+2~, ALL+16*, ALL+17, ALL+19, ALL+20
PSONI REP+2~, ALL+14*, ALL+15, ALL+16, ALL+17, ALL+20, NAME+2
PSONSSN REP+2~, NAME+2*, PRALL+4, CON+1
PSONX REP+2~, ALL+15*, ALL+16, ALL+17, ALL+20, NAME+1
PSOPAGE REP+2~, REP+4*, HD+2, HD+3, HD+5*
>> PSOPAR DATE+4
PSORD ALL+1~, ALL+5*, ALL+6, ALL+11*, DETAIL+9
PSOSDT EN+1~
PSOSDTX EN+1~
>> PSOSITE DATE+7, HD+6, DETAIL+4
PSOTEMP CHKADDR+1~, CHKADDR+4*, CHKADDR+5, CHKMAIL+1~, CHKMAIL+2*, CHKMAIL+3
PSOUT REP+2~, REP+4*, ALL+14, ALL+15, ALL+16, ALL+17, ALL+18, END+4, HD+2*, PRALL+4
, PRONE+5
PSOX ALL+1~
PSUSDIV EN+1~, DATE+10*, HD+6, DETAIL+4
RXIEN ALL+1~, DETAIL+2*, DETAIL+5, DETAIL+7, DETAIL+9
RXSITE ALL+1~, DETAIL+3*, DETAIL+4
RXSTS ALL+1~, DETAIL+5*
SFN REP+2~, ALL+1~, ALL+6*, ALL+10*, ALL+11, ALL+17*, ALL+20, PRONE+2, DETAIL+1, DETAIL+2
, DETAIL+3, DETAIL+6
SFN0 PRONE+1~, PRONE+2*, PRONE+3
VA REP+2~, NAME+1!, NAME+3!
VA("PID" NAME+2
>> VAPA(25 FOREIGN+3
X EN+1~, DATE+3
X1 EN+1~, DATE+3*
X2 EN+1~, DATE+3*
Y EN+1~, EN+10, DATE+1, DATE+2, DATE+9, DATE+10, ALL+19*, HD+2
>> ZTDESC SKIP+4*
>> ZTQUEUED END+8
>> ZTREQ END+8*
>> ZTRTN SKIP+4*
>> ZTSAVE( SKIP+5*
>> ZTSAVE("PSOBDF*" SKIP+6*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All