Routine: PSDOPT

Package	Total	Call Graph
VA Fileman	5	^DIC $$EXTERNAL^DILFD Y^DIQ EN^DIQ1 ^DIR
Controlled Substances	4	^PSDOPT0 (,PSDORIG,PSDPRTL,PSDREL,PSDRFL)^PSDOPT1 (,PSDKLL,RTSDTC)^PSDOPT2 ^PSDSET
Kernel	4	$$UP^XLFSTR $$VERSION^XPDUTL EN^XQH SIG^XUSESIG
Outpatient Pharmacy	2	^PSOFUNC FINAL^PSOLSET
Registration	2	KVAR^VADPT PID^VADPT6

Package	Total	Caller Graph
Controlled Substances	6	PSD OUTPATIENT PSDACT1 PSDOPT0 PSDOPT1 PSDOPT2 PSDPND

Entry Points

Name	Comments	DBIA/ICR reference
CMOPMSG
END
ASKP	;ask rx #
PROCESS	;process selection
DISPLAY	;disp data
CHK	;displays and checks if ok
ASKPH	;ask releasing RPH
CLLDIR2
CHKRF	;Dave B (PSD330) if its deleted, show status.
ASKD	;ask disp site
MSG
KLLALL	;Kill all
ASK12
CHKD
VER	;Current Outpatient Version, and Rx status added 6/17/98
BC1	;
CLLDIR

External References

