Routine: PSDORNP

Information

PSDORNP ;BIR/LTL-Nurse CS Order Entry Print Priority Order (cont'd) ; 17 Feb 95

Package	Total	Call Graph
VA Fileman	4	^DIE Y^DIQ ^DIWP ^DIWW
Kernel	3	HOME^%ZIS ^%ZTLOAD $$FMTE^XLFDT

Package	Total	Caller Graph
Controlled Substances	1	PSDORN1

Name	Comments	DBIA/ICR reference
PRINT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Pharmacy has not set up a priority order printer, you'll need to call." Line Location: PSDORNP+11
Function Call: WRITE	Prompt: ?40,"Printing on ",Y,"..." Line Location: PSDORNP+13
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y&(IOF]"") Line Location: PRINT+0
Function Call: WRITE	Prompt: "* PRIORITY CONT. SUBS. ORDER *" Line Location: PRINT+0
Function Call: WRITE	Prompt: !!,"Date/Time Needed: ",$$FMTE^XLFDT($G(PSDT(9)),2) Line Location: PRINT+1
Function Call: WRITE	Prompt: !,"Location",?14,": ",NAOUN Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Drug",?14,": ",!,PSDRN,!,"Quantity",?14,": ",PSDQTY Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Requested by",?14,": ",$P($G(^VA(200,PSDUZ,0)),"^") Line Location: PRINT+5
Function Call: WRITE	Prompt: !,"Worksheet #",?14,": ",PSDREC Line Location: PRINT+6
Function Call: WRITE	Prompt: !,"Comments:" Line Location: PRINT+7
Routine Call	%ZIS Line Location: PSDORNP+13
Routine Call	DIE Line Location: PRINT+12

FileNo	Call Tags
^PSD(58.85 - [#58.85]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	PSDORNP+10
^PSD(58.8 - [#58.8]	PSDORNP+10, PRINT+4, PRINT+8, PRINT+9
^UTILITY($J	PRINT+8!
^VA(200 - [#200]	PRINT+5

Name	Field # of Occurrence
>> C	PSDORNP+10*
DA	PRINT+12*!
DIE	PRINT+12*!
>> DIWF	PRINT+9*
>> DIWL	PRINT+9*
>> DIWR	PRINT+9*
DR	PRINT+12*!
IOF	PRINT, PRINT+11
>> NAOU	PRINT+8, PRINT+9
>> NAOUN	PRINT+2
>> PSDA	PRINT+8, PRINT+9
>> PSDQTY	PRINT+3
>> PSDR	PRINT+4, PRINT+8, PRINT+9
>> PSDREC	PRINT+6, PRINT+12
>> PSDRN	PRINT+3
>> PSDS	PSDORNP+10, PRINT+4
>> PSDT(9	PRINT+1
>> PSDUZ	PRINT+5
>> TEXT	PRINT+8*, PRINT+9
U	PSDORNP+10, PRINT+4
>> X	PRINT+9*
Y	PSDORNP+8~, PSDORNP+10*, PSDORNP+11, PSDORNP+12, PSDORNP+13
ZTDESC	PSDORNP+8~, PSDORNP+9*
ZTDTH	PSDORNP+8~, PSDORNP+10*
ZTIO	PSDORNP+8~, PSDORNP+12*
>> ZTREQ	PRINT+13*
ZTRTN	PSDORNP+8~, PSDORNP+9*
ZTSAVE	PSDORNP+8~
ZTSAVE("NAOU*"	PSDORNP+12*
ZTSAVE("PSD*"	PSDORNP+12*
ZTSAVE("REQD"	PSDORNP+12*
ZTSK	PSDORNP+8~