Routine: PSDDSOR1

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

Package	Total	Caller Graph
Controlled Substances	2	PSDDSOR PSDDSOR2

Entry Points

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

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

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

Customize PDF page

Package: Controlled Substances

Routine: PSDDSOR1

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRT
P1