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

Package: Outpatient Pharmacy

Routine: PSOPOLY


Information

PSOPOLY ;BHAM ISC/SAB - patients with a minimum amount of rx's within a # of days ;08/23/17 20:40

Source Information

Source file <PSOPOLY.m>

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

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