Routine: PSDDFP1

Information

PSDDFP1 ;BIR/JPW-Disp from Pharm w/o Green Sheet (cont'd) ; 2 Aug 93

Source file <PSDDFP1.m>

Package	Total	Call Graph
VA Fileman	4	NOW^%DTC ^DIC FILE^DICN ^DIE

Package	Total	Caller Graph
Controlled Substances	2	PSDDFP PSDNDES

Name	Comments	DBIA/ICR reference
ADD	;add info to your vault (58.8)
TRANS	;create a disp transaction
END
FIND
UPDATE	;update transaction with activity # from 58.8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Creating a dispensing transaction..." Line Location: TRANS+1
Function Call: WRITE	Prompt: !!,?5,"Updating on-hand quantity..." Line Location: UPDATE+1
Function Call: WRITE	Prompt: "done.",! Line Location: UPDATE+8
Function Call: WRITE	Prompt: !!,"Old Balance : ",BAL,?35,"New Balance: ",BAL-QTY Line Location: UPDATE+9
Function Call: WRITE	Prompt: !!,"Updating your transaction history..." Line Location: UPDATE+10
Function Call: WRITE	Prompt: "still updating..." Line Location: UPDATE+13
Function Call: WRITE	Prompt: "done.",!! Line Location: UPDATE+14
Routine Call	DIE Line Location: ADD+6 UPDATE+12 UPDATE+13
Routine Call	DIC Line Location: FIND+1 ADD+5

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	ADD+1, ADD+4, ADD+5, UPDATE+7, UPDATE+8
^PSD(58.81 - [#58.81]	TRANS+2, FIND, FIND+2, UPDATE+8

Name	Line Occurrences
FIND	FIND

Name	Field # of Occurrence
^(0	ADD+1, ADD+4, UPDATE+7*

Name	Field # of Occurrence
>> %	UPDATE+6
>> ASK	UPDATE+13
>> BAL	UPDATE+7*, UPDATE+8, UPDATE+9, UPDATE+12
DA	FIND+1!, ADD+2!, ADD+5!, ADD+6!, UPDATE+11!, UPDATE+14!
DA(1	ADD+2, ADD+5, ADD+6*
DA(2	ADD+2, ADD+5, ADD+6*
DD	ADD+2!
DIC	FIND+1!, ADD+2!, ADD+5!*
DIC(0	FIND+1, ADD+2, ADD+5*
DIE	ADD+6!, UPDATE+11!, UPDATE+14!
>> DILOCKTM	TRANS+2
DINUM	FIND+1, ADD+2, ADD+5*!
DLAYGO	FIND+1!, ADD+5!
DO	ADD+2!
DR	ADD+6!, UPDATE+11!, UPDATE+12, UPDATE+13!*, UPDATE+14!
DT	ADD+5, ADD+6
>> EXP	UPDATE+13
>> LOT	UPDATE+13
>> MFG	UPDATE+13
>> NAOU	UPDATE+12
>> PSDDT	UPDATE+6*, UPDATE+12
>> PSDR	ADD+1, ADD+2, ADD+4, ADD+5, ADD+6, UPDATE+7, UPDATE+8, UPDATE+12
>> PSDREC	FIND*, FIND+1, ADD+2, UPDATE+8, UPDATE+11
>> PSDS	ADD+1, ADD+2, ADD+4, ADD+5, ADD+6, UPDATE+7, UPDATE+8, UPDATE+12
>> PSDUZ	UPDATE+12
>> QTY	UPDATE+7, UPDATE+9, UPDATE+12
>> X	FIND+1, ADD+2, ADD+5*