Routine: PSASIG

Package	Total	Call Graph
Drug Accountability	4	BDATE^PSAPV TO^PSATRAN SITES^PSAUTL1 ^PSAUTL3
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
VA Fileman	2	NOW^%DTC ^DIR

Package

Total

Call Graph

Drug Accountability

BDATE^PSAPV TO^PSATRAN SITES^PSAUTL1 ^PSAUTL3

Kernel

^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

VA Fileman

NOW^%DTC ^DIR

Package	Total	Caller Graph
Drug Accountability	2	PSA TRANSFER SIGNATURE SHEET PSATRAN

Package

Total

Caller Graph

Drug Accountability

PSA TRANSFER SIGNATURE SHEET PSATRAN

Name	Field # of Occurrence
NOW^%DTC	TQUE+1, RQUE+1
^%ZIS	TEMP+4, REPRINT+8
^%ZISC	EXIT+4
^%ZTLOAD	TEMP+7, REPRINT+12
^DIR	EXIT+3, HDR+3
BDATE^PSAPV	REPRINT+7
TO^PSATRAN	REPRINT+6
SITES^PSAUTL1	TQUE+3, TQUE+4
^PSAUTL3	REPRINT+4
$$FMTE^XLFDT	PRINT

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: TEMP+4
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Function Call: WRITE	Prompt: ! Line Location: EXIT+2
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+3
Function Call: WRITE	Prompt: !,"There are no active pharmacy locations." Line Location: REPRINT+5
Function Call: WRITE	Prompt: ! Line Location: REPRINT+8
Function Call: WRITE	Prompt: !,?20,"(Full Name)",?55,"(Full Name)",!,PSADLN Line Location: PRINT+5
Function Call: WRITE	Prompt: ! Line Location: HDR+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+4
Function Call: WRITE	Prompt: !,PSARPDT,?20,"DRUG ACCOUNTABILITY/INVENTORY INTERFACE",?72,"Page: ",PSAPG Line Location: HDR+8
Function Call: WRITE	Prompt: !?18,"DRUG TRANSFER BETWEEN PHARMACIES SIGNATURE SHEET" Line Location: HDR+9
Function Call: WRITE	Prompt: !!!,"TRANSFERRED TO: " Line Location: HDR+11
Function Call: WRITE	Prompt: $P(PSATON,"(IP)",1)_"(IP)",!?17,$P(PSATON,"(IP)",2) Condition for execution: $L(PSATON)>63 Line Location: HDR+11
Function Call: WRITE	Prompt: PSATON Condition for execution: $L(PSATON)<74 Line Location: HDR+11
Function Call: WRITE	Prompt: !,PSASLN Line Location: HDR+11
Function Call: WRITE	Prompt: !,"TRANSFER DATE",?23,"QTY",?30,"DRUG",?68,"NEW BALANCE",!,PSASLN Line Location: HDR+12
Routine Call	DIR Line Location: EXIT+3 HDR+3
Routine Call	%ZIS Line Location: TEMP+4 REPRINT+8

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	TQUE+1, RQUE+1
^PSD(58.8 - [#58.8]	TQUE+3, TQUE+4
^PSD(58.81 - [#58.81]	RQUE+3, RQUE+4, PRINT
^PSDRUG - [#50]	PRINT+3
^TMP("PSASIG"	TQUE+2, TQUE+6, EXIT+5!
^VA(200 - [#200]	PRINT+1

Name	Line Occurrences
EXIT	TEMP+4, TEMP+5, REPRINT+4, REPRINT+5, REPRINT+8, REPRINT+9, RQUE+5
HDR	TQUE+5, RQUE+2, PRINT+2
PRINT	TQUE+6, RQUE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	TQUE+1, EXIT+5!, RQUE+1
%ZIS	TEMP+4, EXIT+5!, REPRINT+8
DIR	EXIT+3!, EXIT+5!, HDR+3!
DIR("A"	EXIT+3*
DIR(0	EXIT+3, HDR+3
DTOUT	EXIT+5!
IO("Q"	TEMP+5, EXIT+4!, REPRINT+9
IOF	EXIT, EXIT+3, HDR+4, HDR+5, HDR+6
IOSL	PRINT+2
IOST	EXIT, EXIT+1, HDR+1, HDR+4, HDR+5
>> POP	TEMP+4, REPRINT+8
PSABAL	EXIT+5!, PRINT+1*, PRINT+3
PSABEG	EXIT+5!, RQUE
PSACHK	EXIT+5!, REPRINT+4*, REPRINT+5
PSACNT	EXIT+5!, REPRINT+3, REPRINT+4
PSACOMB	TQUE+3, TQUE+4, EXIT+5!
PSADA	TQUE+6, EXIT+5!, RQUE+3, RQUE+4, PRINT
PSADLN	TQUE, EXIT+5!, RQUE, PRINT+5
PSADRG	EXIT+5!, PRINT*, PRINT+3
PSADT	EXIT+5!, RQUE, RQUE+3
PSAEND	EXIT+5!, RQUE+3
PSAFIRST	TQUE, TQUE+6, EXIT+5!, RQUE+1, RQUE+2, HDR+1, HDR+5
PSAFROM	TQUE+2, TQUE+3, TQUE+6, EXIT+5!, REPRINT+6, RQUE+3
PSAFROMN	TQUE+3, EXIT+5!, REPRINT+6, HDR+10
PSAKK	EXIT+2, EXIT+5!, HDR+2
PSALOC	TQUE+3, TQUE+4, EXIT+6!, REPRINT+5, REPRINT+6
PSALOC(""	REPRINT+4
PSALOCA	EXIT+6!
PSALOCN	EXIT+6!, REPRINT+6
PSANODE	EXIT+6!, RQUE+4, PRINT, PRINT+1
PSAOUT	TQUE, TQUE+2, TQUE+5, TQUE+6, EXIT+1, EXIT+6!, REPRINT+3, REPRINT+4, RQUE, RQUE+3 , PRINT+2, HDR+1
PSAPG	TQUE+3, EXIT+6!, RQUE, HDR+4, HDR+5, HDR+6*, HDR+8
PSAQTY	EXIT+6!, PRINT+1, PRINT+2, PRINT+3
PSAREPRT	EXIT+6!, REPRINT+3, RQUE, HDR+7
PSARPDT	TQUE+1, EXIT+6!, RQUE+1, HDR+8
PSASAVE	EXIT+6!, REPRINT+11*
PSASEL	EXIT+6!
PSASLN	TQUE, EXIT+6!, RQUE, HDR+11, HDR+12
PSASS	EXIT+2, EXIT+6!, HDR+2
PSATO	TQUE+2*, TQUE+4, TQUE+6, EXIT+6!, RQUE+4
PSATON	TQUE+4*, EXIT+6!, HDR+11
PSATRAN	EXIT+6!, REPRINT+3*
PSATRDT	EXIT+6!, PRINT*, PRINT+3
PSAWHO	EXIT+6!, PRINT+1*, PRINT+4
Y	TQUE+1, EXIT+6!, RQUE+1, HDR+1
ZTDESC	TEMP+6, EXIT+6!, REPRINT+10
>> ZTQUEUED	EXIT+4
>> ZTREQ	EXIT+4*
ZTRTN	TEMP+6, EXIT+6!, REPRINT+10
ZTSAVE	EXIT+6!
ZTSAVE(	REPRINT+11*
ZTSAVE("^TMP(""PSASIG"",$J,"	TEMP+7, REPRINT+12

Customize PDF page

Package: Drug Accountability

Routine: PSASIG

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
RQUE
HDR	;Header
TEMP	;Entry point for printing immediately after transfer is entered. It is
EXIT
TQUE
PRINT
REPRINT	;Entry point for Transfer Signature Sheets. It prompts for the