Routine: PSDDWK2

Package	Total	Call Graph
VA Fileman	3	NOW^%DTC ^DIC ^DIR
Controlled Substances	1	UPDATE^PSDDWK3

Package	Total	Caller Graph
Controlled Substances	1	PSDDWK1

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Assigning Pharmacy Dispensing #...",! Line Location: DISPN+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASKN+1
Function Call: WRITE	Prompt: !!,"This order cannot be processed without a dispensing number.",!!,"Press <RET> to continue" Line Location: ASKN+1
Function Call: WRITE	Prompt: !!,"The number "_Y_" has previously been used as a dispensing number.",!,"Please select another number.",!! Line Location: ASKN+2
Function Call: WRITE	Prompt: !!,"PHARMACY DISPENSING # ",PSDPN,! Line Location: EDIT+1
Function Call: WRITE	Prompt: !,"Updating the transaction..." Line Location: EDIT+4
Function Call: WRITE	Prompt: $C(7),!!," Contact your Pharmacy Co-ordinator.",!," Your ""Dispensing #'s"" range has "_$S(MSG:"not been defined.",1:"been exceeded.") Line Location: MSG+1
Function Call: WRITE	Prompt: !!,"Press <RET> to continue" Line Location: MSG1+0
Function Call: WRITE	Prompt: !!,"Old Balance : ",BAL,?35,"New Balance :",BAL-QTY,!! Line Location: SUB+5
Routine Call	DIC Line Location: FIND+1
Routine Call	DIR Line Location: ASKN

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	AUTO+1, AUTO+2, AUTO+3, ADDN, ADDN+1, ADDN+2, ADDN+3, SUB+1, SUB+3, SUB+4 , CHK+1, CHK+2
^PSD(58.81 - [#58.81]	ASKN+2, ADD+1, FIND*, FIND+2, ADDN+1
^PSD(58.82 - [#58.82]	CHK+2
^PSD(58.85 - [#58.85]	PROC+2, DISPN+1, EDIT+2

Name	Field # of Occurrence
^(0	PROC+2, EDIT+2, SUB+3*

Name	Field # of Occurrence
>> %	PROC+2, SUB+2
>> ACT	PROC+2, EDIT+3
>> BAL	EDIT+1, SUB+3, SUB+5
DIC	FIND+1!*
DIC(0	FIND+1*
>> DILOCKTM	ADD+1, AUTO+3, SUB+1
DINUM	FIND+1*!
DIR	ASKN!
DIR("?"	ASKN*
DIR("A"	ASKN*
DIR(0	ASKN*
DIRUT	ASKN!, ASKN+1
DLAYGO	FIND+1!*
DTIME	ASKN+1, MSG1
DUZ	PROC+2
>> FLAG	DISPN+1*
MSG	AUTO+1!, AUTO+2, MSG+1
>> NEW	DISPN+1
>> ORDS	DISPN+1*, AUTO+1, AUTO+2, AUTO+3, ADDN, ADDN+1, ADDN+2, ADDN+3, SUB+1, SUB+3 , SUB+4, CHK+1, CHK+2
>> PSDAG	DISPN+1
>> PSDAGN	DISPN+1*, DISPN+2
>> PSDLES	PROC+1, CHK+1, CHK+2
>> PSDN	PROC+2, DISPN+1, EDIT+2
>> PSDOUT	DISPN+2, MSG+1, MSG1+1
>> PSDPN	ASKN+3, EDIT+1, ADDN, ADDN+1, ADDN+2
>> PSDR	SUB+1, SUB+3, SUB+4, CHK+1, CHK+2
PSDREC	EDIT+2!, EDIT+3, FIND, FIND+1
>> PSDS	DISPN+1
>> PSDT	PROC+2, SUB+2
>> QTY	SUB+3, SUB+5, CHK+1, CHK+2
>> STAT	CHK+2
>> TECH	PROC+2*
>> X	ASKN+1, FIND+1, MSG1*, MSG1+1
>> Y	ASKN+2, ASKN+3