Routine: PSDRLOG2

Package	Total	Call Graph
VA Fileman	2	NOW^%DTC ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
Controlled Substances	1	PSDRLOG1

Entry Points

Name	Comments	DBIA/ICR reference
END
HDR	;header for log
PRT	;
DONE
PRINT	;print inspector's log by naou, drug and green sheet #
LOOP2	;print inv typ loop

External References

Name	Field # of Occurrence
NOW^%DTC	PRINT+1
^%ZISC	END+3
^DIR	DONE+1, HDR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,?45,"** NO PENDING NARCOTIC ORDERS FOR INSPECTION **",! Line Location: PRINT+2
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,! Line Location: PRINT+3
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,! Line Location: PRINT+6
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,! Line Location: PRINT+8
Function Call: WRITE	Prompt: ?118,"____________",! Line Location: PRINT+14
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: !,?42,"Inspector's Log for Controlled Substances",?120,"Page: ",PG,!,?52,RPDT,! Line Location: HDR+2
Function Call: WRITE	Prompt: !,?57,"DATE",?71,"QTY" Line Location: HDR+3
Function Call: WRITE	Prompt: !,"DISP #",?13,"DRUG",?55,"RECEIVED",?68,"RECEIVED",?85,"EXP DATE" Line Location: HDR+4
Function Call: WRITE	Prompt: ?100,"DATE RETURNED" Condition for execution: $G(PSDRET) Line Location: HDR+5
Function Call: WRITE	Prompt: ?118,"NAME/DATE" Line Location: HDR+5
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+6
Function Call: WRITE	Prompt: !,?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),! Line Location: LOOP2+1
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,! Line Location: LOOP2+3
Function Call: WRITE	Prompt: !,?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),! Condition for execution: ASKN Line Location: LOOP2+3
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,! Line Location: LOOP2+5
Function Call: WRITE	Prompt: !,?4,"=> INVENTORY TYPE: ",TYPN,! Condition for execution: ASKN Line Location: LOOP2+5
Function Call: WRITE	Prompt: ! Line Location: PRT+1
Function Call: WRITE	Prompt: !,LN,!,"* - Transferred to another NAOU",!,"** - Received from another NAOU",! Line Location: PRT+2
Routine Call	DIR Line Location: DONE+1 HDR+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^TMP("PSDRLOG"	PRINT+2, PRINT+3, PRINT+5, PRINT+7, PRINT+9, END+3!, LOOP2+1, LOOP2+2, LOOP2+4, LOOP2+6

Label References

Name	Line Occurrences
DONE	PRINT+2
HDR	PRINT+2, PRINT+3, PRINT+6, PRINT+8, LOOP2+3, LOOP2+5
LOOP2	PRINT+4
PRT	PRINT+3, PRINT+6, PRINT+8, LOOP2+3, LOOP2+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+1, END!
%H	END!
%I	END!
%ZIS	END!
ALL	END!
ANS	END!
ASK	PRINT+11, END!, LOOP2+7
ASKN	PRINT+4, END!, LOOP2+3, LOOP2+5
CNT	END!
COMM	END!
DA	END!, HDR+1!
DIC	END!
DIE	END!
DIR	DONE+1!, END!, HDR+1!
DIR("A"	DONE+1*
DIR(0	DONE+1, HDR+1
DIROUT	END!
DIRUT	DONE+1!, END!
DIWF	END!
DIWL	END!
DIWR	END!
DR	END!
DTOUT	END!
DUOUT	END!
EXP	END!
EXPD	END!
FLAG	END!
IOF	DONE, HDR+2
IOSL	PRINT+6, PRINT+8, LOOP2+3, LOOP2+5, PRT+1
IOST	DONE, DONE+1, HDR+1
JJ	END!, PRT+1*
KK	END!
LN	PRINT+2!*, END!, HDR+6, PRT+2
LNUM	PRINT+3, PRINT+6, PRINT+8, PRINT+16, END!, LOOP2+1, LOOP2+3, LOOP2+5, LOOP2+9, PRT+1
LOOP	END!
LOT	END!
MFG	END!
NAOU	PRINT+1, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, PRINT+9, END!, LOOP2+1, LOOP2+2 , LOOP2+3, LOOP2+4, LOOP2+5, LOOP2+6
NODE	PRINT+9, PRINT+10, PRINT+12, PRINT+13, PRINT+14, PRINT+15, END!, LOOP2+6, LOOP2+7, LOOP2+8
NODE1	END!
NODE3	END!
NODE7	END!
NUM	PRINT+7, PRINT+9, PRINT+11, END!, LOOP2+4, LOOP2+6, LOOP2+7
OK	END+1!
ORD	END+1!
ORDN	END+1!
PG	PRINT+1, END+1!, HDR+1, HDR+2
PSD	END+1!
PSDA	END+1!
PSDATE	END+1!
PSDCNT	PRINT+7, PRINT+9, END+1!, LOOP2+4, LOOP2+6
PSDDT	END+1!
PSDG	END+1!
PSDIO	END+1!
PSDN	END+1!
PSDNA	END+1!
PSDOK	END+1!
PSDOUT	PRINT+1, PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, DONE+1, END+1!, HDR+1, LOOP2+1 , LOOP2+2, LOOP2+3, LOOP2+4, LOOP2+5
PSDR	END+1!
PSDRD	END+1!
PSDRET	END+1!, HDR+5
PSDRN	PRINT+5, PRINT+7, PRINT+9, PRINT+11, END+1!, LOOP2+2, LOOP2+4, LOOP2+6, LOOP2+7
PSDSD	END+1!
PSDST	END+1!
PSDTR	END+1!
PSDTYP	END+1!
QTY	END+1!
REQD	END+1!
REQDT	END+1!
RPDT	PRINT+1*, END+1!, HDR+2
RQTY	END+1!
SEL	END+2!
STAT	END+2!
STATN	END+2!
TEXT	END+2!
TYP	END+2!
TYPN	END+2!, LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+4, LOOP2+5, LOOP2+6
U	PRINT+10, PRINT+12, PRINT+14
X	END+2!
Y	PRINT+1*, END+2!, HDR+1
ZTDESC	END+2!
ZTDTH	END+2!
ZTIO	END+2!
>> ZTQUEUED	END+4
>> ZTREQ	END+4*
ZTRTN	END+2!
ZTSAVE	END+2!
ZTSK	END+2!

Customize PDF page

Package: Controlled Substances

Routine: PSDRLOG2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: