Routine: PSDDWKE

Information

PSDDWKE ;BIR/JPW-Pharm Dispensing Worksheet (cont'd) ; 24 Aug 93

Package	Total	Call Graph
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
Controlled Substances	1	PSDDWK1

Name	Comments	DBIA/ICR reference
SET	;sets disp data if disp site changes
MSG1
EDIT	;ask/edit dispensing info
DIE	;edit mfg/lot #/exp
EDIT1
MSG

Name	Field # of Occurrence
^DIE	EDIT+2, EDIT1+3, EDIT1+6, DIE+2, DIE+4
^DIR	EDIT+9

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: !!,"Updating your order..." Line Location: EDIT1+2
Function Call: WRITE	Prompt: "still updating..." Line Location: EDIT1+4
Function Call: WRITE	Prompt: "done.",! Line Location: EDIT1+7
Function Call: WRITE	Prompt: $C(7),!!,"This order cannot be processed. ",PSDRN," is ",!,$S(MSG:"missing breakdown unit or package size",1:"not stocked")," in ",ORDSN,".",! Line Location: MSG1+0
Function Call: READ	Timeout: DTIME Variable: X Line Location: MSG+0
Function Call: WRITE	Prompt: !!,"Press <RET> to continue" Line Location: MSG+0
Function Call: WRITE	Prompt: !! Line Location: MSG+0
Routine Call	DIE Line Location: EDIT+2 EDIT1+3 EDIT1+6 DIE+2 DIE+4
Routine Call	DIR Line Location: EDIT+9

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DIE+1, DIE+5
^PSD(58.8 - [#58.8]	EDIT+4, EDIT+6, SET+2, SET+3, SET+4
^PSD(58.85 - [#58.85]	EDIT+4, EDIT+5, EDIT+12, EDIT1, EDIT1+3, DIE+3, DIE+5, SET+5!
^VA(200 - [#200]	EDIT1

Name	Field # of Occurrence
^(0	EDIT+5, EDIT1, EDIT1+3, DIE+3, DIE+5, SET+4
^(2	SET+3

Name	Field # of Occurrence
>> ACT	EDIT+3, EDIT+8, EDIT+10, EDIT+13, EDIT1+1
DA	EDIT+2!, EDIT+9!, EDIT1+3!, EDIT1+5!, EDIT1+6!, DIE+2!, DIE+4!*
DA(1	EDIT1+5, DIE+4
DA(2	EDIT1+5*
DIE	EDIT+2!, EDIT1+3!, EDIT1+5!, EDIT1+6!, DIE+2!, DIE+4!*
DIR	EDIT+9!
DIR("A"	EDIT+9*
DIR("B"	EDIT+9*
DIR(0	EDIT+9*
DIRUT	EDIT+9!, EDIT+10
DR	EDIT+2!, EDIT1+3!, EDIT1+5!, EDIT1+6!, DIE+2!, DIE+4!*
DTIME	MSG
DTOUT	EDIT+2!, EDIT+9!
DUOUT	EDIT+9!, EDIT+11
>> EXP	EDIT1+3, DIE+1, DIE+3, DIE+4, DIE+5, SET+1, SET+4*
>> EXPD	DIE+1, DIE+5
>> LOT	EDIT1+3, DIE+3, DIE+4, DIE+5, SET+1, SET+4*
>> MFG	EDIT1+3, DIE+3, DIE+4, DIE+5, SET+1, SET+4*
>> MSG	EDIT+1, EDIT+7, MSG1
>> NAOU	EDIT1+3, EDIT1+5
>> NBKU	EDIT+7, EDIT+9, SET+1, SET+4
>> NEW	EDIT+4*, EDIT+6, EDIT+14, EDIT+15
>> NPKG	EDIT+7, EDIT+9, SET+1, SET+4
>> ORDS	EDIT+4*, EDIT+6, EDIT1+3, EDIT1+6, DIE+4, SET+2, SET+3, SET+4, SET+5
>> ORDSN	EDIT+4*, MSG1
>> PRT	SET+5*
>> PSDAGN	SET+3*
>> PSDBY	EDIT1*, EDIT1+3
>> PSDBYN	EDIT1*
>> PSDGSN	SET+3*
>> PSDM	EDIT+14
>> PSDMN	EDIT+15, SET+2*, SET+4
>> PSDN	EDIT+2, EDIT+4, EDIT+5, EDIT+12, EDIT1, EDIT1+3, DIE+2, DIE+3, DIE+5, SET+5
>> PSDNO	MSG1*
>> PSDOUT	EDIT+1, EDIT+2, EDIT+3, EDIT+8, EDIT+9, EDIT+10, EDIT+11, MSG+1
>> PSDR	EDIT+6, EDIT1+5, DIE+4, SET+4
>> PSDRGN	SET+3*
>> PSDRN	MSG1
>> PSDS	EDIT+4
>> QTY	EDIT+5, EDIT+9, EDIT1, EDIT1+3, EDIT1+6
>> REQ	EDIT1+5
>> STAT	EDIT1*, EDIT1+3, EDIT1+6
TEXP	DIE+3!*, DIE+4!
TLOT	DIE+3!*, DIE+4!
TMFG	DIE+3!*, DIE+4!
>> X	MSG*, MSG+1
Y	EDIT+2!, EDIT+3, EDIT+8, EDIT+9!, EDIT+11, EDIT+12, DIE+1, DIE+5