Routine: PSIVST2

Information

PSIVST2 ;BIR/PR-COMP IV STATS FILE ;16 DEC 97 / 1:40 PM

Source file <PSIVST2.m>

Name	Comments	DBIA/ICR reference
ENCT	;Need DFN, PSIVS, ON, PSIVNOL,W42, PSIVC AND PSIVD
DATE	;Set up date node.
W1	;Set up ward dispensed node.
W2	;Set up ward destroyed,recycled,cancelled node.
DRUG	;Get the order drugs.
CT	;Set up 0 node, get drug node if not already there.
OV	;Update or set drug node.
SUB3	;Set up the patient,provider,and ward subfiles of the drug.
CT1	;
WARD