Routine: PSDTRVR1

Information

PSDTRVR1 ;BIR/JPW-CS Transfer Vaults Report (cont'd) ; 4 Aug 94

Name	Comments	DBIA/ICR reference
START	;compile data
PRINT	;print transfer between vaults by date
DONE
END	;
HDR	;header for log

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?10,"** NO TRANSFER BETWEEN VAULTS DATA FOR THIS REPORT **" Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: DONE+0
Function Call: WRITE	Prompt: ! Line Location: DONE+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+2
Function Call: WRITE	Prompt: !,?15,"TRANSFER CS DRUGS BETWEEN DISP SITES REPORT",?70,"Page: ",PG Line Location: HDR+2
Function Call: WRITE	Prompt: !,?15,"TRANSACTIONS FOR PERIOD ",$P(PSDATE,"^")," TO ",$P(PSDATE,"^",2) Line Location: HDR+3
Function Call: WRITE	Prompt: !,?15,"PRINTED ",RPDT,!!,?2,"=> DRUG",!!,"DATE/TIME TRANSFERRED",?28,"QUANTITY",?40,"TRANSFERRED BY",!,LN,! Line Location: HDR+5