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

Package: Outpatient Pharmacy

Routine: PSOP


Information

PSOP ;BIR/SAB - Medication profile long or short ;May 20, 2020@10:37:43

Source Information

Source file <PSOP.m>

Entry Points

Name Comments DBIA/ICR reference
DOIT
S
DEV
P
Q
O
LOOP

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?20,$C(7),"NO PHARMACY INFORMATION"
  • Line Location: DOIT+0
Function Call: WRITE
  • Prompt: !!,"PATIENT HAS ARCHIVED PRESCRIPTIONS",!
  • Line Location: DOIT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+1
Function Call: WRITE
  • Prompt: !!?(80-$L("Medication Profile Sorted by "_HDR))/2,"Medication Profile Sorted by "_HDR
  • Line Location: P+3
Function Call: WRITE
  • Prompt: !?(80-$L(FR_" to "_TO))/2,FR_" to "_TO
  • Condition for execution: $G(FR)]""
  • Line Location: P+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $G(PQT)
  • Line Location: P+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: P+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+3
Function Call: WRITE
  • Prompt: !!,"Rx #: "_CP_$P(RX0,"^"),$$ECME^PSOBPSUT(J),$$TITRX^PSOUTL(J),?32,"Drug: ",$G(DRX)
  • Line Location: O+8
Function Call: WRITE
  • Prompt: !?2,"SIG: "_$G(FSIG(1))
  • Line Location: O+13
Function Call: WRITE
  • Prompt: !?7,$G(FSIG(IIII))
  • Line Location: O+14
Function Call: WRITE
  • Prompt: !?2,"QTY: ",$P(RX0,"^",7),?23,"# of Refills: ",$P(RX0,"^",9),?45,"Issue/Expr: "
  • Line Location: O+21
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3),"/"
  • Line Location: O+21
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+21
Function Call: WRITE
  • Prompt: !?2,"Prov: "_PHYS,?30,"Entry By: "_$P(RX0,"^",16),?45,"Filled: "
  • Line Location: O+23
Function Call: WRITE
  • Prompt: $E(Y,4,5),"-",$E(Y,6,7),"-",$E(Y,2,3)
  • Condition for execution: Y
  • Line Location: O+23
Function Call: WRITE
  • Prompt: " (",$P(RX0,"^",11),")"
  • Line Location: O+23
Function Call: WRITE
  • Prompt: !?2,"Cosigner: "_PHYS
  • Line Location: O+25
Function Call: WRITE
  • Prompt: !?2,"Last Released: "
  • Line Location: O+27
Function Call: WRITE
  • Prompt: $E(PSOLR,4,5)_"-"_$E(PSOLR,6,7)_"-"_$E(PSOLR,2,3)
  • Condition for execution: PSOLR
  • Line Location: O+27
Function Call: WRITE
  • Prompt: ?45,$S($P(RX2,"^",15):"Original Fill Returned to Stock",1:"Original Release: "_$S($P(RX2,"^",13):$E($P(RX2,"^",13),4,5)_"-"_$E($P(RX2,"^",13),6,7)_"-"_$E($P(RX2,"^",13),2,3),1:""))
  • Line Location: O+28
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+30
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: O+38
Function Call: WRITE
  • Prompt: @IOF,!,$P(^DPT(DFN,0),"^"),?70,"Page: "_PAGE
  • Line Location: O+39
Function Call: WRITE
  • Prompt: $E(^(K,0),4,5),"-",$E(^(0),6,7),"-",$E(^(0),2,3)," (",$P(^(0),"^",2),") QTY:",$P(^(0),"^",4)_$S($P(^(0),"^",16):" (R)",1:"")_", "
  • Line Location: O+40

FileMan Files Accessed Via FileMan Db Call

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