Routine: PSODIR

Package	Total	Call Graph
Outpatient Pharmacy	12	$$CLKEYWRN^PSOCLUTL INDICAT^PSODIR $$SLDEA^PSODIR5 EN^PSOFSIG (SIG,SSIG)^PSOHELP DELINS^PSOHELP3 JUMP^PSONEW1 JUMP^PSONEW3 DOSE1^PSOORED5 JUMP^PSOREF1 JUMP^PSORENW3 $$UPPER^PSOSIG
VA FileMan	5	EN^DDIOL ^DIC $$GET1^DIQ ^DIR EN^DIWE
Pharmacy Data Management	2	INDCATN^PSS50P7 $$DETOX^PSSOPKI
Kernel	1	$$DETOX^XUSER

Package	Total	Caller Graph
Outpatient Pharmacy	16	PSOBKDED PSODIR PSODIR5 PSONEW1 PSONEW3 PSOORCPY PSOORED1 PSOOREDT PSOORNE1 PSOORNE4 PSOORNE6 PSOORNW2 PSORENW PSORENW3 PSORENW4 PSOUTIL

Name	Comments	DBIA/ICR reference
PROV(PSODIR)	;
PROVEN	; Entry point for failed lookup
NODRUG
PROVX
DRGSCH()	; determine the drug schedule
GENERIC	;
GENERICX
COSIGN	;
COSIGN1
COSIGNX
DOSE(PSODIR)	;add dosing info
EX
INS(PSODIR)	;patient instructions
INSD
SINS(PSODIR)	;other lang. patient instructions
DIR	;
DIRX
JUMP	;
JUMPX
INDICAT(PSODIR)	;*441
INDICAT1	;
SIND(PSODIR)	;
OIND	;
OINDI1	;
DELIND
SLDEA(PROVIEN,PSORX,DFLTDEA,PSODRIEN)	; DEA Selection

