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

Package: Outpatient Pharmacy

Routine: PSOSDP


Information

PSOSDP ;BHAM ISC/SAB - poly pharmacy report attached to action/info profile ;12/13/93 8:24

Source Information

Source file <PSOSDP.m>

Entry Points

Name Comments DBIA/ICR reference
SIG
HD
FT
CLSG ;clinic group sort and print
EN ;
EXIT
COS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?10,"* "_$E(DRG,1,40),?52
  • Line Location: PSOSDP+6
Function Call: WRITE
  • Prompt: $G(BSIG(1)),?79,"*"
  • Line Location: PSOSDP+6
Function Call: WRITE
  • Prompt: !?10,"*",?52,$G(BSIG(PSREV)),?79,"*"
  • Line Location: PSOSDP+7
Function Call: WRITE
  • Prompt: @IOF,!,"Polypharmacy Rx Profile Review",?47,"Run Date: "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: ?71,"Page: "_PAGE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !?1,"Clinic: ",$E(CLINICX,1,28),?45,"Date/Time: "
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: !?1,"Name : ",PSNAME,?30
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?58,"Review Date: ________"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?58,"Review Date: ________"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?30,ADDRFL,!
  • Condition for execution: ADDRFL]""
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?30,"Address :"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: ?41,VAPA(1)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?41,VAPA(2)
  • Condition for execution: VAPA(2)]""
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?41,VAPA(3)
  • Condition for execution: VAPA(3)]""
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !?41,VAPA(4)_", "_$P(VAPA(5),"^",2)_" "_VAPA(6),!?30,"Phone : "_VAPA(8)
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: @PSOBAR3,X2,@PSOBAR2,$C(13)
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !?1,"WEIGHT(Kg): "
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: $P(WT,"^",9)_" ("_$P(WT,"^")_")"
  • Condition for execution: +$P(WT,"^",8)
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: ?41,"HEIGHT(cm): "
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: $P(HT,"^",9)_" ("_$P(HT,"^")_")"
  • Condition for execution: $P(HT,"^",8)
  • Line Location: HD+15
Function Call: WRITE
  • Prompt: "*"
  • Line Location: HD+16
Function Call: WRITE
  • Prompt: !?10,"*",?35,"POLYPHARMACY REVIEW",?79,"*",!?10,"*",?79,"*",!?10,"* Patient: "_PSNAME,?50,"(ID#: "_VA("BID")_")",?79,"*"
  • Line Location: HD+17
Function Call: WRITE
  • Prompt: !?10,"* is identified as having "_PSONUM_" or more active prescriptions",?79,"*",!?10,"* for drugs (excluding supplies). To avoid unnecessary",?79,"*"
  • Line Location: HD+18
Function Call: WRITE
  • Prompt: !?10,"* medications, please review these to ensure that each one",?79,"*",!?10,"* is essential. Unnecessary medications may be discontinued on",?79,"*"
  • Line Location: HD+19
Function Call: WRITE
  • Prompt: !?10,"* the attached Action Profile.",?79,"*",!?10,"*",?79,"*",!?10,"* I have reviewed the medications below and have taken",?79,"*",!?10,"* actions to discontinue those that are no longer required.",?79,"*"
  • Line Location: HD+20
Function Call: WRITE
  • Prompt: !?10,"*",?79,"*"
  • Line Location: HD+21
Function Call: WRITE
  • Prompt: !?10,"*",?25
  • Line Location: HD+22
Function Call: WRITE
  • Prompt: "_"
  • Line Location: HD+22
Function Call: WRITE
  • Prompt: ?79,"*",!?10,"*",?25,"(Signature)",?79,"*"
  • Line Location: HD+23
Function Call: WRITE
  • Prompt: !?10,"*",?79,"*"
  • Line Location: HD+23
Function Call: WRITE
  • Prompt: !?10,"*",?25,"Drugs ("_^TMP($J,DFN)_")",?60,"SIG",?79,"*"
  • Line Location: HD+24
Function Call: WRITE
  • Prompt: !?10,"* "
  • Line Location: HD+25
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+25
Function Call: WRITE
  • Prompt: ?52
  • Line Location: HD+26
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HD+26
Function Call: WRITE
  • Prompt: ?79,"*"
  • Line Location: HD+27
Function Call: WRITE
  • Prompt: !?10
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: FT+0
Function Call: WRITE
  • Prompt: !!,$C(7),"There are no clinics defined for this Clinic Group!",!,$C(7)
  • Line Location: CLSG+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CLSG+13
Function Call: WRITE
  • Prompt: !,"Report Queued to Print !!",!!
  • Condition for execution: $D(ZTSK)
  • Line Location: CLSG+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CLSG+14
Function Call: WRITE
  • Prompt: !?99,"COSIGNER: "_$P($G(^VA(200,$P(^PSRX(J,3),"^",3),0)),"^")
  • Line Location: COS+0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(59.8 - [#59.8] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call