Routine: SRTPCOM

Package	Total	Call Graph
Surgery	5	^SRSKILL ^SRTPPAS ^SRTPRACE ^SRTPSS CHK^SRTPUTLC
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIE ^DIR

Package

Total

Call Graph

Surgery

^SRSKILL ^SRTPPAS ^SRTPRACE ^SRTPSS CHK^SRTPUTLC

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^DIE ^DIR

Package	Total	Caller Graph
Surgery	8	SRTP PRINT ASSESSMENT SRTPHRT3 SRTPHRT5 SRTPKID6 SRTPLIV7 SRTPLUN5 SRTPTRAN SRTPUTL

Package

Total

Caller Graph

Surgery

SRTP PRINT ASSESSMENT SRTPHRT3 SRTPHRT5 SRTPKID6 SRTPLIV7 SRTPLUN5 SRTPTRAN SRTPUTL

Name	Field # of Occurrence
^%ZIS	COMPLT+6, PRINT+1
^%ZISC	ED, END+1, END+2
^%ZTLOAD	COMPLT+7, PRINT+2, TX+1
^DIE	COMPLT, PRT+2
^DIR	SRTPCOM+6, SRTPCOM+12, COMPLT+4, RET
^SRSKILL	ED, END+2, TX+3
^SRTPPAS	EN
^SRTPRACE	PRT+1
^SRTPSS	PRINT
CHK^SRTPUTLC	SRTPCOM+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This assessment has a "_$S(Y="C":"'COMPLETE'",1:"'TRANSMITTED'")_" status.",!!,"No action taken." Line Location: SRTPCOM+4
Function Call: WRITE	Prompt: ! Line Location: SRTPCOM+5
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: SRTPCOM+7
Function Call: WRITE	Prompt: ! Line Location: SRTPCOM+11
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: SRTPCOM+13
Function Call: WRITE	Prompt: !,"Assessment completed and queued to transmit..." Line Location: COMPLT+1
Function Call: WRITE	Prompt: ! Line Location: COMPLT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+1
Function Call: WRITE	Prompt: @IOF Line Location: ED+0
Function Call: WRITE	Prompt: @IOF,!,"This assessment is missing the following items:",! Line Location: LIST+0
Function Call: WRITE	Prompt: !,?5,$J(SRCNT,2)_". Hypertension" Line Location: LIST+2
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: !!,"Queued as task #"_ZTSK Line Location: TX+2
Function Call: WRITE	Prompt: @IOF Line Location: TX+3
Function Call: WRITE	Prompt: !! Line Location: RET+0
Function Call: WRITE	Prompt: @IOF Line Location: RET+0
Function Call: WRITE	Prompt: @IOF,!!! Line Location: PAGE+1
Routine Call	DIE Line Location: COMPLT PRT+2
Routine Call	DIR Line Location: SRTPCOM+6 SRTPCOM+12 COMPLT+4 RET
Routine Call	%ZIS Line Location: COMPLT+6 PRINT+1

Name	Line Occurrences (* Changed, ! Killed)
^SRT - [#139.5]	SRTPCOM+3

Name	Line Occurrences
@(	JOB
COMPLT	SRTPCOM+10
ED	PRINT+1, PRINT+2
EN	COMPLT+8, PRINT+3
END	SRTPCOM+4, SRTPCOM+6, SRTPCOM+7, SRTPCOM+12, SRTPCOM+13, COMPLT+7, COMPLT+8, PRINT
LIST	SRTPCOM+9
RET	LIST+1, END, TX+3, PAGE
TX	COMPLT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	COMPLT+6!, PRINT+1!
%ZIS("A"	COMPLT+6, PRINT+1
>> DA	COMPLT, PRT+2
DIE	COMPLT!, PRT+2!
DIR	SRTPCOM+5!, SRTPCOM+6!, SRTPCOM+11!, SRTPCOM+12!, COMPLT+2!, COMPLT+4!, RET!
DIR("?"	SRTPCOM+6, SRTPCOM+12, COMPLT+3*
DIR("A"	SRTPCOM+5, SRTPCOM+11, COMPLT+2*
DIR("B"	SRTPCOM+5, SRTPCOM+11, COMPLT+2*
DIR(0	SRTPCOM+5, SRTPCOM+11, COMPLT+2, RET
DR	COMPLT!, PRT+2!
>> DTOUT	SRTPCOM+6, SRTPCOM+12, COMPLT+4, RET
>> DUOUT	SRTPCOM+6, SRTPCOM+12, COMPLT+4, RET
IO	EN
IO("Q"	COMPLT+6!, COMPLT+7!, PRINT+1!, PRINT+2!
IOF	ED, LIST, END+1, END+2, TX+3, RET, PAGE+1
IOSL	LIST+1
IOST	END, END+1, PAGE
POP	COMPLT+6!, PRINT+1!
>> SRA	SRTPCOM+3*
>> SRABATCH	EN*
>> SRCNT	LIST, LIST+2, LIST+3, PRT
>> SRFLD	SRTPCOM+5, SRTPCOM+9, SRTPCOM+10*
>> SRMD	PRT*, PRT+1, PRT+2
>> SRMDD	PRT*
>> SRNOVA	SRTPCOM+3*
>> SRODD	PRT*
>> SROVER	SRTPCOM+3*
>> SRPRINT	PRINT*
SRRTN	TX+1*, TX+3!, JOB
>> SRSFLG	SRTPCOM+3, PRT, PRT+2
>> SRSOUT	SRTPCOM+2, SRTPCOM+3, SRTPCOM+6, SRTPCOM+12, COMPLT+4, COMPLT+5, COMPLT+6, COMPLT+7, PRINT, PRINT+1 , PRINT+2, LIST+1, LIST+4, PRT, PRT+3, END, RET*
SRTPP	SRTPCOM+2, SRTPCOM+3, COMPLT, PRINT, ED!, PRT+2, END+2!
>> SRTYPE	SRTPCOM+3*, LIST+2
>> SRVA	LIST+2
>> SRX(	SRTPCOM+9, SRTPCOM+10, LIST+1, LIST+2, LIST+3, PRT
>> SRZ	LIST, LIST+1, LIST+2, LIST+3
>> SRZ1	LIST+1*, LIST+2, LIST+3
STATUS	COMPLT!
>> Y	SRTPCOM+3*, SRTPCOM+4, SRTPCOM+7, SRTPCOM+13, COMPLT+5, PRT+2
>> ZTDESC	COMPLT+7, PRINT+2, TX+1*
>> ZTDTH	TX+1*
>> ZTIO	TX+1*
>> ZTREQ	JOB*
>> ZTRTN	COMPLT+7, PRINT+2, TX+1*
>> ZTSAVE("SRRTN"	TX+1*
>> ZTSAVE("SRSITE*"	COMPLT+7, PRINT+2
>> ZTSAVE("SRTPP"	COMPLT+7, PRINT+2, TX+1*
>> ZTSK	TX+2

Customize PDF page

Package: Surgery

Routine: SRTPCOM

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
END
TX	; transplant assessment transmissions
ED
LIST
RET
PRT
JOB
COMPLT
PRINT
PAGE