Routine: PSXUNREL

Information

PSXUNREL ;BIR/WPB-Report of Rx's Not Released by the Vendor ;29 Jun 2001 2:34 PM

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"All Rx's have been released." Line Location: EN+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED" Line Location: DEV+0
Function Call: WRITE	Prompt: !,"Ending date must follow starting date!" Line Location: DATE+10
Function Call: WRITE	Prompt: !!,"Job Canceled" Line Location: QUE+3
Function Call: WRITE	Prompt: !!,"Job Queued" Line Location: QUE+4
Function Call: WRITE	Prompt: !,ORDER,?18,RX,?28,FILL,?33,$E($G(VAPRT),1,35),?70,DRGID Line Location: ORDER+6
Function Call: WRITE	Prompt: @IOF Line Location: HDR+0
Function Call: WRITE	Prompt: !,?15,"Report of Unreleased Rxs for Transmission ",BAT Line Location: HDR+8
Function Call: WRITE	Prompt: !,?23,"Printed : ",$$FMTE^XLFDT(%,"1P"),! Line Location: HDR+9
Function Call: WRITE	Prompt: !,"Facility: ",SITE,?41,"Pharmacy Division: ",PHAR Line Location: HDR+10
Function Call: WRITE	Prompt: !,"Transmitted: ",$$FMTE^XLFDT(TDTM,"1P"),?41,"Received: ",$$FMTE^XLFDT(ATM,"1P") Line Location: HDR+11
Function Call: WRITE	Prompt: !,"Batch Type: ",PSXTYP,!! Line Location: HDR+12
Function Call: WRITE	Prompt: "ORDER #",?18,"RX NUMBER",?28,"FILL",?33,"DRUG NAME",?70,"DRUG ID",!,LINE Line Location: HDR+13
Function Call: WRITE	Prompt: ! Line Location: HDR+14
Function Call: WRITE	Prompt: @IOF Line Location: EX+6

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^PSX(552 - [#552]	GET1^DIQ