Name	Field # of Occurrence
^DIC	ASKD+5, ASKPH+4
$$EXTERNAL^DILFD	CHKRF+5, CHKRF+6
Y^DIQ	BC1+8
EN^DIQ1	ASKP+20
^DIR	ASKP+5, CLLDIR+10, PROCESS+19
^PSDOPT0	BC1+12
^PSDOPT1	PROCESS+20
PSDORIG^PSDOPT1	PROCESS+11
PSDPRTL^PSDOPT1	PROCESS+11
PSDREL^PSDOPT1	PROCESS+13
PSDRFL^PSDOPT1	PROCESS+11
^PSDOPT2	BC1+11
PSDKLL^PSDOPT2	PSDOPT+16
RTSDTC^PSDOPT2	CLLDIR+3
^PSDSET	PSDOPT+17
^PSOFUNC	BC1+4
FINAL^PSOLSET	END
KVAR^VADPT	END+3
PID^VADPT6	BC1+9
$$UP^XLFSTR	ASKP+7
$$VERSION^XPDUTL	VER+1
EN^XQH	PSDOPT+19
SIG^XUSESIG	PSDOPT+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Please contact your Pharmacy Coordinator for access",!,"to log Outpatient Prescriptions. PSJ RPHARM security key required.",!! Line Location: PSDOPT+18
Function Call: WRITE	Prompt: ! Line Location: ASKD+5
Function Call: WRITE	Prompt: !!,"There are no stocked drugs for this Pharmacy Vault!!",!! Line Location: CHKD+0
Function Call: WRITE	Prompt: ! Line Location: ASKPH+4
Function Call: WRITE	Prompt: ! Line Location: ASKP+4
Function Call: WRITE	Prompt: !,"INVALID PRESCRIPTION NUMBER" Line Location: ASKP+10
Function Call: WRITE	Prompt: !!,"Sorry, someone else is editting this prescription. Please try again later." Line Location: ASKP+13
Function Call: WRITE	Prompt: !?7,$C(7)," INVALID STATION NUMBER !!",! Line Location: ASKP+21
Function Call: WRITE	Prompt: !?7,$C(7)," INVALID PRESCRIPTION NUMBER" Line Location: ASKP+23
Function Call: WRITE	Prompt: !?7,$C(7)," NON-EXISTENT PRESCRIPTION" Line Location: ASKP+24
Function Call: WRITE	Prompt: !!,"Sorry, someone else is editting this prescription. Please try again later." Line Location: ASKP+27
Function Call: WRITE	Prompt: !?7,$C(7)," IMPROPER BARCODE FORMAT" Line Location: ASKP+32
Function Call: WRITE	Prompt: !?7,$C(7)," PRESCRIPTION HAS BEEN DELETED." Line Location: BC1+2
Function Call: WRITE	Prompt: !!,PSDRN," is not currently stocked in ",PSDSN,".",!!," No action taken. ",!! Line Location: BC1+10
Function Call: WRITE	Prompt: !,"Error somewhere" Line Location: CLLDIR+16
Function Call: WRITE	Prompt: !,"This fill has already been posted." Line Location: PROCESS+13
Function Call: WRITE	Prompt: !,"This fill has already been released." Line Location: PROCESS+14
Function Call: WRITE	Prompt: !,"This fill has already been posted & released, no further action required." Line Location: PROCESS+15
Function Call: WRITE	Prompt: !!,?20,"View Controlled Substances Rx # ",RXNUM,!,?28,RPDT,!,LN,!! Line Location: DISPLAY+1
Function Call: WRITE	Prompt: "Location: ",?10,PSDSN,?55 Line Location: DISPLAY+2
Function Call: WRITE	Prompt: PSDRN(1) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !,"Drug: ",?10,PSDRN,?55,"Quantity: ",QTY Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,"The Quantity is not strictly numeric. This will cause the new balance to be",!,"calculated incorrectly.",! Line Location: DISPLAY+7
Function Call: WRITE	Prompt: !,"Patient: ",?10,PATN_" ("_VA("BID")_")",?55,PSDRN(1)," Date: ",?65,$E(DAT,4,5)_"/"_$E(DAT,6,7)_"/"_$E(DAT,2,3),! Line Location: DISPLAY+8
Function Call: WRITE	Prompt: !!,?5,"Your balance is ",BAL,".",!,?5,"You may not dispense lower than your balance.",!! Line Location: DISPLAY+9
Function Call: WRITE	Prompt: !!,?15,"Old Balance: ",BAL,?40,"New Balance: ",BAL-QTY,!! Line Location: DISPLAY+10
Function Call: WRITE	Prompt: $C(7),!!,"No action taken. This transaction has not been recorded.",!! Line Location: MSG+0
Function Call: WRITE	Prompt: !,"This RX has a status of '"_$S(PSDSTA=11:"EXPIRED",PSDSTA=12:"DISCONTINUED",PSDSTA=13:"DELETED",PSDSTA=14:"DISCONTINUED BY PROVIDER",PSDSTA=15:"DISCONTINUED (EDIT)",1:"Unknown Procedure")_$S(PSDSTA=12:"'.",1:"', no action can be taken.") Line Location: CHKRF+1
Function Call: WRITE	Prompt: !!,"Below is a list of actions taken on the prescription.",!!,"DATE/TIME",?22,"PERSON",?45,"ACTIVITY",! Line Location: CHKRF+3
Function Call: WRITE	Prompt: "=" Line Location: CHKRF+3
Function Call: WRITE	Prompt: "=" Line Location: CHKRF+3
Function Call: WRITE	Prompt: !,"Comment: ",$G(DELREAS) Line Location: CHKRF+8
Function Call: READ	Prompt: "Do you wish to continue? NO // " Formatting: ! Timeout: DTIME Variable: AN Line Location: ASK12+0
Function Call: WRITE	Prompt: !,"Answer 'N'o, and you will prompted for another prescription." Line Location: ASK12+1
Function Call: WRITE	Prompt: !,?10,"This is a CMOP fill and has been transmitted, dispensed or ",!?10,"retransmitted.",! Line Location: CMOPMSG+0
Routine Call	DIC Line Location: ASKD+5 ASKPH+4
Routine Call	DIR Line Location: ASKP+5 CLLDIR+10 PROCESS+19

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	Classic Fileman Calls
^DIC(4 - [#4]	Classic Fileman Calls
52.3	EXTERNAL^DILFD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSDOPT+22, CHKRF+4
^DD(58.81	BC1+8
^PSD(58.8 - [#58.8]	CHKD, BC1+10, DISPLAY+9
^PSD(58.81 - [#58.81]	BC1+11
^PSDRUG - [#50]	BC1+7
^PSRX - [#52]	ASKP+3, ASKP+10, ASKP+13, ASKP+24, ASKP+26, ASKP+27, ASKP+31, BC1+2, BC1+4, BC1+7 , CLLDIR+13, PROCESS+5, END+1, VER+2, CHKRF+3, CHKRF+4
^PSRX("B"	ASKP+9
^VA(200 - [#200]	PSDOPT+19, ASKPH+3
^XMB(1 - [#4.3]	ASKP+19
^XUSEC("PSJ RPHARM"	PSDOPT+18
^XUSEC("PSORPH"	ASKPH+3

Label References

Name	Line Occurrences
ASK12	ASK12+1
ASKP	ASKP+10, ASKP+13, ASKP+16, ASKP+21, ASKP+23, ASKP+24, ASKP+26, ASKP+27, ASKP+32, BC1+2 , BC1+3, CLLDIR+16, PROCESS+9, PROCESS+12, PROCESS+13, PROCESS+15, PROCESS+19, PROCESS+20
ASKPH	ASKP+6
BC1	ASKP+31
CHKD	ASKD+2
CHKRF	ASKP+16, ASKP+26
CLLDIR2	CLLDIR+4, CLLDIR+5
CMOPMSG	PROCESS+6, PROCESS+7
DISPLAY	PROCESS+16
END	PSDOPT+19, PSDOPT+20, ASKD+5, CHKD, ASKPH+4, ASKP+6, BC1+10, BC1+11, PROCESS+16, PROCESS+19
MSG	BC1+11, PROCESS+19, DISPLAY+9
PROCESS	CLLDIR+13, CLLDIR+14, CLLDIR+15
VER	ASKP+9, ASKP+26, BC1+1

Naked Globals

Name	Field # of Occurrence
^(0	BC1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%H	END!
%I	END!
>> ACTIVITY	CHKRF+5*, CHKRF+8
>> AN	ASK12*, ASK12+1, ASK12+2
BAL	END!, DISPLAY+9*, DISPLAY+10
C	BC1+8~*, END!
CNT	CLLDIR, CLLDIR+8, END!, CLLDIR2*
DA	ASKD+3!, ASKP+19*, ASKP+21!, ASKP+22!, PROCESS+17!, END!
DAT	CLLDIR+13, CLLDIR+14, CLLDIR+15*, END!, DISPLAY+8
>> DATA	CHKRF+4*, CHKRF+6, CHKRF+7
>> DATE	CHKRF+4*, CHKRF+8
DD	END!
>> DELDUZ	CHKRF+6*, CHKRF+8
DELREAS	CHKRF+7!*, CHKRF+8
DFN	BC1+7*, BC1+8, END!
DIC	ASKD+3!, ASKD+5!, ASKPH+1, ASKPH+4!, ASKP+19*, ASKP+20!, END!
DIC("A"	ASKD+4, ASKPH+2
DIC("B"	ASKD+4, ASKPH+3
DIC("S"	ASKD+3, ASKPH+1
DIC(0	ASKD+3, ASKPH+1
DIE	END!
DIK	END!
DINUM	END!
DIQ	ASKP+20!*
DIR	ASKP+4!, ASKP+5!, PROCESS+17!, PROCESS+19!, END!
DIR("?"	ASKP+5, PROCESS+18
DIR("A"	ASKP+4, PROCESS+17
DIR("B"	PROCESS+17*
DIR(0	ASKP+5, CLLDIR, CLLDIR+8, CLLDIR+9, PROCESS+17, CLLDIR2*
DIROUT	END!
DIRUT	CLLDIR+10, PROCESS+17!, PROCESS+19, END!
DLAYGO	END!
DO	END!
DR	ASKP+19*, ASKP+20!, END!
DT	PSDOPT+21
DTIME	ASK12
>> DTOUT	ASKP+6
>> DUOUT	ASKP+6
DUZ	PSDOPT+18, PSDOPT+19, PSDOPT+21, ASKPH+3
IOM	CHKRF+3
J	BC1+3!, BC1+4*
JJ	END!
LN	PSDOPT+21~*, END!, DISPLAY+1
NEW	PSDOPT+21, ASKP+4!, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+6, PROCESS+7, END!, DISPLAY+3
NEW(1	PROCESS+2, PROCESS+3, PROCESS+4*, PROCESS+6, PROCESS+7, DISPLAY+3
NEW(2	PROCESS+2, PROCESS+3, PROCESS+4*, DISPLAY+3
NODE	END!
NODE6	END!
>> NUMBER	PROCESS+5*, PROCESS+6, PROCESS+7
PATN	BC1+8*, END+2!, DISPLAY+8
PHARM	END+2!
PHARMN	END+2!
PRF	END+2!
PSD	ASKP+21!, ASKP+22!
PSD(1	ASKP+19*, ASKP+20
PSD(4	ASKP+21
PSDA	CLLDIR+11*, CLLDIR+13, CLLDIR+14, CLLDIR+15, PROCESS+1, PROCESS+2, PROCESS+3, PROCESS+4, PROCESS+7, PROCESS+11 , END+2!
PSDATE	END+2!
PSDERR	CLLDIR+10!*, CLLDIR+12
>> PSDFLNO	PROCESS+1*
PSDHOLDX	VER+1*!
PSDNEXT	ASKP+16, ASKP+26, CHKRF+9, ASK12+2, ASK12+3!
PSDOUT	PSDOPT+21, ASKP+4, BC1+11, PROCESS+9, PROCESS+12, PROCESS+16, END+2!, DISPLAY+9, CMOPMSG
PSDPOST	ASKP+1!, CLLDIR+13, CLLDIR+14, CLLDIR+15*, PROCESS+13, PROCESS+14, PROCESS+15
PSDR	BC1+7*, BC1+10, END+2!, DISPLAY+9
PSDREL	ASKP+1!, CLLDIR+13, CLLDIR+14, CLLDIR+15*, PROCESS+13, PROCESS+14, PROCESS+15
>> PSDRET("PR"	CLLDIR+8
>> PSDRET("RF"	CLLDIR+3, CLLDIR+4, CLLDIR+5, PROCESS+7
PSDRN	BC1+7*, BC1+10, END+2!, DISPLAY+4
PSDRN(1	DISPLAY+3*, DISPLAY+8
PSDRPH	ASKPH+4*, END+2!
PSDRX	ASKP+3, ASKP+4!, ASKP+8, ASKP+9, ASKP+10, ASKP+13!, ASKP+23*, ASKP+24, ASKP+26, ASKP+27! , ASKP+31, BC1+1, BC1+2, BC1+4, BC1+7, BC1+11, CLLDIR+13, PROCESS+5, END+1, END+2! , CHKRF+3, CHKRF+4
PSDRXIN	ASKP+4!, ASKP+8, ASKP+9, ASKP+26, BC1+1*, BC1+6!, VER+2
PSDS	ASKD+1, ASKD+6, CHKD, BC1+10, END+2!, DISPLAY+9
PSDSEL	ASKP+1!
PSDSEL("OR"	CLLDIR, CLLDIR+13
PSDSEL("PR"	CLLDIR+7, CLLDIR+8, CLLDIR+15
PSDSEL("RF"	CLLDIR+1, CLLDIR+2, CLLDIR+3, CLLDIR+4, CLLDIR+14
>> PSDSITE	PSDOPT+17, ASKD+1, ASKD+2, ASKD+4, ASKD+6*
PSDSN	ASKD+1, ASKD+6, BC1+10, END+2!, DISPLAY+2
PSDSTA	ASKP+16, ASKP+26, BC1+2, BC1+3, BC1+4, BC1+6!, VER+1!, VER+2*, CHKRF+1, CHKRF+9
PSDT	END+2!
PSDUZ	PSDOPT+21*, END+2!
>> PSDXXX	ASKP+16*
PSOCSUB	END+2!
PSOVR	ASKP+16, ASKP+26, BC1+6!, VER+1*, VER+2
QTY	BC1+7, CLLDIR+14, CLLDIR+15*, END+2!, DISPLAY+4, DISPLAY+7, DISPLAY+9, DISPLAY+10
RF	END+2!
RPDT	PSDOPT+22*, END+2!, DISPLAY+1
RX0	BC1+3!, BC1+4*
RX2	BC1+3!, BC1+4*
RXNUM	ASKP+4!, BC1+7*, END+2!, DISPLAY+1
ST	BC1+3!, BC1+5
ST0	BC1+3!
>> STATUS	PROCESS+5*
U	PSDOPT+19, ASKD+1, ASKD+2, ASKD+4, ASKD+6, ASKPH+3, ASKP+19, BC1+7, BC1+8, CLLDIR+13 , CLLDIR+14, CLLDIR+15
>> VA("BID"	END+3!, DISPLAY+8
>> VA("PID"	END+3!
X	PSDOPT+20~, ASKP+6, ASKP+7, ASKP+8, ASKP+9, ASKP+10, ASKP+13, ASKP+16, ASKP+19, ASKP+20 , ASKP+21, ASKP+23, ASKP+24, ASKP+26, ASKP+27, PROCESS+5, END+2!, VER+1, CHKRF+3, CHKRF+4 , CHKRF+5
X1	PSDOPT+20~, CLLDIR+2, CLLDIR+3, CLLDIR+4, CLLDIR+5, CLLDIR+8, CLLDIR2
>> X3	CHKRF+4*
XQH	PSDOPT+19~*
>> XX	CLLDIR+14, CLLDIR+15
>> XXX	CLLDIR+14, CLLDIR+15, PROCESS+1, PROCESS+3, PROCESS+4
Y	PSDOPT+21, PSDOPT+22, ASKD+5, ASKD+6, ASKPH+4, BC1+8, PROCESS+19, END+2!, CHKRF+4*
Y(0	CLLDIR+11, CLLDIR+13, CLLDIR+14, CLLDIR+15

Customize PDF page

Package: Controlled Substances

Routine: PSDOPT

Information

Source Information

Call Graph

Call Graph Total: 17

Caller Graph

Caller Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: