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 |  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 Total: 4

Package Total Call Graph
Controlled Substances 2 HD^PSDDSOR  HD^PSDDSOR2  
Kernel 1 $$DEA^XUSER  
Registration 1 PID^VADPT  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Controlled Substances 2 PSDDSOR  PSDDSOR2  

Entry Points

Name Comments DBIA/ICR reference
PRT
P1

External References

Name Field # of Occurrence
HD^PSDDSOR PRT
HD^PSDDSOR2 PRT
PID^VADPT PRT+12
$$DEA^XUSER PRT+5

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+4
Function Call: WRITE
  • Prompt: !?2,"Provider: "_$E($P(Y4,"^")_P1,1,30),?50,"DEA #: "_$S($P(Y4,"^",3)]"":$P(Y4,"^",3),$P(Y4,"^",2):$$DEA^XUSER(,$P(Y4,"^",2)),1:"")
  • Line Location: PRT+5
Function Call: WRITE
  • Prompt: !?2,"Provider Address: "_PL
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?23,PL1
  • Condition for execution: PL1]""
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: !?2,"CPRS Order #: "_$P(Y0,"^",2),?50,"Date Order Written: "
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !?2,"Patient Name: "_$E($P(Y1,"^")_P1,1,30),?50,"PATIENT ID: "
  • Line Location: PRT+11
Function Call: WRITE
  • Prompt: $E($P(Y1,"^"))_VA("BID")
  • Line Location: PRT+12
Function Call: WRITE
  • Prompt: !?2,"Patient Address: "_PL
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?19,PL1
  • Condition for execution: PL1]""
  • Line Location: PRT+16
Function Call: WRITE
  • Prompt: !?2,"Rx #: "_$S(AC=4:"",$D(^PSRX(S5,0)):$P(^PSRX(S5,0),"^"),1:"")
  • Line Location: PRT+17
Function Call: WRITE
  • Prompt: ?50,"Qty: "_$S(AC=4:$P(^PS(52.41,S5,0),"^",10),1:$P(Y2,"^",3))
  • Line Location: PRT+18
Function Call: WRITE
  • Prompt: !?2,"SIG: "
  • Line Location: PRT+19
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PL>1
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: ?7,^PSRX(S5,"SIG1",PL,0)
  • Line Location: PRT+21
Function Call: WRITE
  • Prompt: !
  • Condition for execution: PL>1
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: ?7,^PS(52.41,S5,"SIG",PL,0)
  • Line Location: PRT+23
Function Call: WRITE
  • Prompt: ?7,$P(Y3,"^")
  • Line Location: PRT+24
Function Call: WRITE
  • Prompt: !?2,"Date Filled: "
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: ?50,"Date Released: "
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !?2,"Releasing Pharmacist: "_$S($P(RX2,"^",3):$P(^VA(200,$P(RX2,"^",3),0),"^"),1:"")
  • Line Location: P1+3
Function Call: WRITE
  • Prompt: ?50,"Valid PKI Certificate?: "
  • Line Location: P1+4
Function Call: WRITE
  • Prompt: FL0
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: !?2,"Date Signature Validation Attempted by Pharmacy: "
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: $E(Y,4,5)_"/"_$E(Y,6,7)_"/"_$E(Y,2,3)
  • Line Location: P1+9
Function Call: WRITE
  • Prompt: !?2,"CPRS Nature of Order: "_$P(Y0,"^",3),?50,"CPRS Status: "_$P($P(Y0,"^",4),";",2)
  • Line Location: P1+10
Function Call: WRITE
  • Prompt: !?2,"Signature Status: "_$E(PL,1,60)
  • Line Location: P1+12
Function Call: WRITE
  • Prompt: !,?20,$E(PL,61,200)
  • Condition for execution: $L(PL)>60
  • Line Location: P1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+12

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(52.41 - [#52.41] PRT+12, PRT+18, PRT+22, PRT+23
^PSRX - [#52] PRT+12, PRT+17, PRT+20, PRT+21, P1, P1+6
^VA(200 - [#200] P1+3

Label References

Name Line Occurrences
P1 PRT+20, PRT+22

Naked Globals

Name Field # of Occurrence
^(0 P1+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AC PRT, PRT+12, PRT+17, PRT+18, PRT+20, PRT+22, P1, P1+5, P1+6
>> DFN PRT+12*
>> DIRUT PRT
FL P1+6~*
FL0 P1+5~*, P1+6*, P1+7
>> I PRT+1*, PRT+3*, PRT+4, PRT+6*, PRT+13*
IOSL PRT
>> J PRT+6*, PRT+7, PRT+8, PRT+13*, PRT+14, PRT+15
>> P1 PRT+5, PRT+11
>> PL PRT+1*, PRT+2*, PRT+3*, PRT+4, PRT+6*, PRT+7*, PRT+9, PRT+13*, PRT+14*, PRT+16
, PRT+20*, PRT+21*, PRT+23*, P1+11*, P1+12
>> PL1 PRT+6*, PRT+8*, PRT+9, PRT+13*, PRT+15*, PRT+16
>> RX2 P1*, P1+1, P1+2, P1+3, P1+5
>> S5 PRT+12, PRT+17, PRT+18, PRT+20, PRT+21, PRT+22, PRT+23, P1, P1+6
>> VA("BID" PRT+12
>> Y PRT+10*, P1+1*, P1+2*, P1+5*, P1+6*, P1+9
>> Y0 PRT+10, P1+10, P1+11
>> Y1 PRT+11, PRT+12, PRT+13
>> Y2 PRT+2, PRT+4, PRT+18
>> Y3 PRT+24
>> Y4 PRT+5
>> Y5 PRT+6
>> Y6 PRT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All