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

Package: Outpatient Pharmacy

Routine: PSOP1


Information

PSOP1 ;BHAM ISC/SAB - prints short medication profile ;May 20, 2020@10:41:46

Source Information

Source file <PSOP1.m>

Entry Points

Name Comments DBIA/ICR reference
Q
W
HD
SORT
DATE ;asks date range
EDT
DRUG ;asks drug list
TO
CLSS ;asks drug class list
TO1
DIR
SIG

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: I
  • Line Location: W+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+3
Function Call: WRITE
  • Prompt: !,CP_$P(RX0,"^"),$$ECME^PSOBPSUT(J),$$TITRX^PSOUTL(J),?14,$S($D(^PSDRUG(+$P(RX0,"^",6),0)):$E($P(^(0),"^"),1,39),1:"NOT ON FILE"),?54,$S($L(ST)=1:" "_ST,1:ST)
  • Line Location: W+10
Function Call: WRITE
  • Prompt: ?58,$S($L(RXF)=1:" "_RXF,1:RXF)
  • Line Location: W+12
Function Call: WRITE
  • Prompt: ?61,$E($P(RX0,"^",13),4,5)_"-"_$E($P(RX0,"^",13),6,7)_"-"_$E($P(RX0,"^",13),2,3)
  • Line Location: W+13
Function Call: WRITE
  • Prompt: ?70,$E(RXD,4,5)_"-"_$E(RXD,6,7)_"-"_$E(RXD,2,3)_$S($G(RST(RXD)):"R",1:"")
  • Condition for execution: RXD
  • Line Location: W+13
Function Call: WRITE
  • Prompt: !?5,"QTY: ",$P(RX0,"^",7),?24,"SIG: ",$G(FSIG(1))
  • Line Location: W+18
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: W+19
Function Call: WRITE
  • Prompt: !?57,"REF",!?1,"Rx#",?14,"Drug",?54,"ST",?57,"REM",?62,"Issued",?70,"Last Fill",!,PSOPLINE
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DRUG+1
Function Call: WRITE
  • Prompt: !,$C(7),"Less Than 'Start' Value"
  • Line Location: TO+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CLSS+1
Function Call: WRITE
  • Prompt: !,$C(7),"Less Than 'Start' Value"
  • Line Location: TO1+1
Function Call: WRITE
  • Prompt: !?6
  • Condition for execution: ($X+$L($P(MIG," ",SG)_" "))>$S(IOST["C-":IOM,1:70)
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: SIG+4
Function Call: WRITE
  • Prompt: !?6
  • Condition for execution: ($X+$L($P(MIG," ",SG)_" "))>$S(IOST["C-":IOM,1:70)
  • Line Location: SIG+6
Function Call: WRITE
  • Prompt: $P(MIG," ",SG)_" "
  • Line Location: SIG+6
Info |  Source |  Entry Points |  Interaction Calls