Routine: SDPPRT

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ENS^%ZISS ^%ZTLOAD $$FMTE^XLFDT
Registration	3	$$LST^DGMTU PID^VADPT6 ($$NOW,PAUSE)^VALM1
Scheduling	3	$$EXOE^SDOE INIT1^SDPP INIT^SDPPALL
VA Fileman	1	^DIR

Package

Total

Call Graph

^%ZIS ^%ZISC ENS^%ZISS ^%ZTLOAD $$FMTE^XLFDT

$$LST^DGMTU PID^VADPT6 ($$NOW,PAUSE)^VALM1

$$EXOE^SDOE INIT1^SDPP INIT^SDPPALL

^DIR

Package	Total	Caller Graph
Scheduling	1	SDPP

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
PRINTQ
DIRQ
EN	;Print entire patient profile
HDRQ
LINE(STR)	; -- print line ; input: STR := text to insert ; output: none ; return: text to use
QUE()	; -- que job ; return: did job que [ 1\|yes 0\|no ]
HDR()	; -- print header ; return: continue processing [ 1\|yes 0\|no ]
ENQ
PRINT	;Print actual patient profile	ICR #3846 Status: Active Usage: Private
DIR	;Ask what they want printed

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$$LINE("Device Selection") Line Location: EN+4
Function Call: WRITE	Prompt: !,^TMP("SDPP",$J,SDWHERE,0) Line Location: PRINT+4
Function Call: WRITE	Prompt: !,^TMP("SDPPALL",$J,SDALL,0) Line Location: PRINT+5
Function Call: WRITE	Prompt: @IOF,*13,"PATIENT PROFILE: ",$P(^DPT(DFN,0),U)_" ("_VA("BID")_")",?45,$S($D(^DPT(DFN,.1)):"Ward: "_^(.1),1:"Outpatient"),?70,"Page: ",SDPAGE Line Location: HDR+6
Function Call: WRITE	Prompt: ?45,"Report Date: ",$P($$NOW^VALM1,":",1,2) Line Location: HDR+9
Function Call: WRITE	Prompt: !,SDASH Line Location: HDR+10
Routine Call	DIR Line Location: DIR+4 DIR+8 DIR+12 DIR+16 DIR+20 DIR+24
Routine Call	%ZIS Line Location: EN+5

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	DIR+2, DIR+10, DIR+14, HDR+6
^TMP("SD"	PRINT+1!
^TMP("SDAPT"	PRINT+1!
^TMP("SDENR"	PRINT+1!
^TMP("SDPP"	PRINT+1!, PRINT+4, PRINTQ!
^TMP("SDPPALL"	PRINT+1!, PRINT+5, PRINTQ!

Name	Field # of Occurrence
>> %ZIS	EN+5*
>> DFN	DIR+2, DIR+6, DIR+10, DIR+14, DIR+18, HDR+6
DIR	DIR+4!, DIR+8!, DIR+12!, DIR+16!, DIR+20!, DIR+24!
DIR("?"	DIR+3, DIR+7, DIR+11, DIR+15, DIR+19, DIR+23
DIR("A"	DIR+3, DIR+7, DIR+11, DIR+15, DIR+19, DIR+23
DIR("B"	DIR+3, DIR+7, DIR+11, DIR+15, DIR+19, DIR+23
DIR(0	DIR+3, DIR+7, DIR+11, DIR+15, DIR+19, DIR+23
>> DIRUT	DIR+4, DIR+8, DIR+12, DIR+16, DIR+20, DIR+24
>> GBL	DIR+25*
IO	PRINT+1
IO("Q"	EN+6, QUE+3!
IOF	HDR+6
IOM	LINE+7
IOSL	PRINT+4, PRINT+5
IOST	PRINTQ+1, HDR+4
>> POP	EN+5
>> SDACT	DIR+13*
SDALL	PRINT+1~, PRINT+3, PRINT+5
>> SDASH	HDR+10
>> SDBD	DIR+2, DIR+6, DIR+14, HDR+8
>> SDED	DIR+6, DIR+14, HDR+8
SDERR	EN+3, ENQ+1!, DIR+1, DIR+2, DIR+4, DIR+6, DIR+8, DIR+10, DIR+12, DIR+14 , DIR+16, DIR+18, DIR+20, DIR+24*
SDGO	PRINT+1~, PRINT+2, PRINT+4, PRINT+5*, PRINTQ+1
>> SDLN	PRINTQ*
>> SDPAGE	PRINT+2, PRINTQ+1, HDR+4, HDR+5, HDR+6
>> SDPRINT	DIR+1*
>> SDRANGE	DIR+14
SDTYP	ENQ+1!, PRINT+2*
SDTYP(1	DIR+9*
SDTYP(2	DIR+5*
SDTYP(3	DIR+17*
SDTYP(4	DIR+13*
SDTYP(5	DIR+21*
SDTYP(7	DIR+25*
SDWHERE	PRINT+1~, PRINT+3, PRINT+4
SDYN	DIR+1~, DIR+18*
STR	LINE~, LINE+6*, LINE+7, LINE+8
U	HDR+6
>> VA("BID"	HDR+6
>> VALMBCK	ENQ+1*
X	QUE+3~, QUE+5, LINE+5~, LINE+7, LINE+8
Y	EN+7, DIR+5, DIR+9, DIR+13, DIR+17, DIR+21, DIR+25, HDR+3~, HDR+4, HDR+10 , HDRQ
>> ZTDESC	QUE+4*
>> ZTQUEUED	ENQ, PRINTQ
>> ZTRTN	QUE+4*
>> ZTSAVE(	QUE+5*
ZTSK	QUE+3!, QUE+6, QUE+7

Information