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

Package: Outpatient Pharmacy

Routine: PSOBAIRP


Information

PSOBAIRP ;BIR/RTR-Report of prescription mail labels with bad address ;08/16/2006

Source Information

Source file <PSOBAIRP.m>

Call Graph

Call Graph Total: 10

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSO BAI NOT MAILED  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE+2, DATE+4
DD^%DT DATE+3, DATE+5, ALL+17
C^%DTC DATE+6, DATE+7
^%ZIS DATE+8
^%ZISC END+7
^%ZTLOAD DATE+10
$$BADADR^DGUTL3 CHKADDR+3
^DIR EN+7, END+3, HD+2
$$CHKTEMP^PSOBAI CHKADDR+5
EN^PSOPATLK EN+10
PID^VADPT6 NAME+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option provides a report that shows patients and prescriptions whose last"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,"label activity had a routing of mail and no valid permanent or temporary"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"address. It will also indicate whether the patient now has a good address.",!!
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !!,"No data found to print for this date range.",!
  • Line Location: ALL+11
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !!,"End of Report."
  • Line Location: END+4
Function Call: WRITE
  • Prompt: !
  • Line Location: END+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+6
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: !,"Bad address mail label report for "_$G(PSOANAME)
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,"for fill date between "_$G(PSOSDTX)_" and "_$G(PSOEDTX)
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,PSOLINE
  • Line Location: HD+9
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(PSORX0,"^"),?30," ",$P($G(^PSDRUG($P(PSORX0,"^",6),0)),"^")
  • Line Location: PRONE+3
Function Call: WRITE
  • Prompt: !,$G(PSONSSN)
  • Line Location: CON+1
Routine Call
  • DIR
  • Line Location:
    • EN+7
    • END+3
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • DATE+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] ALL+8
^PSDRUG - [#50] PRONE+3
^PSRX - [#52] ALL+4, ALL+5, ALL+6, PRONE+2
^PSRX("AD" ALL+2, ALL+3
^TMP("PSOBADL" REP+1!, ALL+9*, ALL+11, ALL+12, ALL+13, ALL+14, ALL+15, END+1!

Label References

Name Line Occurrences
CHKADDR PRALL+4
CON PRONE+3
DATE EN+9
END ALL+11
HD ALL+10, ALL+16, PRALL+4, PRONE+4
MESS EN+7, EN+10, DATE+2, DATE+4, DATE+8
NAME ALL+13
PRALL ALL+13
PRONE ALL+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+2!*, DATE+4*!
%DT("A" DATE+2*, DATE+4*
%DT(0 DATE+3*
%ZIS DATE+8!*, DATE+10!
DFN REP+2~, NAME+1*
DIC EN+10!
DIC("A" EN+10*
DIC(0 EN+10*
DIR EN+5!, EN+7!, END+3!, HD+2!
DIR("?" EN+5*, EN+6*
DIR("A" EN+5*, END+3*, HD+2*
DIR("B" EN+5*
DIR(0 EN+5*, END+3*, HD+2*
DTOUT EN+7, EN+10, DATE+2, DATE+4, END+2!
DUOUT EN+7, EN+10, DATE+2, DATE+4, END+2!
IO REP+3
IO("Q" DATE+9
IOF END+6, HD+4
IOP DATE+8!
IOSL ALL+16, PRALL+4, PRONE+4
IOST REP+4
POP DATE+8!
PSOAALL REP+2~
PSOADATE REP+2~, ALL+17*, PRONE+3
PSOADDR PRALL+1~, PRALL+2*, PRALL+4, CHKADDR+6*, CHKADDR+7*
PSOADF REP+2~
PSOADFF REP+2~
PSOADFN REP+2~, ALL+6*, ALL+7, ALL+8, ALL+9
PSOADLP REP+2~
PSOADND REP+2~
PSOADX REP+2~
PSOAFLAG REP+2~, REP+4*, HD+1*, PRALL+3*, CON+1*
PSOANAME REP+2~, ALL+8*, ALL+9, HD+6
PSOANODE REP+2~
PSOAOPT REP+2~
PSOAOPTA REP+2~
PSOAOPTB REP+2~
PSOAOPTC REP+2~
PSOAOPTZ REP+2~
PSOAPAT EN+1~, EN+11*, ALL+7
PSOASN REP+2~
PSOBADR CHKADDR+1~, CHKADDR+3*, CHKADDR+4, CHKADDR+6
PSOC REP+2~
PSODEV REP+2~, REP+4*, END+3, END+4, END+5, HD+2, HD+3
PSOEDT EN+1~, DATE+5*, DATE+7*, ALL+2
PSOEDTX EN+1~, DATE+5*, HD+8
PSOFORM EN+1~, EN+8*, EN+9, ALL+7, HD+1, HD+6, CON+1
PSOLBL ALL+1~, ALL+4*, ALL+5
PSOLINE REP+2~, REP+5*, HD+9
PSONB REP+2~, ALL+14*, ALL+15, ALL+17
PSONI REP+2~, ALL+12*, ALL+13, ALL+14, ALL+15, NAME+2
PSONSSN REP+2~, NAME+2*, PRALL+4, CON+1
PSONX REP+2~, ALL+13*, ALL+14, ALL+15, NAME+1, CHKADDR+2, CHKADDR+3, CHKADDR+5
PSOPAGE REP+2~, REP+4*, HD+2, HD+3, HD+5*
PSOPTLK EN+10!
PSORD ALL+1~, ALL+2*, ALL+3, ALL+9
PSORX REP+2~, ALL+1~, ALL+3*, ALL+4, ALL+5, ALL+6, ALL+9, ALL+15*, PRONE+2
PSORX0 PRONE+1~, PRONE+2*, PRONE+3
PSOSDT EN+1~, DATE+3*, DATE+6*, ALL+2
PSOSDTX EN+1~, DATE+3*, HD+8
PSOTEMP CHKADDR+1~, CHKADDR+5*, CHKADDR+6
PSOUT REP+2~, REP+4*, ALL+12, ALL+13, ALL+14, ALL+15, ALL+16, END+3, HD+2*, PRALL+4
, PRONE+4
PSOX ALL+1~, ALL+5*
VA REP+2~, NAME+1!, NAME+3!
VA("PID" NAME+2
X EN+1~, DATE+6, DATE+7
X1 EN+1~, DATE+6*, DATE+7*
X2 EN+1~, DATE+6*, DATE+7*
Y EN+1~, EN+7, EN+8, EN+10*, EN+11, DATE+2, DATE+3, DATE+4, DATE+5, ALL+17*
, HD+2
>> ZTDESC DATE+10*
>> ZTQUEUED END+7
>> ZTREQ END+7*
>> ZTRTN DATE+10*
>> ZTSAVE("PSOAPAT" DATE+10*
>> ZTSAVE("PSOEDT" DATE+10*
>> ZTSAVE("PSOEDTX" DATE+10*
>> ZTSAVE("PSOFORM" DATE+10*
>> ZTSAVE("PSOSDT" DATE+10*
>> ZTSAVE("PSOSDTX" DATE+10*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All