Routine: PSDORN3

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	PSDORN2

Entry Points

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: PSDORN3+12
Function Call: WRITE	Prompt: ?40,"Printing on ",Y,"..." Line Location: PSDORN3+14
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y&(IOF]"") Line Location: PRINT+0
Function Call: WRITE	Prompt: "* CONT. SUBS. INFUSION 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: !,"Patient: ",$P($G(^DPT(PAT,0)),U) Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Location",?14,": ",NAOUN Line Location: PRINT+3
Function Call: WRITE	Prompt: !,"Drug",?14,": ",!,PSDRN Line Location: PRINT+4
Function Call: WRITE	Prompt: !,"Requested by",?14,": ",$P($G(^VA(200,PSDUZ,0)),"^") Line Location: PRINT+7
Function Call: WRITE	Prompt: !,"Worksheet #",?14,": ",PSDREC Line Location: PRINT+8
Function Call: WRITE	Prompt: !,"Comments:" Line Location: PRINT+9
Routine Call	%ZIS Line Location: PSDORN3+14
Routine Call	DIE Line Location: PRINT+14

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

Name	Line Occurrences (* Changed, ! Killed)
^DD(58.8	PSDORN3+11
^DPT - [#2]	PRINT+2
^PSD(58.8 - [#58.8]	PSDORN3+11, PRINT+6, PRINT+10, PRINT+11
^UTILITY($J	PRINT+10!
^VA(200 - [#200]	PRINT+7

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