Routine: SROACOM1

Package	Total	Call Graph
Surgery	5	PRIOR^SROACL2 ^SROAPAS CHK^SROAUTLC ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIE EN1^DIK ^DIR

Package

Total

Call Graph

Surgery

PRIOR^SROACL2 ^SROAPAS CHK^SROAUTLC ($$LOCK,UNLOCK)^SROUTL ^SRSKILL

Kernel

^%ZIS ^%ZISC ^%ZTLOAD

VA Fileman

^DIE EN1^DIK ^DIR

Package	Total	Caller Graph
Surgery	1	SROACOM

Package

Total

Caller Graph

Surgery

SROACOM

External References

Name	Field # of Occurrence
^%ZIS	PRINT+3
^%ZISC	END+1
^%ZTLOAD	PRINT+4
^DIE	COMPLT, COMPLT+1, PRT+1, PRT+2
EN1^DIK	COMPLT+2
^DIR	YEP+2, LIST+2, CHCK+4, RET
PRIOR^SROACL2	PRT+1
^SROAPAS	EN
CHK^SROAUTLC	SROACOM1+4
$$LOCK^SROUTL	YEP+4, LIST+3
UNLOCK^SROUTL	COMPLT+3, LIST+3
^SRSKILL	END+2

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: SROACOM1+3
Function Call: WRITE	Prompt: !!,?6,"The coding for Procedure and Diagnosis is not complete." Line Location: YEP+0
Function Call: WRITE	Prompt: ! Line Location: YEP+1
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: YEP+3
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: YEP+5
Function Call: WRITE	Prompt: !!,"Updating the current status to 'COMPLETE'..." Line Location: COMPLT+0
Function Call: READ	Timeout: DTIME Variable: SRYN Line Location: PRINT+0
Function Call: WRITE	Prompt: !!,"Enter <RET> to print the completed assessment, or 'NO' to return to the menu." Line Location: PRINT+2
Function Call: WRITE	Prompt: ! Line Location: PRINT+3
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!,"This assessment is missing the following items:",! Line Location: LIST+0
Function Call: WRITE	Prompt: !,?5,$J(SRCNT,2)_". "_$P($P(SRX(SRZ),":"),"^") Line Location: LIST+1
Function Call: WRITE	Prompt: ! Line Location: LIST+2
Function Call: WRITE	Prompt: @IOF,! Line Location: PRT+1
Function Call: WRITE	Prompt: !!," * NOTE: Discharge Date precedes Admission Date!! Please check. *" Line Location: CHCK+2
Function Call: WRITE	Prompt: !!," * NOTE: Ischemic Time is greater than CPB Time!! Please check. *",! Line Location: CHCK+3
Function Call: WRITE	Prompt: ! Line Location: CHCK+4
Function Call: WRITE	Prompt: ! Line Location: CHCK+4
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 COMPLT+1 PRT+1 PRT+2
Routine Call	DIR Line Location: YEP+2 LIST+2 CHCK+4 RET
Routine Call	%ZIS Line Location: PRINT+3

FileNo	Call Tags
^SRF - [#130]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	SROACOM1+3, CHCK+1
^SRO(136 - [#136]	YEP

Name	Line Occurrences
CHCK	SROACOM1+6
COMPLT	YEP+4
EN	PRINT+5
END	SROACOM1+3, SROACOM1+6, YEP+2, YEP+3, YEP+5, PRINT+4, PRINT+5
LIST	SROACOM1+5
PRINT	PRINT+2
PRT	LIST+3
RET	END, LIST+1, PAGE

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	PRINT+3!*
%ZIS("A"	PRINT+3*
DA	COMPLT, COMPLT+1, COMPLT+2!, PRT+1, PRT+2*
DIE	COMPLT!, COMPLT+1!, COMPLT+2!, PRT+1!, PRT+2!
DIK	COMPLT+2!*
DIK(1	COMPLT+2*
DIR	YEP+1!, YEP+2!, LIST+2!, CHCK+4!, RET!
DIR("?"	YEP+2*
DIR("A"	YEP+1, LIST+2
DIR("B"	YEP+1, LIST+2
DIR(0	YEP+1, LIST+2, CHCK+4, RET
DR	COMPLT!, COMPLT+1!, COMPLT+2!, PRT+1!, PRT+2!
DT	COMPLT+1
DTIME	PRINT
>> DTOUT	YEP+2, LIST+2, CHCK+4, RET
>> DUOUT	YEP+2, LIST+2, CHCK+4, RET
IO	EN
IO("Q"	PRINT+3!, PRINT+4!
IOF	END+1, LIST, PRT+1, RET, PAGE+1
IOSL	LIST+1
IOST	END, END+1, PAGE
POP	PRINT+3!
>> SRA	SROACOM1+3*, SROACOM1+4, SROACOM1+6, COMPLT+1, COMPLT+2
>> SRABATCH	EN*
SRADM	CHCK+1~*, CHCK+2
>> SRCNT	LIST, LIST+1, PRT*
SRCPB	CHCK+1~*, CHCK+3
SRDIS	CHCK+1~*, CHCK+2
>> SRFLD	SROACOM1+5, YEP+1
SRISCH	CHCK+1~*, CHCK+3
SRMD	END+2!, PRT*, PRT+1, PRT+2
SRMD1	END+2!, PRT*, PRT+2
SRMDD	END+2!, PRT*
>> SROVER	SROACOM1+3*
SRRET	CHCK+1~, CHCK+2, CHCK+3*, CHCK+4
SRSFLG	SROACOM1+3, END+2!, PRT, PRT+1, PRT+2*
>> SRSOUT	SROACOM1+3, SROACOM1+6, YEP+2, PRINT, PRINT+1, PRINT+3, PRINT+4, END, LIST+1, LIST+2* , PRT, PRT+3, CHCK+4, RET
>> SRTN	SROACOM1+2, SROACOM1+3, YEP, YEP+4, COMPLT, COMPLT+1, COMPLT+2, COMPLT+3, LIST+3, PRT+1 , PRT+2, CHCK+1
>> SRX(	SROACOM1+5, YEP+1, LIST+1, PRT, CHCK+2, CHCK+3
>> SRYN	PRINT, PRINT+1, PRINT+2
>> SRZ	LIST, LIST+1
>> SRZZ(418	CHCK+2*
>> SRZZ(450	CHCK+3*
STATUS	COMPLT!, COMPLT+1!
>> X	PRT+1, CHCK+1*
>> Y	SROACOM1+3*, YEP+3, LIST+3, PRT+1, PRT+2
>> ZTDESC	PRINT+4*
>> ZTRTN	PRINT+4*
>> ZTSAVE("SRSITE*"	PRINT+4*
>> ZTSAVE("SRTN"	PRINT+4*

Customize PDF page

Package: Surgery

Routine: SROACOM1

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
EN
END
LIST
RET
CHCK	; cardiac checks added by SR393
PRT
COMPLT
PRINT
YEP
PAGE