Name	Field # of Occurrence
EN^DDIOL	INSD+6, SINS+6
^DIC	PROVEN+12, COSIGN1+3, JUMP+2
$$GET1^DIQ	DRGSCH+2, INDICAT1+19
^DIR	DIR+3, INDICAT+16, INDICAT1+4, INDICAT1+20, OIND+15, OINDI1+4, DELIND+5
EN^DIWE	INS+7
$$CLKEYWRN^PSOCLUTL	PROVEN+37
INDICAT^PSODIR	INS+9, INSD+9, SIND+3
$$SLDEA^PSODIR5	SLDEA+1
EN^PSOFSIG	INS+10, INSD+3, INSD+11, SINS+4, SINS+7, SIND+20
SIG^PSOHELP	INSD+5
SSIG^PSOHELP	SINS+5
DELINS^PSOHELP3	INSD+7, SINS+7
JUMP^PSONEW1	JUMP+4
JUMP^PSONEW3	JUMP+6
DOSE1^PSOORED5	DOSE+2
JUMP^PSOREF1	JUMP+5
JUMP^PSORENW3	JUMP+7
$$UPPER^PSOSIG	INDICAT1+15, OINDI1+15
INDCATN^PSS50P7	INDICAT+3
$$DETOX^PSSOPKI	PROVEN+24, PROVEN+35
$$DETOX^XUSER	PROVEN+25, PROVEN+35

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!!,"Provider is being edited by "_$P($G(^VA(200,PSOED,0)),"^") Line Location: PROVEN+19
Function Call: WRITE	Prompt: $C(7),!!,"Provider is being edited by an unknown user or has been deleted" Line Location: PROVEN+20
Function Call: WRITE	Prompt: $C(7),!!,"Provider must have a DETOX# to order this drug.",! Line Location: PROVEN+25
Function Call: WRITE	Prompt: $C(7),!!,"Provider not authorized to write Federal Schedule "_SDEA_" prescriptions." Line Location: PROVEN+30
Function Call: WRITE	Prompt: !,"Please contact the provider.",! Line Location: PROVEN+31
Function Call: WRITE	Prompt: $C(7),!!,"Provider must have a valid DEA# or VA# to write prescriptions for this drug.",! Line Location: PROVEN+32
Function Call: WRITE	Prompt: $C(7),!!,"Provider must have a DETOX# to order this drug.",! Line Location: PROVEN+35
Function Call: WRITE	Prompt: !!,"INDICATION:" Line Location: INDICAT+9
Function Call: WRITE	Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",! Line Location: INDICAT1+10
Function Call: WRITE	Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",! Line Location: INDICAT1+12
Function Call: WRITE	Prompt: !,PSODIR("IND"),! Line Location: INDICAT1+18
Function Call: WRITE	Prompt: $C(7),!!?5,"OTHER INDICATION REQUIRED",! Line Location: SIND+18
Function Call: WRITE	Prompt: $C(7),!!?5,"INDICATION REQUIRED",! Line Location: SIND+19
Function Call: WRITE	Prompt: !!,"OTHER LANGUAGE INDICATION:" Line Location: OIND+8
Function Call: WRITE	Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED WITHOUT SPACES.",! Line Location: OINDI1+10
Function Call: WRITE	Prompt: $C(7),!?5,"MAX OF 32 CHARACTERS ALLOWED BETWEEN SPACES.",! Line Location: OINDI1+12
Function Call: WRITE	Prompt: $C(7),!!?5,"ANY DATA ENTERED FOR "_$S($G(PSODELINS)=2:"OTHER INDICATION",1:"INDICATION") Line Location: DELIND+3
Function Call: WRITE	Prompt: $C(7),!?5,"WILL ALSO BE DELETED.",! Line Location: DELIND+4
Routine Call	DIC Line Location: PROVEN+12 COSIGN1+3 JUMP+2
Routine Call	DIR Line Location: DIR+3 INDICAT+16 INDICAT1+4 INDICAT1+20 OIND+15 OINDI1+4 DELIND+5

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^PSNDF(50.68 - [#50.68]	GET1^DIQ
^PS(59.7 - [#59.7]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^PS(50.7 - [#50.7]	INS+13, SINS+3
^PS(52.41 - [#52.41]	INS+12
^PS(55 - [#55]	INS+9, INSD+9, DELIND+1
^PSDRUG - [#50]	DRGSCH+2
^TMP($J	INS+6!*, INS+8, INS+10!, INDICAT+4, INDICAT+5, INDICAT+6, OIND+1, OIND+4, OIND+5
^VA(200 - [#200]	PROVEN+1, PROVEN+17, PROVEN+18, PROVEN+19, PROVEN+21, NODRUG+4, NODRUG+5, COSIGN+3, COSIGN+4, COSIGN+5 , COSIGN1
^XUSEC("YSCL AUTHORIZED"	PROVEN+36

Name	Line Occurrences
$$DRGSCH	PROVEN+28
$$SLDEA	PROVEN+29
COSIGN	NODRUG+4, COSIGN1+5
COSIGN1	COSIGN+2
COSIGNX	COSIGN1+4
DELIND	INDICAT+20, INDICAT1+8, OIND+20, OINDI1+8
DIR	GENERIC+3, INSD+2, SINS+4
DIRX	DIR+2, DIR+4
EX	INS+5, INSD+4, INSD+10, INSD+12, SINS+4, SINS+8
GENERIC	NODRUG+3
GENERICX	GENERIC+3
INDICAT1	INDICAT+4, INDICAT+18, INDICAT+22, INDICAT1+1
INSD	INS+3, INS+11, INS+12, INS+13, INSD+5
JUMP	PROVEN+13, DIR+5
JUMPX	JUMP+3, JUMP+4, JUMP+5, JUMP+6, JUMP+7
NODRUG	PROVEN+38
OIND	SIND+10
OINDI1	OIND+1, OIND+18, OIND+22, OINDI1+1
PROVEN	PROVEN+15, PROVEN+17, PROVEN+24, PROVEN+27, PROVEN+35, PROVEN+36
PROVX	PROVEN+13, PROVEN+14

Name	Field # of Occurrence
^("PS"	NODRUG+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CHK	INDICAT+1~, INDICAT+2, INDICAT+7, INDICAT+13, INDICAT+22, OIND+2~, OIND+3, OIND+6, OIND+12, OIND+22
>> CLOZPAT	PROVEN+27, PROVEN+36
CNT	INDICAT+1~, INDICAT+2, INDICAT+8, OIND+2~, OIND+3, OIND+7
D	INS+2, INS+6, INS+8*, INS+10!
DA	INS+1~, DIR+3!, INDICAT1+1~, OINDI1+1~
DD	EX!, INS+2!*, INS+3, INS+5
DEA	PROVEN+3~*
DETX	PROVEN+24~, PROVEN+25, PROVEN+26
DFLTDEA	SLDEA~, SLDEA+1
DIC	PROVEN+1!, PROVEN+5, PROVEN+12!, GENERIC+1!, COSIGN+1!, COSIGN1, COSIGN1+3!, INS+7, DIR+3!, JUMP+2!
DIC("A"	PROVEN+7, COSIGN1+3
DIC("B"	PROVEN+1, PROVEN+11, COSIGN1*
DIC("S"	PROVEN+7, PROVEN+8, COSIGN1+1, COSIGN1+2
DIC("W"	PROVEN+6, COSIGN1+2
DIC(0	PROVEN+5, COSIGN1, JUMP+2*
DIE	DIR+3!
DIR	GENERIC+1!, EX!, INS+2!, SINS+1!, DIR+3!, INDICAT+1~, INDICAT1+2!, INDICAT1+19~, OINDI1+2!, DELIND+2~
DIR("?"	INDICAT+14, INDICAT+15, OIND+13, OIND+14
DIR("A"	INDICAT+11, INDICAT1+4, INDICAT1+20, OIND+10, OINDI1+4, DELIND+5
DIR("B"	INS+13, INS+14, INSD, SINS+2, SINS+3, INDICAT+13, INDICAT1+3, INDICAT1+19, OIND+12, OINDI1+3 , DELIND+5*
DIR("L"	INDICAT+8, INDICAT+12, OIND+7, OIND+11
DIR(0	GENERIC+2, INSD, SINS+2, DIR+2, INDICAT+11, INDICAT1+4, INDICAT1+20, OIND+10, OINDI1+4, DELIND+5*
DIROUT	INSD+9!, DIR+4, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT1+2!, OIND+9!, OINDI1+2!
DIRUT	EX!, INS+2!, INSD+9!, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT1+2!, INDICAT1+21, OIND+9!, OINDI1+2! , DELIND+2~, DELIND+6
DOOR	EX!
DOSE	EX!
DOSEOR	EX!
DRUA	EX!
DTOUT	PROVEN+14, COSIGN1+4, INSD+9!, DIR+4, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT+17, INDICAT1+2!, INDICAT1+5 , OIND+9!, OIND+16, OINDI1+2!, OINDI1+5
DUOUT	PROVEN+14, COSIGN1+4, INSD+9!, DIR+4, DIRX!, INDICAT+1!, INDICAT+10!, INDICAT+17, INDICAT1+2!, INDICAT1+5 , OIND+9!, OIND+16, OINDI1+2!, OINDI1+5
DWLW	INS+7*, INS+10!
DWPK	INS+7*, INS+10!
ENT	EX!
ERTE	EX!
I	INDICAT+1~, INDICAT+5, INDICAT+6, INDICAT1+1~, INDICAT1+11, OIND+2~, OIND+4, OIND+5, OINDI1+1~, OINDI1+11
IND	INDICAT1+1~, INDICAT1+11, INDICAT1+13, INDICAT1+15, INDICAT1+16, OINDI1+1~, OINDI1+11, OINDI1+13, OINDI1+15, OINDI1+16
INDCAT	INDICAT+1~, INDICAT+6, INDICAT+7, INDICAT+8, OIND+2~, OIND+5, OIND+6, OIND+7
INDLST	INDICAT+1~
INDLST(	INDICAT+8, OIND+7
INS1	EX!, INS+2!, INSD+6
J	INDICAT1+1~, INDICAT1+11, INDICAT1+12, INDICAT1+13, OINDI1+1~, OINDI1+11, OINDI1+12, OINDI1+13
KF	INDICAT+19~, INDICAT+20, INDICAT1+7~, INDICAT1+8
ND3	DRGSCH+1~, DRGSCH+2*
NDEA	PROVEN+27~, PROVEN+29*, PROVEN+30
NOUN	EX!
>> OR0	PROVEN+1, JUMP+1
>> ORD	INS+12
PROVIEN	SLDEA~, SLDEA+1
>> PSOCOPY	INDICAT+18, INDICAT+19, INDICAT1+7, OIND+19, OINDI1+7
>> PSODELINS	INSD+7, SINS+7, INDICAT+20, INDICAT+21, INDICAT1+8, INDICAT1+9, SIND+1, SIND+9, OIND+20, OIND+21 , OINDI1+8, OINDI1+9, DELIND+3, DELIND+7
>> PSODFN	INS+9, INSD+9, DELIND+1
PSODIR	PROV~, DOSE~, DOSE+2, INS~, INS+9, INS+10, INSD+3, INSD+9, INSD+11, SINS~ , SINS+4, SINS+7, INDICAT~, SIND~, SIND+3, SIND+20
PSODIR("COSIG	NING PROVIDER" , NODRUG+2!, NODRUG+5!, COSIGN+2, COSIGN+5, COSIGN1, COSIGN1+5*
PSODIR("CS"	PROVEN+2, PROVEN+3*, PROVEN+27
PSODIR("DFLG"	PROVEN+14, GENERIC+3, COSIGN1+4, INSD+1!, INSD+3, INSD+4, INSD+10, SINS+4, DIR+4, JUMP+1 , INDICAT+2, INDICAT+17, INDICAT1+1, INDICAT1+5, INDICAT1+21, SIND+4, SIND+11, OIND+3, OIND+16, OINDI1+1 , OINDI1+5*
PSODIR("FIELD"	PROVEN+5, GENERIC+3, INSD+4, DIR+1, JUMP+3, INDICAT+2
PSODIR("FLD"	INS+13, INSD+7, SINS+3, SINS+7, JUMP+3, INDICAT+21, INDICAT+23, INDICAT1+6, INDICAT1+9, INDICAT1+16* , INDICAT1+22, INDICAT1+23, OIND+21, OIND+23, OINDI1+6, OINDI1+9, OINDI1+16*
PSODIR("GENER	IC PROVIDER" , NODRUG+2!, GENERIC+1!, GENERIC+4*
PSODIR("IND"	INDICAT+7, INDICAT+13, INDICAT+18, INDICAT+19!, INDICAT+21!, INDICAT+22, INDICAT+23, INDICAT1+3, INDICAT1+6!, INDICAT1+7! , INDICAT1+9!, INDICAT1+15, INDICAT1+17, INDICAT1+18, SIND+5, SIND+6, SIND+7, SIND+8, SIND+12, SIND+13 , SIND+14*, SIND+15, SIND+16, SIND+17, SIND+18, SIND+19, OIND+21!, OINDI1+7!, OINDI1+9!
PSODIR("INDF"	INDICAT+19!, INDICAT+21!, INDICAT1+7!, INDICAT1+9!, INDICAT1+22, INDICAT1+23, OIND+21!, OINDI1+7!, OINDI1+9!
PSODIR("INDO"	INDICAT+19!, INDICAT+21!, INDICAT1+7!, INDICAT1+9!, SIND+5, SIND+6, SIND+7, SIND+8, SIND+12, SIND+13 , SIND+14, SIND+15, SIND+16, SIND+17, SIND+18, SIND+19, OIND+6, OIND+12, OIND+18, OIND+21! , OIND+22, OIND+23, OINDI1+3, OINDI1+6!, OINDI1+7!, OINDI1+9!, OINDI1+15*
PSODIR("INS"	INS+3, INS+13, INSD, INSD+3, INSD+5, INSD+7!, SINS+4, SINS+7!
PSODIR("OLD V	AL" , PROVEN+4*, NODRUG+2, NODRUG+3
PSODIR("PROVI	DER NAME" , NODRUG+1*
PSODIR("PROVIDER"	PROVEN+4, NODRUG*, NODRUG+3, NODRUG+4, NODRUG+5, COSIGN+3, COSIGN+5, COSIGN1
PSODIR("SIG"	INS+2, INS+3, INS+6, INS+7!, INS+8, INS+14, INSD+3, INSD+6, INSD+7!, SINS+4 , SINS+7!
PSODIR("SINS"	INSD+3, INSD+7!, SINS+2, SINS+3, SINS+4, SINS+5, SINS+6, SINS+7!
>> PSODONE	SIND+1, SIND+2, SIND+4, SIND+11, SIND+16, SIND+17, DELIND+7
PSODOSE	EX!
PSODOSNW	DOSE+1~*
PSODRIEN	SLDEA~, SLDEA+1
>> PSODRUG("DEA"	PROVEN+2, PROVEN+3, DRGSCH+3, DRGSCH+4, DRGSCH+5
>> PSODRUG("IEN"	PROVEN+24, PROVEN+35, PROVEN+38, DRGSCH+2
>> PSODRUG("OI"	INS+13, SINS+3, INDICAT+3
PSOED	PROVEN+18~*, PROVEN+19
>> PSOEDIT	PROVEN+13, INSD+10, DIR+5, JUMP+1, INDICAT+18, INDICAT+19, INDICAT+23, INDICAT1+7, INDICAT1+16, INDICAT1+22 , INDICAT1+23, OIND+17, OIND+18, OIND+19, OIND+23, OINDI1+7, OINDI1+16
>> PSOFDR	PROVEN+1, INS+12, INDICAT+18, INDICAT+19, INDICAT1+7, OIND+19
>> PSOFROM	PROVEN+8
>> PSOINSFL	INS+11
>> PSONEW1	JUMP+4
>> PSONEW3	JUMP+6
>> PSOOEINS	INS+13, INS+14, INSD+3, SINS+3, SINS+4
>> PSOOSINS	INSD+3, SINS+3*, SINS+4
PSOPROVD	PROVEN+29~*
>> PSOREF1	JUMP+5
>> PSORENW("DRUG	IEN" , PROVEN+38
>> PSORENW3	JUMP+7
PSORTE	EX!
PSORX	PROVEN+29, SLDEA~, SLDEA+1
PSORX("DETX"	PROVEN+26*
PSORX("PROVID	ER NAME" , PROVEN+11, NODRUG+1*
PSOSCH	EX!
>> PSOTPBFG	PROVEN+8
PSOX	DIRX!
PSOZ	INDICAT1+19~*
RTE	EX!
>> RX3	COSIGN+2, COSIGN+3, COSIGN+4, COSIGN+5
SCH	DRGSCH+1~, DRGSCH+2*, DRGSCH+3, EX!
SDEA	PROVEN+28~*, PROVEN+30
SEL	INDICAT+1~, INDICAT+5, INDICAT+8, INDICAT+11, OIND+2~, OIND+4, OIND+7, OIND+10
>> SIG(0	INSD+11
>> SIGOK	INSD+11*
SINS1	EX!, SINS+1!, SINS+6
>> SPEED	PROVEN+15, PROVEN+16
U	PROVEN+13, DIR+5
VERB	EX!
X	PROVEN+1!, PROVEN+13, PROVX!, GENERICX!, COSIGNX!, EX!, INSD+5, INSD+7, SINS+5, SINS+7 , DIR+4, DIR+5, JUMP+2, JUMPX, INDICAT+18, INDICAT+19, INDICAT1+1, INDICAT1+2!, INDICAT1+6, INDICAT1+7 , INDICAT1+10, INDICAT1+11, INDICAT1+12!, OIND+17, OIND+18, OIND+19, OINDI1+1, OINDI1+2!, OINDI1+6, OINDI1+7 , OINDI1+10, OINDI1+11, OINDI1+12!, DELIND+2~
Y	PROVEN+1!, PROVEN+15, PROVEN+16, PROVEN+17, PROVEN+18, PROVEN+21, PROVEN+25, PROVEN+29, PROVEN+35, PROVEN+36 , NODRUG, NODRUG+1, NODRUG+2, NODRUG+3, PROVX!, GENERIC+4, GENERICX!, COSIGN1+5, COSIGNX!, EX! , INSD+5, SINS+5, JUMP+3, INDICAT+4, INDICAT+18, INDICAT+22, INDICAT+23, INDICAT1+1, INDICAT1+2!, INDICAT1+10* , INDICAT1+11, INDICAT1+14, INDICAT1+22, INDICAT1+23, OIND+1, OIND+18, OIND+22, OIND+23, OINDI1+1, OINDI1+2! , OINDI1+10, OINDI1+11, OINDI1+14, DELIND+2~, DELIND+6, DELIND+7
Y(0	INDICAT+23, OIND+23

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSODIR

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 16

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: