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; 08/30/02

Source Information

Source file <PSDDSOR1.m>

Call Graph

Call Graph

Call Graph Total: 10

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Controlled Substances 3 PSDDSOR  PSDDSOR2  PSDSUBOX  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ PRT+9, GETDATA+30, GETDATA+31
$$SUBSCRIB^ORDEA GETDATA+19
ARCHIVE^ORDEA GETDATA+17, GETDATA+20
$$UNESC^ORHLESC PRT+28, PRT+31
GETDATA^ORWOR1 GETDATA+21
HD^PSDDSOR PRT
HD^PSDDSOR2 PRT
$$LSTRFL^PSOBPSU1 GETDATA+46
$$ECMENUM^PSOBPSU2 GETDATA+47
PID^VADPT PRT+16
$$FMTE^XLFDT P1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?1," DRUG"_$S($G(I):" (OI)",1:"")_": "_PL,?50,"CS Federal Schedule: "_+$P(Y2,"^",5)
  • Line Location: PRT+6
Function Call: WRITE
  • Prompt: " ",Y7(I),!
  • Line Location: PRT+7
Function Call: WRITE
  • Prompt: !?2,"Provider: "_$E($P(Y4,"^")_P1,1,30),?50,"DEA #: "_$P(Y4,"^",3)
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: !?2,"Clinic: "_$$GET1^DIQ(44,$P(Y0,"^",13),.01),?50,"Detox #: "_$P(Y4,"^",4)
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?2,"Provider Address: "_PL
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?20,PL1
  • Condition for execution: PL1]""
  • Line Location: PRT+13
Function Call: WRITE
  • Prompt: !?2,"CPRS Order #: "_$P(Y0,"^",2),?50,"Date Order Written: "
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: PRT+14
Function Call: WRITE
  • Prompt: !?2,"Patient Name: "_$E($P(Y1,"^")_P1,1,30),?50,"PATIENT ID: "
  • Line Location: PRT+15
Function Call: WRITE
  • Prompt: $E($P(Y1,"^"))_VA("BID")
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?2,"Patient Address: "_PL
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !?19,PL1
  • Condition for execution: PL1]""
  • Line Location: PRT+20
Function Call: WRITE
  • Prompt: !?2,"Rx #: "_$S($P(Y0,"^",12)="R":$P(^PSRX(S5,0),"^"),1:"")
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !?2,"ECME #: "_Y8
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: ?50,"Qty: "_$S(AC=4:$P(^PS(52.41,S5,0),"^",10),1:$P(Y2,"^",3))
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !?2,"SIG: "
  • Line Location: PRT+25
Function Call: WRITE
  • Prompt: $$UNESC^ORHLESC($G(FSIG(1)))
  • Line Location: PRT+28
Function Call: WRITE
  • Prompt: !?6,$$UNESC^ORHLESC($G(FSIG(EE)))
  • Line Location: PRT+31
Function Call: WRITE
  • Prompt: ?7,Y3(PL),!
  • Line Location: PRT+32
Function Call: WRITE
  • Prompt: !?2,"Date Filled: ",$$FMTE^XLFDT($P(RX2,"^",2),2)
  • 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?: "
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: FL0
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: !?2,"Date Signature Validation Attempted by Pharmacy: "
  • Line Location: P1+9
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !?2,"CPRS Nature of Order: "_$P(Y0,"^",3),?50,"Order Status: "_$P($P(Y0,"^",4),";",2)
  • Line Location: P1+11
Function Call: WRITE
  • Prompt: !?2,"Signature Status: "_$E(PL,1,60)
  • Line Location: P1+13
