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

Package: Controlled Substances

Routine: PSDDSOR1


Information

PSDDSOR1 ;BHM/MHA/PWC - Digitally signed CS Orders Report ;02/02/2021

Source Information

Source file <PSDDSOR1.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ; Print the Report
P1
GETDATA(Y,ORIEN,DFN) ;Gets data from archival file, otherwise use old CPRS call.
FSIG(PSOFILE,PSOINTR,PSOLENTH) ;Format front door sig
FSTART
FQUIT
SIG(RXIEN) ; Directions

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ",Y7(I),!
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?2,"Provider: "_$E($P(Y4,"^")_P1,1,30),?50,"DEA #: "_$P(Y4,"^",3)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !?2,"Clinic: "_$S(ERXIEN:"",1:$$GET1^DIQ(44,$P(Y0,"^",13),.01))
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: !?2,"Provider Address: "_PL
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?20,PL1
  • Condition for execution: PL1]""
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?2,"CPRS Order #: "_$S(ERXIEN:"N/A",1:$P(Y0,"^",2)),?50,"Date Order Written: "
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: !?2,"Patient Name: "_$E($P(Y1,"^")_P1,1,30)
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: ?50,"PATIENT ID: "
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: $E($P(Y1,"^"))_VA("BID")
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: ?50,"DOB: ",$P(Y1,U,8)
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: !?2,"Patient Address: "_PL
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !?19,PL1
  • Condition for execution: PL1]""
  • Line Location: PRT+27
Function Call: WRITE
  • Prompt: !?2,"Rx #: "_$S($P(Y0,"^",12)="R":$P(^PSRX(S5,0),"^"),1:"")
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !?2,"eRx ID #: "_$S(ERXIEN:$P(Y2,"^",6),1:"")
  • Line Location: PRT+29
Function Call: WRITE
  • Prompt: !?2,"ECME #: "_Y8
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: ?50,"Qty: "_$S(AC=4:$P(^PS(52.41,S5,0),"^",10),1:$P(Y2,"^",3))
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !?2,"SIG: "
  • Line Location: PRT+33
Function Call: WRITE
  • Prompt: $$UNESC^ORHLESC($G(FSIG(1)))
  • Line Location: PRT+36
Function Call: WRITE
  • Prompt: !?6,$$UNESC^ORHLESC($G(FSIG(EE)))
  • Line Location: PRT+39
Function Call: WRITE
  • Prompt: ?7,Y3(PL),!
  • Line Location: PRT+40
Function Call: WRITE
  • Prompt: !?2,"Date Filled: ",$$FMTE^XLFDT($P(RX2,"^",2),"2Z")
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: ?27,"# of Refills: ",$S($P(Y0,"^",12)="R":+$P($G(^PSRX(S5,0)),"^",9),1:$P($G(^PS(52.41,S5,0)),"^",11))
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: ?50,"Date Released: "
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: !?2,"Releasing Pharmacist: "_$S($P(RX2,"^",3):$P(^VA(200,$P(RX2,"^",3),0),"^"),1:"")
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: ?50,"Valid PKI Certificate?: ",$S(ERXIEN:"N/A",$$GET1^DIQ(52,S5,310,"I"):"Yes",1:"")
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: !?2,"Date Signature Validation Attempted by Pharmacy: "
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: "N/A"
  • Condition for execution: ERXIEN
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: !?2,"Signature Status: "_$E(PL,1,60)
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !,?20,$E(PL,61,200)
  • Condition for execution: $L(PL)>60
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] GET1^DIQ
^PSDRUG - [#50] GET1^DIQ
^PSRX - [#52] GET1^DIQ
^PS(52.41 - [#52.41] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call