Routine: SRTPNEW

Package	Total	Call Graph
VA Fileman	4	EN^DDIOL FILE^DICN ^DIE ^DIR
Surgery	2	^SROP1 ^SRSKILL

Package	Total	Caller Graph
Surgery	2	SRTPSS SRTPVAN

Entry Points

External References

Name	Field # of Occurrence
EN^DDIOL	CHK+8
FILE^DICN	ADD
^DIE	ADD+4
^DIR	NEW+6, VA, DATE+2, VACO+1
^SROP1	DISP+1
^SRSKILL	END

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID") Line Location: START+0
Function Call: WRITE	Prompt: !!! Line Location: START+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: START+2
Function Call: WRITE	Prompt: "No operations exist for this patient. Assessment cannot be entered.",!!,"Press RETURN to continue... " Line Location: START+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: OPT+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: ASK+0
Function Call: WRITE	Prompt: !!,"Enter 'YES' to create an assessment for this surgical case, or 'NO' to quit",!,"this option." Line Location: ASK+1
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),! Line Location: LIST+7
Function Call: WRITE	Prompt: CNT_". " Line Location: DISP+3
Function Call: WRITE	Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPS(1) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(2) Line Location: CASE+0
Function Call: WRITE	Prompt: !,?14,SROPS(4) Line Location: CASE+1
Function Call: WRITE	Prompt: !! Line Location: CASE+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+1
Function Call: WRITE	Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!! Line Location: SEL+2
Function Call: WRITE	Prompt: !!,"Please enter the number corresponding to the Surgical Case you want to edit.",!,"If the case desired does not appear, enter <RET> to continue listing",!,"additional cases." Line Location: SEL+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: SEL+4
Function Call: WRITE	Prompt: @IOF Line Location: END+0
Function Call: WRITE	Prompt: !!,"Creating a New "_$P(SRL(1),";")_" Transplant Assessment..." Line Location: NEW+4
Function Call: WRITE	Prompt: !,II,". ",$P(SRL(II),";") Line Location: NEW+5
Function Call: WRITE	Prompt: ! Line Location: NEW+6
Function Call: WRITE	Prompt: ! Line Location: VA+0
Function Call: WRITE	Prompt: ! Line Location: DATE+2
Function Call: WRITE	Prompt: ! Line Location: VACO+1
Routine Call	DIE Line Location: ADD+4
Routine Call	DIR Line Location: NEW+6 VA DATE+2 VACO+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^SRT - [#139.5]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	ASK+3, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+8, DISP, OTHER+1 , OTHER+2, ADD+5
^SRF("ADT"	START+1
^SRO(133 - [#133]	NEW+1
^SRT - [#139.5]	ADD+5*, CHK+2
^SRT("AE"	CHK+1, CHK+4

Label References

Name	Line Occurrences
ADD	SRTPNEW+2, ASK+4
ASK	START+1, ASK+1
END	SRTPNEW+2, START+2, OPT
LIST	START+1
LOOP	DISP+2
NEW	SRTPNEW+2
OPT	OPT+1
OTHER	DISP
SEL	LIST+7
T1	NEW+4
VACO	ASK+4

Naked Globals

Name	Field # of Occurrence
^(	LIST+2
^(37	LIST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CNT	START+1, START+2, OPT+1, LIST+7, LIST+8*, DISP+3, CASE+3
DA	ADD!, ADD+1!*, ADD+4!, CHK+2
DD	ADD!
>> DFN	START+1, ADD, CHK+3
DIC	ADD!*
DIC(0	ADD*
DIE	ADD+1!*, ADD+4!
DIR	NEW+6!, VA!, DATE+2!, VACO+1!
DIR("A"	NEW+6, VA, DATE+2, VACO+1
DIR(0	NEW+6, VA, DATE+2, VACO+1
DLAYGO	ADD*!
DO	ADD!
DR	ADD+1!, ADD+3, ADD+4!
DTIME	START+2, OPT, ASK, SEL+1, SEL+4
>> DTOUT	NEW+6, VA, DATE+2, VACO+1
>> DUOUT	NEW+6, DATE+2
>> I	START+1, DISP, NEW+2*, NEW+3
>> II	NEW+5, ADD+3
IOF	START, LIST+7, SEL+2, END
IOSL	LIST+7
>> LOOP	LOOP+1*
>> M	DISP+2*, LOOP+1
MM	DISP+2!, LOOP+1*
MMM	DISP+2!, LOOP+1*
>> SRASS	START+1, LIST+1, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+7, LIST+8, DISP , DISP+1, CASE+3, OTHER+1, OTHER+2
>> SRBACK	LIST+7, SEL+4
SRC	CHK+1~, CHK+8
SRC(1	CHK+5*
SRC(2	CHK+6*
SRC(3	CHK+7*
>> SRCASE(	OPT+1, OPT+2, CASE+3*, SEL+3, SEL+4, SEL+5
>> SRCASE(1	LIST+7
>> SRCHG	ASK, ASK+4
SRCNT	NEW!, NEW+1, NEW+2, NEW+3, NEW+4, NEW+6
SRDFN	CHK+1~, CHK+4*
SRDFN1	CHK+1~, CHK+3*, CHK+4
>> SRDT	START+1, LIST+7, CASE+3
SRL	NEW!
SRL(	NEW+3*, NEW+5, T1
SRL(1	NEW+4
>> SRLONG	OTHER+1*, OTHER+2
>> SRNEWOP	OPT+1
SRNODE0	CHK+1~, CHK+2*, CHK+3
>> SROP	DISP+1*
>> SROPER	DISP, DISP+2, OTHER+1, OTHER+3, LOOP+1
>> SROPERS	OTHER+1, OTHER+2, OTHER+3
SROPS	DISP+2!
SROPS(	LOOP+1*
SROPS(1	DISP+2*, CASE
SROPS(2	CASE
SROPS(3	CASE
SROPS(4	CASE+1
>> SROTHER	DISP, OTHER+1, OTHER+2
SRPAN	ADD+3~*
SRSCAN	LIST+2*!, LIST+3, LIST+4
>> SRSDATE	LIST+8*, CASE
>> SRSITE	NEW+1
>> SRSITE("DIV"	ADD+5
>> SRSOUT	SRTPNEW+2, START+1, OPT, ASK, ASK+2, ASK+4, LIST+7, SEL+1, SEL+4, NEW+6 , VA, DATE+2, VACO+1*
SRTN	START+1, OPT+2, ASK!, ASK+2!, ASK+3, LIST+7, DISP+3, CASE+2, SEL+5, NEW+6! , VA!, ADD+1, ADD+5
>> SRTPDT	ASK+3, DATE+3, ADD+1
SRTPP	NEW+6!, VA!, ADD*, ADD+1, ADD+5
>> SRTTYPE	T1*, ADD+1, ADD+3
>> SRVA	SRTPNEW+2, ASK+3, VA+1*, DATE+1, ADD+1, ADD+5
SRVACO	VACO+1!, VACO+2*, ADD+1
>> SRYN	ASK, ASK+1, ASK+2
>> VA("PID"	START, LIST+7, SEL+2
>> VADM(1	START, LIST+7, SEL+2
X	START+2, OPT, OPT+1, OPT+2, SEL+1, SEL+2, SEL+3, SEL+4, SEL+5, VA , VACO+1, ADD*, CHK+1, CHK+4!
>> XX	T1*
>> Y	NEW+4*, T1, VA+1, DATE+3, VACO+2, ADD
>> YY	NEW+1*, NEW+2

Customize PDF page

Package: Surgery

Routine: SRTPNEW

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
OPT
DISP
DATE	; Date of Transplant
END
T1
VA
CHK	; VACO ID check
LIST	; list assessments
CASE
START
ADD
OTHER	; other operations
VACO	; VACO ID
ASK
NEW
SEL	; select case
LOOP	; break procedures