Function Call: WRITE
  • Prompt: !,?20,$E(PL,61,200)
  • Condition for execution: $L(PL)>60
  • Line Location: P1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+13

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+39
^PS(50.7 - [#50.7] GETDATA+39
^PS(52.41 - [#52.41] PRT+16, PRT+24, P1+2, GETDATA+25, FSIG+7, FSIG+11
^PSRX - [#52] PRT+16, PRT+21, P1, P1+2, P1+7, GETDATA+24, GETDATA+28, GETDATA+31, FSIG+8, FSIG+9
, FSIG+13
^PSRX("APL" GETDATA+24
^TMP($J GETDATA+16!, GETDATA+18, GETDATA+20!, GETDATA+21, GETDATA+22
^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+26
FSTART FSIG+12

Naked Globals

Name Field # of Occurrence
^( FSIG+11, FSIG+13
^(0 P1+7, GETDATA+39, FSIG+11, FSIG+13
^(1 GETDATA+18

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AC PRT, PRT+24, P1+6, P1+7
CN GETDATA+13~, GETDATA+41*, GETDATA+42
CNT FSIG+10~, FSTART+1*, FSTART+2
DDR GETDATA+13~, GETDATA+30*, GETDATA+34
DFN PRT+16*, GETDATA~, GETDATA+15, GETDATA+21, GETDATA+23
>> DIRUT PRT
ECME GETDATA+13~, GETDATA+47*, GETDATA+48
EE PRT+30*, PRT+31, GETDATA+13~
FFF FSIG+10~, FSIG+13*, FSTART+1*, FSTART+2
FL P1+7~*
FL0 P1+6~*, P1+7*, P1+8
FLIM FSIG+10~, FSTART+1, FSTART+3*
FSIG FSIG+5!
FSIG( PRT+30, PRT+31, FSTART+1*, FSTART+5*
FSIG(1 PRT+27, PRT+28, PRT+29, 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+2~, PRT+3*, PRT+5*, PRT+6, PRT+7*, PRT+10*, PRT+17*, GETDATA+22*
II FSIG+10~, FSTART*, FSTART+1*, FSTART+5
IOSL PRT
J PRT+2~, PRT+10*, PRT+11, PRT+12, PRT+17*, PRT+18, PRT+19
NCHK GETDATA+18~*, GETDATA+19*, GETDATA+20
NNN FSIG+10~, FSIG+11*, FSIG+13*, FSTART+1*
ORI GETDATA+13~, GETDATA+38*, GETDATA+39, GETDATA+40
ORIE GETDATA+13~, GETDATA+39*, GETDATA+40
ORIEN GETDATA~, GETDATA+14, GETDATA+17, GETDATA+18, GETDATA+19, GETDATA+20, GETDATA+21, GETDATA+22, GETDATA+24, GETDATA+25
, GETDATA+32
>> P1 PRT+8, PRT+15
PIEN GETDATA+13~, GETDATA+25*, GETDATA+26, GETDATA+29, GETDATA+31
PL PRT+2~, PRT+3*, PRT+4*, PRT+5*, PRT+6, PRT+10*, PRT+11*, PRT+13, PRT+17*, PRT+18*
, PRT+20, PRT+32*, P1+12*, P1+13
PL1 PRT+2~, PRT+10*, PRT+11, PRT+12*, PRT+13, PRT+17*, PRT+18, PRT+19*, PRT+20
>> PND GETDATA+18
PND0 GETDATA+13~, GETDATA+25*, GETDATA+29, GETDATA+38
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+46*, GETDATA+47
>> RX GETDATA+19
RX0 GETDATA+13~, GETDATA+24*, GETDATA+30
RX2 P1~*, P1+1, P1+3, P1+4, P1+6
RXIEN GETDATA+13~, GETDATA+24*, GETDATA+26, GETDATA+27, GETDATA+28, GETDATA+31, GETDATA+45, GETDATA+46, GETDATA+47
RXOI GETDATA+13~, GETDATA+24*, GETDATA+38
>> S5 PRT+16, PRT+21, PRT+24, PRT+26, P1, P1+2, P1+7
STA GETDATA+13~, GETDATA+31*, GETDATA+32
TMP GETDATA+13~
TMP( GETDATA+22*
TMP(1 GETDATA+27, GETDATA+32, GETDATA+34
TMP(2 GETDATA+36
TMP(3 GETDATA+37
TMP(4 GETDATA+23, GETDATA+33
TMP(5 GETDATA+33
TMP(6 GETDATA+35
TMP(7 GETDATA+41, GETDATA+42
>> VA("BID" PRT+16
Y PRT+14*, P1+3*, P1+6*, P1+7*, P1+10, GETDATA~, GETDATA+14*, GETDATA+15*, GETDATA+18*, GETDATA+21
, GETDATA+23*, GETDATA+26*, GETDATA+27*, GETDATA+28*, GETDATA+29*, GETDATA+32*, GETDATA+43*
Y(1 GETDATA+33*
Y(2 GETDATA+34*, GETDATA+41*
Y(3 GETDATA+35*
Y(4 GETDATA+36*
Y(5 GETDATA+37*
Y(6 GETDATA+40*
Y(7 GETDATA+42*!
Y(8 GETDATA+48*
>> Y0 PRT+9, PRT+14, PRT+16, PRT+21, PRT+26, P1, P1+2, P1+7, P1+11, P1+12
>> Y1 PRT+15, PRT+16, PRT+17
>> Y2 PRT+4, PRT+6, PRT+24
>> Y3( PRT+32
>> Y4 PRT+8, PRT+9
>> Y5 PRT+10
>> Y6 PRT+5
>> Y7( PRT+7
>> Y8 PRT+23
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