Routine: PSUUD1

Information

PSUUD1 ;BIR/TJH - PBM UNIT DOSE MODULE ;12 AUG 1999

Source file <PSUUD1.m>

Name	Comments	DBIA/ICR reference
EN	; Entry point
L1
L2	; loop thru patient within date
L3	; loop thru unit dose entries within patient
PROV	; collect provider data
DISD	; Dispense Drug 55.06,2 Mult --> 55.07 ^PS(55,PAT,5,DOSE,1,DISP,0)
DISDL1
DISDX	; end of dispense drug, go back for next one.
STEP2	; done with data collection, go back to ^PSUUD0