Routine: PSDPLOG3

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

Package	Total	Caller Graph
Controlled Substances	1	PSDPLOG1

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: @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,"DISPENSED",?68,"DISPENSED",?85,"EXP DATE",?100,"QTY ON HAND",?118,"NAME/DATE" Line Location: HDR+4
Function Call: WRITE	Prompt: !,LN,! Line Location: HDR+5
Function Call: WRITE	Prompt: !,?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),! Line Location: LOOP2+2
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,!!?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),! Line Location: LOOP2+7
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,!!?4,"=> INVENTORY TYPE: ",$S($E(TYPN,1,2)="ZZ":$E(TYPN,3,99),1:TYPN),! Line Location: LOOP2+10
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,! Line Location: LOOP2+14
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+14
Function Call: WRITE	Prompt: !,?2,"=> NAOU: ",NAOU,! Line Location: LOOP2+17
Function Call: WRITE	Prompt: !,?4,"=> INVENTORY TYPE: ",TYPN,! Condition for execution: ASKN Line Location: LOOP2+17
Function Call: WRITE	Prompt: ! Line Location: PRT+1
Function Call: WRITE	Prompt: LN,!,"* - Transferred to another NAOU but not yet received",!,"** - Filled not yet received",!,"# - Returned to Stock",! 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("PSDLOG"	PRINT+2, PRINT+3, END+3!, LOOP2+1, LOOP2+2, LOOP2+3, LOOP2+6, LOOP2+9, LOOP2+11, LOOP2+13 , LOOP2+15, LOOP2+16, LOOP2+18

Label References

Name	Line Occurrences
DONE	PRINT+2
HDR	PRINT+2, PRINT+3, LOOP2+7, LOOP2+10, LOOP2+14, LOOP2+17
LOOP2	PRINT+3
PRT	PRINT+3, PRINT+4, LOOP2+7, LOOP2+10, LOOP2+14, LOOP2+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PRINT+1, END!
%DT	END!
%H	END!
%I	END!
%ZIS	END!
ALL	END!
ANS	END!
ASK	END!, LOOP2+4, LOOP2+19
ASKN	END!, LOOP2+14, LOOP2+17
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!
IOF	DONE, HDR+2
IOSL	LOOP2+7, LOOP2+10, LOOP2+14, LOOP2+17, PRT+1
IOST	DONE, DONE+1, HDR+1
JJ	END!, PRT+1*
LN	PRINT+2!*, END!, HDR+5, PRT+2
LNUM	PRINT+3, END!, LOOP2+2, LOOP2+7, LOOP2+10, LOOP2+12, LOOP2+14, LOOP2+17, LOOP2+20, PRT+1
LOOP	END!
LOT	END!
MFG	END!
NAOU	PRINT+1, PRINT+3, END!, LOOP2+1, LOOP2+7, LOOP2+10, LOOP2+14, LOOP2+17
NAOU(1	LOOP2+1*, LOOP2+2, LOOP2+3, LOOP2+6, LOOP2+9, LOOP2+11, LOOP2+13, LOOP2+15, LOOP2+16, LOOP2+18
NODE	END!, LOOP2+11, LOOP2+12, LOOP2+18, LOOP2+19
NODE3	END!
NUM	END!, LOOP2+5, LOOP2+6, LOOP2+9, LOOP2+11, LOOP2+12, LOOP2+16*, LOOP2+18, LOOP2+19
OK	END+1!
ORD	END+1!
ORDN	END+1!
PG	PRINT+1, END+1!, HDR+1, HDR+2
PSD	END+1!
PSDA	END+1!
PSDCNT	END+1!, LOOP2+9, LOOP2+11, LOOP2+16, LOOP2+18
PSDDT	END+1!
PSDG	END+1!
PSDIO	END+1!
PSDN	END+1!
PSDNA	END+1!
PSDOK	END+1!
PSDOUT	PRINT+1, PRINT+3, PRINT+4, DONE+1, END+1!, HDR+1, LOOP2+2, LOOP2+6, LOOP2+7, LOOP2+9 , LOOP2+10, LOOP2+13, LOOP2+14, LOOP2+16, LOOP2+17
PSDR	END+1!, LOOP2+8, LOOP2+9, LOOP2+11
PSDRN	END+1!, LOOP2+13*, LOOP2+15, LOOP2+19
PSDRN(1	LOOP2+15*, LOOP2+16, LOOP2+18
PSDSD	END+1!
PSDST	END+1!
PSDT	END+1!
PSDTR	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+2*, LOOP2+3, LOOP2+7, LOOP2+10, LOOP2+14, LOOP2+17
TYPN(1	LOOP2+3*, LOOP2+6, LOOP2+9, LOOP2+11, LOOP2+13, LOOP2+15, LOOP2+16, LOOP2+18
U	LOOP2+12
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: PSDPLOG3

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: