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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: PSOPOLY

Package: Outpatient Pharmacy

Routine: PSOPOLY


Information

PSOPOLY ;BHAM ISC/SAB - patients with a minimum amount of rx's within a # of days ;10/06/93

Source Information

Source file <PSOPOLY.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA FileMan 3 ^%DT  DT^DIQ  ^DIR  
Outpatient Pharmacy 2 EN^PSOHLUP  EN^PSOPATLK  
Registration 1 (KVA,PID)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Outpatient Pharmacy 1 PSOPOLY  

Entry Points

Name Comments DBIA/ICR reference
PAT
ENQ
BEG
A
PRI
END
ALL ;print all patients
ALLP
CON ;convert data to date
NRX ;prints no rx message
HLP ;help module
HLP1
DEV
HDR ;report header
NVA ;displays non-va meds

External References

Name Field # of Occurrence
^%DT CON+1
^%ZIS DEV
^%ZISC END
^%ZTLOAD DEV+2
DT^DIQ PRI+8
^DIR PSOPOLY+8, PSOPOLY+9
EN^PSOHLUP PAT+2, ALLP+1
EN^PSOPATLK PAT+1
KVA^VADPT END, NVA+4
PID^VADPT ENQ, ALLP+1, NVA+5
$$FMTE^XLFDT NVA+18

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRI+1
Function Call: WRITE
  • Prompt: ?77
  • Line Location: PRI+8
Function Call: WRITE
  • Prompt: ?92,$E(PROV,1,25),?121,$P(^PSRX(RNX,0),"^")
  • Line Location: PRI+8
Function Call: WRITE
  • Prompt: !!,"Total Number of Patients: "_TOTP,?40,"Total Number of Rxs: "_TOTRX,?80,"Average Rxs per Patient: "_(TOTRX\TOTP)
  • Line Location: PRI+10
Function Call: WRITE
  • Prompt: !
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: ALL+1
Function Call: WRITE
  • Prompt: !?20,">>>> No Active Prescriptions and/or Non-VA Meds found within the Range <<<<"
  • Line Location: NRX+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NRX+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Enter numeric value greater than zero.",!,"The value must a whole number, no decimals or fractions.",!!
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !!,$C(7),"Enter a numeric value greater than zero.",!,"The number seven (7) is the default, no decimals or fractions.",!,"The count will include both Active Prescriptions and Non-VA Medications.",!!
  • Line Location: HLP1+0
Function Call: WRITE
  • Prompt: $C(7),!!,"Printout Must be 132 Columns.",!!
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: @IOF,?55,"Poly Pharmacy Report",!?50,$E(SDT,4,5)_"-"_$E(SDT,6,7)_"-"_($E(SDT,1,3)+1700)_" to "_$E(EDT,4,5)_"-"_$E(EDT,6,7)_"-"_($E(EDT,1,3)+1700)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?37," for "_DAYS_" Days for "_RX_" or More Active Prescriptions and/or Non-VA Meds"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?122,"Page "_PG,!,"Patient",?40,"ID#",?62,"Active Rx's",!,?2,"Class",?22,"Drug",?65,"Status",?77,"Last Filled",?92,"Provider",?121,"Rx Number"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,TITLE
  • Line Location: NVA+9
Function Call: WRITE
  • Prompt: !,DFN_" ("_VA("BID")_")",?40,"Total Non-VA Meds: "_$P(^TMP($J,DFN,CLASS),"^",2)
  • Line Location: NVA+10
Function Call: WRITE
  • Prompt: !!,TITLE,!,$P(^DPT(PSODFN,0),"^")_" ("_VA("BID")_")"
  • Line Location: NVA+14
Routine Call
  • DIR
  • Line Location:
    • PSOPOLY+8
    • PSOPOLY+9
Routine Call
  • %ZIS
  • Line Location:
    • DEV

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] A+2, A+3, NRX+1, NVA+14
^PS(50.606 - [#50.606] NVA+15
^PS(50.7 - [#50.7] NVA+15
^PS(55 - [#55] PAT+2, ENQ, BEG+1, BEG+3, ALLP+1, NVA+1, NVA+11, NVA+12, NVA+13
^PSDRUG - [#50] BEG+2, BEG+5, NVA+15
^PSRX - [#52] BEG+1, BEG+2, BEG+4, A+1, A+2, PRI+8
^TMP($J PSOPOLY+7!, A+2*, A+3*, A+5, PRI+1, PRI+2, PRI+3, PRI+4, PRI+5, PRI+9*
, END!, ALLP+2, NVA+10
^VA(200 - [#200] PRI+8

Label References

Name Line Occurrences
ALL PAT+1
BEG ALLP+1
CON ENQ, ALLP
DEV PAT+2, ALL+1, DEV+1
END PSOPOLY+8, PSOPOLY+9, PAT+1, PAT+2, A+6, ALL+1, ALLP+3, NRX+1
HDR PRI, PRI+6, NRX+1, NVA+9, NVA+14
NRX ENQ, A+5, ALLP+2
NVA A+6, PRI+1, PRI+3
PRI A+6, ALLP+3

Naked Globals

Name Field # of Occurrence
^( PRI+5
^(0 BEG+4, BEG+5, NVA+15
^(2 BEG+4
^(3 BEG+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT END!, CON+1*
%ZIS DEV!*
%ZIS("B" DEV*
ALL PAT+2*, A+5, A+6, PRI+1, PRI+10, END!, ALL+1*, ALLP+1*, NRX+1, DEV+3
CLASS BEG+5*, A+2, A+3*, A+4!, PRI+1*, PRI+2*, PRI+3, PRI+4, PRI+5, PRI+7
, PRI+8, END!, NVA+10
DAYS PSOPOLY+8*, END!, CON+1, HDR+2
DFN PAT+1*, PAT+2, ENQ*, BEG+1, BEG+2, BEG+3, BEG+4, BEG+5, A+2, A+3
, A+4, PRI*, PRI+1*, PRI+2, PRI+3, PRI+4, PRI+5, PRI+7, PRI+8, PRI+9
, END!, ALLP+1*, NRX+1, NVA+3~*, NVA+10
DIC END!
DIC("A" PAT*
DIC(0 PAT+1*
DIR PSOPOLY+7!, PSOPOLY+8!, PSOPOLY+9!, END!
DIR("?" PSOPOLY+8*, PSOPOLY+9*
DIR("A" PSOPOLY+8*, PSOPOLY+9*
DIR("B" PSOPOLY+8*, PSOPOLY+9*
DIR(0 PSOPOLY+8*, PSOPOLY+9*
DIROUT END!
DIRUT PSOPOLY+8, PSOPOLY+9, END!
DOI NVA+15*, NVA+16, NVA+19!
DRUG BEG+5*, A+2, PRI+4*, PRI+5, PRI+8, END!
DTOUT END!
DUOUT END!
DUPRX0 NVA+13*, NVA+15, NVA+16, NVA+17, NVA+18, NVA+19!
EDT END!, CON+1*, HDR+1
FILLDATE A+1*, A+2, PRI+4*, PRI+5, END!
G END!, DEV+3*
I PRI+1*, END!, HDR+4*, NVA+7*, NVA+8*
IO PRI+10, NRX+1, HDR+1
IO("Q" DEV+2!
IOF NRX+1, HDR+1
IOM DEV+1, NVA+7
ION DEV
IOP DEV!*
IOSL PRI+6, NVA+9, NVA+14
J BEG+1*, BEG+2, END!
NVA BEG+3~*, NVA+19!
>> NVAO NVA+11*, NVA+12, NVA+13
P BEG+1*, BEG+4*, BEG+5, A+1, A+2, END!
PAT END+1!
PG PSOPOLY+7*, PRI*, END!, HDR+1*, HDR+3
POLY PRI+5*, PRI+7, PRI+8, END!
POP END!, DEV
PROV PRI+8*, END!
PSDATE ENQ, BEG*, BEG+1*, END!, CON+1*
PSDATEX BEG, END!, CON+1*
PSODFN PAT+1*, ENQ, PRI+3*, PRI+5*, END+1!, NVA+1, NVA+3, NVA+11, NVA+12, NVA+13
, NVA+14
PSOION DEV*!, DEV+2!
>> PSOPTLK PAT+1
PSOSTA NVA+6*, NVA+7, NVA+8, NVA+19!
PSOTRUE A+6, PRI+1!, PRI+3*
QP PAT+2, END!, ALL+1, DEV*
RNX PRI+5*, PRI+8, END!
RX PSOPOLY+9*, BEG+4, A+3, END!, HDR+2
RX( BEG+2*, BEG+4, BEG+5, A+4!
RX0 BEG+4*, BEG+5, A+2, END!
RX2 BEG+4*, END!
RX3 BEG+4*, A+2, END!
RXS BEG*, BEG+2*, BEG+3*, BEG+4, A+2, A+3, A+4*, END!, CON+1*
SDT END!, CON+1*, HDR+1
STA BEG+5*, A, END!
STAT A*, END!
STATUS A*, A+2, END!
STP NVA+7*, NVA+8, NVA+19!
STR NVA+7*, NVA+19!
TITLE NVA+1~, NVA+7*, NVA+8*, NVA+9, NVA+14, NVA+19!
TOTP PRI+9*, PRI+10, END+1!, ALL+1*
TOTRX PRI+9*, PRI+10, END+1!, ALL+1*
>> VA("BID" A+2, NRX+1, NVA+10, NVA+14
X END!, CON+1*
Y PSOPOLY+8, PSOPOLY+9, PAT+1*, PRI+8*, END!, CON+1
Z0 END!
Z1 END!
Z2 END!
ZCLASS PRI+1*, PRI+7, PRI+8*, END!
ZDFN PRI*, PRI+7, PRI+8*, END!
>> ZTDESC DEV+3*
>> ZTQUEUED END+1
>> ZTREQ END+1*
>> ZTRTN DEV+3*
>> ZTSAVE( DEV+3*
ZTSK PAT+2, END!, ALL+1, DEV!, DEV+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All