Routine: SRTPPAS

Package	Total	Call Graph
Surgery	3	^SROSTOP ^SRSKILL $$TR^SRTPUTL
Kernel	1	^%ZISC
Registration	1	DEM^VADPT
VA Fileman	1	D^DIQ

Package

Total

Call Graph

Surgery

^SROSTOP ^SRSKILL $$TR^SRTPUTL

Kernel

^%ZISC

Registration

DEM^VADPT

VA Fileman

D^DIQ

Package	Total	Caller Graph
Surgery	14	SRTPCOM SRTPRH SRTPRH1 SRTPRH2 SRTPRK SRTPRK1 SRTPRK2 SRTPRK3 SRTPRLI SRTPRLI1 SRTPRLI2 SRTPRLU SRTPRLU1 SRTPRLU2

Package

Total

Caller Graph

Surgery

SRTPCOM SRTPRH SRTPRH1 SRTPRH2 SRTPRK SRTPRK1 SRTPRK2 SRTPRK3
SRTPRLI SRTPRLI1 SRTPRLI2 SRTPRLU SRTPRLU1 SRTPRLU2

Name	Comments	DBIA/ICR reference
WRAP	;Wrap multiple race entries so that wrapped line
END
PAGE
HDR	; print heading

Name	Field # of Occurrence
^%ZISC	END+3
D^DIQ	SRTPPAS+10
^SROSTOP	HDR+1
^SRSKILL	END+3
$$TR^SRTPUTL	HDR+4
DEM^VADPT	SRTPPAS+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?28,"RECIPIENT INFORMATION",! Line Location: SRTPPAS+9
Function Call: WRITE	Prompt: !,"Age: ",?22,AGE Line Location: SRTPPAS+10
Function Call: WRITE	Prompt: ?40,"Transplant Date: ",?59,$P(Y,"@") Line Location: SRTPPAS+10
Function Call: WRITE	Prompt: !,"Gender: ",?22,$P(VADM(5),"^",2),?40,"Ethnicity:",?51,SROETH Line Location: SRTPPAS+25
Function Call: WRITE	Prompt: !,"VACO ID: ",?22,SRVACO,?40,"Race:" Line Location: SRTPPAS+26
Function Call: WRITE	Prompt: ?51,"UNANSWERED" Line Location: SRTPPAS+30
Function Call: WRITE	Prompt: !!,"Press <RET> to continue " Line Location: END+0
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: PAGE+0
Function Call: WRITE	Prompt: !!,"Enter <RET> to continue printing the remaining pages of this assessment, or",!,"'^' to exit this option." Line Location: PAGE+1
Function Call: WRITE	Prompt: @IOF Line Location: PAGE+2
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,$$TR^SRTPUTL($P(SR("RA"),"^",2))_" TRANSPLANT ASSESSMENT "_$S($P(SR("RA"),"^",5)="V":"VA",1:"NON-VA")_$S($P(SR(0),"^",3):" SURGERY CASE #"_$P(SR(0),"^",3),1:" TRANSPLANT"),?70,"PAGE "_SRPG Line Location: HDR+4
Function Call: WRITE	Prompt: !,"FOR "_SRANM Line Location: HDR+5
Function Call: WRITE	Prompt: " ("_$S(X="I":"INCOMPLETE",X="C":"COMPLETED",X="T":"TRANSMITTED",1:"NO ASSESSMENT") Line Location: HDR+5
Function Call: WRITE	Prompt: " ("_$S(X="I":"INCOMPLETE",X="C":"COMPLETED",X="T":"TRANSMITTED",1:"NO ASSESSMENT") Line Location: HDR+5
Function Call: WRITE	Prompt: ")",!,"Medical Center: "_SRSITE("SITE"),! Line Location: HDR+6
Function Call: WRITE	Prompt: "=" Line Location: HDR+6
Function Call: WRITE	Prompt: ! Line Location: HDR+7

