Routine: PSAVER4

Information

PSAVER4 ;;BIR/JMB-Verify Invoices - CONT'D ;9/8/97

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
Drug Accountability	2	END^PSAPROC SITES^PSAUTL1

Package	Total	Caller Graph
Drug Accountability	1	PSAVER

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"The verified invoices contain new drugs for the assigned pharmacy location.",!,"A report will print by pharmacy location listing the new drugs. Use the" Line Location: PSAVER4+6
Function Call: WRITE	Prompt: !,"Balance Adjustment option to enter an adjustment that reflects the total",!,"dispense units on hand for each new drug.",!!,"It is suggested that you send the report to a print." Line Location: PSAVER4+7
Function Call: WRITE	Prompt: ! Line Location: PSAVER4+8
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: PSAVER4+9
Function Call: WRITE	Prompt: !,PSADRGN,!,PSASLN,! Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF,!?28,"<<< NEW DRUG REPORT >>>" Line Location: HDR+1
Function Call: WRITE	Prompt: !?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",!?28,"<<< NEW DRUG REPORT >>>",?72,"Page "_PSAPG Line Location: HDR+2
Function Call: WRITE	Prompt: !?34,"MASTER VAULT",!!,$P($G(^PSD(58.8,PSALOC,0)),"^") Line Location: HDR+3
Function Call: WRITE	Prompt: !,PSADLN Line Location: HDR+8
Routine Call	%ZIS Line Location: PSAVER4+9

Name	Line Occurrences (* Changed, ! Killed)
^PSD(58.8 - [#58.8]	HDR+3, HDR+4, HDR+5

Name	Line Occurrences
HDR	PRINT+2, PRINT+3
QUIT	PSAVER4+10

Name	Field # of Occurrence
>> %ZIS	PSAVER4+8*
IO("Q"	PSAVER4+8!, PSAVER4+10, QUIT!
IOF	PSAVER4+6, PRINT+4, HDR+1, HDR+2
IOSL	PRINT+3
IOST	PRINT+4, HDR+1, HDR+2
>> POP	PSAVER4+9
>> PSACOMB	HDR+5
>> PSADLN	PRINT+1*, HDR+8
>> PSADRGN	PRINT+2, PRINT+3
>> PSALOC	PRINT+1, PRINT+2, PRINT+3, PRINT+5, HDR+3, HDR+4, HDR+5
>> PSALOCN	HDR+5*, HDR+7
>> PSANEWD(	PRINT+2, PRINT+3, PRINT+5!
>> PSAOUT	PRINT+1*, PRINT+2, PRINT+3, PRINT+4, HDR+1
>> PSAPG	PRINT+1, HDR+1, HDR+2, HDR+8
>> PSASLN	PRINT+1*, PRINT+3
>> ZTDESC	PSAVER4+12*
ZTDTH	PSAVER4+11~, PSAVER4+12*
ZTIO	PSAVER4+11~
>> ZTQUEUED	QUIT
>> ZTREQ	QUIT*
ZTRTN	PSAVER4+11~, PSAVER4+12*
ZTSAVE	PSAVER4+11~
ZTSAVE("PSANEWD("	PSAVER4+13*
ZTSK	PSAVER4+11~