Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Order Entry Results Reporting 4 ($$SUBSCRIB,ARCHIVE)^ORDEA  $$UNESC^ORHLESC  $$NATURE^ORUTL3  GETDATA^ORWOR1  
Outpatient Pharmacy 3 $$LSTRFL^PSOBPSU1  $$ECMENUM^PSOBPSU2  ($$CHKERX,$$ERXIEN,ERXDATA)^PSOERXU9  
Controlled Substances 2 HD^PSDDSOR  HD^PSDDSOR2  
Kernel 1 $$FMTE^XLFDT  
Registration 1 PID^VADPT  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Controlled Substances 3 PSDDSOR  PSDDSOR2  PSDSUBOX  

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

External References

Name Field # of Occurrence
$$GET1^DIQ PRT+11, P1+5, P1+7, P1+9, GETDATA+37, GETDATA+38
$$SUBSCRIB^ORDEA GETDATA+22
ARCHIVE^ORDEA GETDATA+20, GETDATA+23
$$UNESC^ORHLESC PRT+36, PRT+39
$$NATURE^ORUTL3 GETDATA+40
GETDATA^ORWOR1 GETDATA+27
HD^PSDDSOR PRT+2
HD^PSDDSOR2 PRT+2
$$LSTRFL^PSOBPSU1 GETDATA+55
$$ECMENUM^PSOBPSU2 GETDATA+56
$$CHKERX^PSOERXU9 GETDATA+17
$$ERXIEN^PSOERXU9 PRT+1
ERXDATA^PSOERXU9 GETDATA+25
PID^VADPT PRT+21
$$FMTE^XLFDT P1+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(50.606 - [#50.606] GETDATA+48
^PS(50.7 - [#50.7] GETDATA+48
^PS(52.41 - [#52.41] PRT+21, PRT+32, P1+2, GETDATA+34, FSIG+7, FSIG+11
^PSRX - [#52] PRT+21, PRT+28, P1, P1+2, GETDATA+33, GETDATA+38, FSIG+8, FSIG+9, FSIG+13, SIG+3
, SIG+4
^PSRX("APL" GETDATA+33
^TMP($J GETDATA+18!, GETDATA+21, GETDATA+23!, GETDATA+27, GETDATA+29
^VA(200 - [#200] P1+4

Label References

Name Line Occurrences
FQUIT FSIG+5, FSIG+6, FSIG+7, FSIG+8, FSIG+9, FSIG+12, FSIG+14
FSIG PRT+34
FSTART FSIG+12

Naked Globals

Name Field # of Occurrence
^( FSIG+11, FSIG+13
^(0 GETDATA+48, FSIG+11, FSIG+13
^(1 GETDATA+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AC PRT+1, PRT+2, PRT+32, P1+7, P1+9
CN GETDATA+13~, GETDATA+50*, GETDATA+51
CNT FSIG+10~, FSTART+1*, FSTART+2
DDR GETDATA+13~, GETDATA+37*, GETDATA+43
DFN PRT+21*, GETDATA~, GETDATA+16, GETDATA+27, GETDATA+32
>> DIRUT PRT+2
ECME GETDATA+13~, GETDATA+56*, GETDATA+57
EE PRT+38*, PRT+39, GETDATA+13~
ERXDATA GETDATA+14~, GETDATA+25, GETDATA+31
ERXIEN PRT+1~*, PRT+8, PRT+11, PRT+17, PRT+19, PRT+29, P1+5, P1+6, P1+7, P1+8
, P1+9, GETDATA+13~, GETDATA+17*, GETDATA+19, GETDATA+25, GETDATA+27, GETDATA+28, GETDATA+32, GETDATA+35, GETDATA+36
, GETDATA+40
FFF FSIG+10~, FSIG+13*, FSTART+1*, FSTART+2
FLIM FSIG+10~, FSTART+1, FSTART+3*
FSIG FSIG+5!
FSIG( PRT+38, PRT+39, FSTART+1*, FSTART+5*
FSIG(1 PRT+35, PRT+36, PRT+37, FSTART+6*
FSIG(2 FSTART+6!
FVAR FSIG+10~, FSTART*, FSTART+1*, FSTART+3, FSTART+4*, FSTART+5
FVAR1 FSIG+10~, FSTART*, FSTART+1, FSTART+2*, FSTART+4
HSIG FSIG+10~
HSIG( FSIG+11*, FSIG+13*, FSTART+1, FSTART+2
HSIG(0 FSIG+12, FSIG+14
I PRT+4~, PRT+5*, PRT+7*, PRT+8, PRT+9*, PRT+13*, PRT+24*, SIG+1~, SIG+3*, SIG+4
II FSIG+10~, FSTART*, FSTART+1*, FSTART+5
IOSL PRT+2
J PRT+4~, PRT+13*, PRT+14, PRT+15, PRT+24*, PRT+25, PRT+26
NATURE GETDATA+40~*, GETDATA+41
NCHK GETDATA+21~*, GETDATA+22*, GETDATA+23
NNN FSIG+10~, FSIG+11*, FSIG+13*, FSTART+1*
ORI GETDATA+13~, GETDATA+47*, GETDATA+48, GETDATA+49
ORIE GETDATA+13~, GETDATA+48*, GETDATA+49
ORIEN GETDATA~, GETDATA+15, GETDATA+17, GETDATA+20, GETDATA+21, GETDATA+22, GETDATA+23, GETDATA+27, GETDATA+29, GETDATA+33
, GETDATA+34, GETDATA+40, GETDATA+41
>> P1 PRT+10, PRT+18
PIEN GETDATA+13~, GETDATA+34*, GETDATA+35, GETDATA+38
PL PRT+4~, PRT+5*, PRT+6*, PRT+7*, PRT+8, PRT+13*, PRT+14*, PRT+16, PRT+24*, PRT+25*
, PRT+27, PRT+40*, P1+9*, P1+10
PL1 PRT+4~, PRT+13*, PRT+14, PRT+15*, PRT+16, PRT+24*, PRT+25, PRT+26*, PRT+27
>> PND GETDATA+21
PND0 GETDATA+13~, GETDATA+34*, GETDATA+47
PSOFILE FSIG~, FSIG+5, FSIG+6, FSIG+7, FSIG+8, FSIG+9, FSIG+11, FSIG+12
PSOINTR FSIG~, FSIG+5, FSIG+7, FSIG+8, FSIG+9, FSIG+11, FSIG+13
PSOLENTH FSIG~, FSIG+5, FSTART+1
RFL GETDATA+13~, GETDATA+55*, GETDATA+56
>> RX GETDATA+22
RX0 GETDATA+13~, GETDATA+33*, GETDATA+37
RX2 P1~*, P1+1, P1+3, P1+4
RXIEN GETDATA+13~, GETDATA+33*, GETDATA+35, GETDATA+36, GETDATA+38, GETDATA+54, GETDATA+55, GETDATA+56, SIG~, SIG+2
, SIG+3, SIG+4
RXOI GETDATA+13~, GETDATA+33*, GETDATA+47
>> S5 PRT+1, PRT+21, PRT+28, PRT+32, PRT+34, P1, P1+2, P1+5, P1+7, P1+9
SIG SIG+1~*, SIG+4*, SIG+5
STA GETDATA+13~, GETDATA+38*, GETDATA+41
TMP GETDATA+13~, GETDATA+29*, GETDATA+31*
TMP(1 GETDATA+36, GETDATA+41, GETDATA+43
TMP(2 GETDATA+45
TMP(3 GETDATA+46
TMP(4 GETDATA+32, GETDATA+42
TMP(5 GETDATA+42
TMP(6 GETDATA+44
TMP(7 GETDATA+50, GETDATA+51
U PRT+23, GETDATA+43
>> VA("BID" PRT+21
Y PRT+17*, P1+3*, P1+7, GETDATA~, GETDATA+15*, GETDATA+16*, GETDATA+21*, GETDATA+27, GETDATA+32*, GETDATA+35*
, GETDATA+36*, GETDATA+41*, GETDATA+52*
Y(1 GETDATA+42*
Y(2 GETDATA+43*, GETDATA+50*
Y(3 GETDATA+44*
Y(4 GETDATA+45*
Y(5 GETDATA+46*
Y(6 GETDATA+49*
Y(7 GETDATA+51*!
Y(8 GETDATA+57*
>> Y0 PRT+11, PRT+17, PRT+21, PRT+28, PRT+34, P1, P1+2, P1+8
>> Y1 PRT+18, PRT+21, PRT+23, PRT+24
>> Y2 PRT+6, PRT+8, PRT+29, PRT+32
>> Y3( PRT+40
>> Y4 PRT+10
>> Y5 PRT+13
>> Y6 PRT+7
>> Y7( PRT+9
>> Y8 PRT+31
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All