Name	Line Occurrences (* Changed, ! Killed)
^SRT - [#139.5]	SRTPPAS+4, SRTPPAS+5, SRTPPAS+6

Name	Line Occurrences
@(	SRTPPAS+32
END	SRTPPAS+8
HDR	SRTPPAS+8
PAGE	PAGE+1
WRAP	SRTPPAS+24

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGE	SRTPPAS+2~, SRTPPAS+7*, SRTPPAS+10
C	SRTPPAS+2~, SRTPPAS+16, SRTPPAS+17, SRTPPAS+18, SRTPPAS+19, SRTPPAS+20, SRTPPAS+21
D	SRTPPAS+2~, SRTPPAS+27*, SRTPPAS+28, SRTPPAS+29
>> DFN	SRTPPAS+6*
DTIME	END, PAGE
E	SRTPPAS+2~, WRAP+2, WRAP+3, WRAP+6, WRAP+7
I	SRTPPAS+2~, SRTPPAS+5, WRAP+3, WRAP+4, WRAP+5, WRAP+6, WRAP+8, WRAP+9, WRAP+10
II	SRTPPAS+2~
IOF	SRTPPAS+8, END+2, END+3, PAGE+2, HDR+3
IOST	SRTPPAS+8, END, END+1, END+2, PAGE, PAGE+1
JJ	SRTPPAS+2~
K	SRTPPAS+2~, WRAP+4*, WRAP+5, WRAP+6
LINE	SRTPPAS+2~, HDR+6*
MOE	SRTPPAS+2~
N	SRTPPAS+2~, SRTPPAS+16*, SRTPPAS+23
SR	SRTPPAS+2~
SR("RA"	SRTPPAS+4*, HDR+4, HDR+5
SR(0	SRTPPAS+6*, HDR+4
SRA	SRTPPAS+2~
SRA(	SRTPPAS+5*, SRTPPAS+6
>> SRABATCH	END
SRACE	SRTPPAS+2~
SRANM	SRTPPAS+2~, SRTPPAS+7*, HDR+5
SRATYPE	SRTPPAS+2~, SRTPPAS+4*, SRTPPAS+32
SRDR	SRTPPAS+3~
SRHALT	SRTPPAS+3~, HDR+1
SRNOVA	SRTPPAS+3~, SRTPPAS+4*
SRNUM	SRTPPAS+3~, WRAP+12, WRAP+13, WRAP+14
SRNUM1	SRTPPAS+23, SRTPPAS+27, SRTPPAS+31!, WRAP+12, WRAP+14, WRAP+15*
SROETH	SRTPPAS+12, SRTPPAS+13, SRTPPAS+14*, SRTPPAS+25, END+3!
SROL	SRTPPAS+16, SRTPPAS+31!, WRAP+2
SROL(	SRTPPAS+23, SRTPPAS+28, SRTPPAS+29, WRAP+14
SROLINE	SRTPPAS+16, SRTPPAS+19, SRTPPAS+20*, SRTPPAS+23, SRTPPAS+24, SRTPPAS+31!, WRAP+2, WRAP+3
SROLN	SRTPPAS+31!, WRAP+2*
SROLN(	WRAP+3*, WRAP+4, WRAP+5, WRAP+6, WRAP+8
SROLN1	SRTPPAS+31!, WRAP+2*
SROLN1(	WRAP+5, WRAP+8, WRAP+9, WRAP+10, WRAP+13, WRAP+14
SROLNGTH	SRTPPAS+3~, WRAP+2*, WRAP+3
SRORACE	SRTPPAS+16*, SRTPPAS+31!
SRORACE(	SRTPPAS+18*, SRTPPAS+19, SRTPPAS+20
SRORC	SRTPPAS+16, SRTPPAS+17, SRTPPAS+18, SRTPPAS+31!
SROWRAP	SRTPPAS+31!, WRAP+2, WRAP+3, WRAP+6, WRAP+8*, WRAP+9, WRAP+10
SRPG	SRTPPAS+3~, SRTPPAS+4, HDR+2, HDR+4
SRQ	SRTPPAS+3~
SRSDATE	SRTPPAS+3~, SRTPPAS+6*, SRTPPAS+7, SRTPPAS+10
>> SRSITE("SITE"	HDR+6
>> SRSOUT	SRTPPAS+4, SRTPPAS+8, END, PAGE, HDR+1*
SRTPP	SRTPPAS+4, SRTPPAS+5, SRTPPAS+6, END+3!
SRVACO	SRTPPAS+3~, SRTPPAS+6*, SRTPPAS+26
U	SRTPPAS+13, SRTPPAS+18
>> VA("PID"	SRTPPAS+7
>> VADM(1	SRTPPAS+7
>> VADM(11	SRTPPAS+13, SRTPPAS+14
>> VADM(12	SRTPPAS+17, SRTPPAS+18, SRTPPAS+27, SRTPPAS+30
>> VADM(3	SRTPPAS+7
>> VADM(5	SRTPPAS+25
X	SRTPPAS+3~, END, PAGE, PAGE+1, HDR+5*
Y	SRTPPAS+3~, SRTPPAS+7, SRTPPAS+10, HDR+5*
Z	SRTPPAS+3~, SRTPPAS+7*
>> ZTQUEUED	END+2, HDR+1
>> ZTREQ	END+2*
>> ZTSTOP	END+2

Customize PDF page

Package: Surgery

Routine: SRTPPAS

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 14

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: