Routine: PSALOG2

Name	Field # of Occurrence
^%DT	PSALOG2+12
COMMA^%DTC	GO+18, GO+19, GO+22
^%ZIS	PSALOG2+15, END+6
HOME^%ZIS	PSALOG2+17, END+8
^%ZISC	END+2
^%ZTLOAD	PSALOG2+17, END+8
$$S^%ZTLOAD	HEADER+1
^DIR	END+1, END+4, END+5, HEADER
$$DESCR^PRCPUX1	GO+9
$$INVNAME^PRCPUX1	GO+8
LOOP2^PSALOG3	GO+24, END+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PSALOG2+15
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!" Line Location: PSALOG2+16
Function Call: WRITE	Prompt: ?9,$J(PSA(8),3) Line Location: GO+16
Function Call: WRITE	Prompt: X Line Location: GO+18
Function Call: WRITE	Prompt: X Line Location: GO+19
Function Call: WRITE	Prompt: ?50,$S($L(Y)=11:$E(Y,1,6),$L(Y)=10:$E(Y,1,5),1:"UNKNOWN") Line Location: GO+20
Function Call: WRITE	Prompt: !,PSALN,!,$J(PSA(99),3),?9,$J(PSA(9),3) Line Location: GO+22
Function Call: WRITE	Prompt: ?16,"<TOTALS>",?34,X Line Location: GO+22
Function Call: WRITE	Prompt: !,"Sorry, no procurements for that month!",! Line Location: GO+23
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+6
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR OUTPUT PRINTED!" Line Location: END+7
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+1
Function Call: WRITE	Prompt: !,?2,"WAREHOUSE DRUG PROCUREMENTS FOR ",PSA(13),?70,"PAGE: ",PSAPG,!,PSALN Line Location: HEADER+3
Routine Call	%ZIS Line Location: PSALOG2+17 END+8
Routine Call	DIR Line Location: END+1 END+4 END+5 HEADER
Routine Call	%ZIS Line Location: PSALOG2+15 END+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSALOG2+14, GO+20
^PRC(441 - [#441]	GO+1
^PRCP(445	GO, GO+1
^PRCP(445.2	GO+3, GO+5, GO+6
^PRCS(410	GO+12, GO+13
^TMP("PSA"	GO+1*, GO+3, END+3!
^TMP("PSAB"	GO+6*, GO+8, GO+10, GO+22, GO+23, GO+24, END+3!
^TMP("PSAC"	GO+22*, END+3!
^VA(200 - [#200]	HEADER+1

Name	Line Occurrences
END	PSALOG2+13, PSALOG2+16, PSALOG2+17, GO+8, END+4, END+5, END+7, END+8, END+9
HEADER	GO, GO+8, GO+10

Name	Field # of Occurrence
^(0	GO+1, GO+5, GO+6, GO+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	PSALOG2+10~, PSALOG2+11*
%DT("A"	PSALOG2+11*
%DT("B"	PSALOG2+11*
%ZIS	PSALOG2+15~, END+6~
%ZIS("B"	END+6*
DIR	PSALOG2+10~, END+1!, END+4!, END+5!, HEADER!
DIR("?"	END+4, END+5
DIR("A"	END+1, END+4, END+5*
DIR("B"	END+4, END+5
DIR(0	END+1, END+4, END+5, HEADER
DIRUT	PSALOG2+10~
DTOUT	PSALOG2+10~
DUOUT	PSALOG2+10~
DUZ	HEADER+1
IO("Q"	PSALOG2+15!, PSALOG2+17, END+2!, END+6!, END+8
IOF	END, HEADER+2
ION	PSALOG2+15
IOP	PSALOG2+15~, END+6~
IOSL	GO+10
IOST	GO+1, END, END+1, HEADER
POP	PSALOG2+15~, PSALOG2+16, END+6~, END+7
PSA	PSALOG2+10~, GO*, GO+1, GO+3, GO+5
PSA(1	GO, GO+1
PSA(10	GO+19*, GO+22!
PSA(11	PSALOG2+12*, PSALOG2+14, GO+5
PSA(12	PSALOG2+12*
PSA(13	PSALOG2+14*, HEADER+3
PSA(2	GO+2, GO+3
PSA(22	GO+12, GO+13
PSA(3	GO+3*, GO+5
PSA(33	GO+12*, GO+13
PSA(4	GO+4, GO+5, GO+6, GO+7, GO+8, GO+9, GO+10, GO+13, GO+22
PSA(44	GO+13, GO+14, GO+15!, GO+24, END+5*
PSA(5	GO+10*, GO+11, GO+12, GO+16, GO+17, GO+18, GO+19, GO+20, GO+21
PSA(7	GO+18*, GO+19
PSA(8	GO+16*
PSA(9	GO+16*, GO+22!
PSA(99	GO+15*, GO+22!
PSAB	PSALOG2+10~, GO+7, GO+8, GO+9, GO+10, GO+22
PSAB(1	GO+7, GO+10, GO+22
PSAC	PSALOG2+10~, GO+8*
PSAION	PSALOG2+10~, PSALOG2+15*, END+6
PSALN	PSALOG2+10~, GO+22, HEADER+2*, HEADER+3
PSAOUT	PSALOG2+10~, PSALOG2+12, PSALOG2+13, PSALOG2+16, PSALOG2+17, GO+8, GO+10, GO+23, END+1, END+3 , END+4, END+5, END+7, END+8, HEADER, HEADER+1*
PSAPG	PSALOG2+10~, GO, HEADER, HEADER+2, HEADER+3
U	GO+1, GO+3, GO+5, GO+6, GO+11, GO+12, GO+13, GO+16, GO+17, GO+18 , GO+19, GO+20, GO+21, GO+22, HEADER+1
X	PSALOG2+10~, GO+18, GO+19, GO+22*
X2	PSALOG2+10~, GO+18, GO+19, GO+22*
X3	PSALOG2+10~, END+6~
Y	PSALOG2+10~, PSALOG2+12, PSALOG2+13, PSALOG2+14, GO+20*, END+4, END+5, HEADER
ZTDESC	PSALOG2+17~, END+8~, HEADER+1
ZTDTH	PSALOG2+17~, END+8~
ZTIO	PSALOG2+17~, END+8~
>> ZTQUEUED	GO+24, END+2
>> ZTREQ	END+2*
ZTRTN	PSALOG2+17~, END+8~
ZTSAVE	PSALOG2+17~, END+8~
ZTSAVE("PSA*"	PSALOG2+17, END+8
ZTSAVE("PSALN"	END+8*
ZTSAVE("^TMP(""PSAC"",$J,"	END+8*
ZTSK	PSALOG2+17~, END+8~, HEADER+1

Customize PDF page

Package: Drug Accountability

Routine: PSALOG2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
GO
HEADER
END