Routine: SROACOM

Package	Total	Call Graph
Surgery	7	^SROACOM1 ^SROAPAS CHK^SROAUTL CHK^SROAUTL3 POST^SROCMPS ($$LOCK,UNLOCK)^SROUTL ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	^DIE EN1^DIK ^DIR

Package	Total	Caller Graph
Surgery	1	SROA COMPLETE ASSESSMENT

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This assessment has a "_$S(Y="C":"'COMPLETE'",1:"'TRANSMITTED'")_" status.",!!,"No action taken." Line Location: SROACOM+4
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(SRX(SRZ),"^") Line Location: LIST+1
Function Call: WRITE	Prompt: ! Line Location: LIST+2
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+3 ANES
Routine Call	DIR Line Location: YEP+2 LIST+2 RET
Routine Call	%ZIS Line Location: PRINT+3

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

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

Name	Line Occurrences
ANES	PRT+1
COMPLT	YEP+4
EN	PRINT+5
END	SROACOM+4, YEP+2, YEP+3, YEP+5, PRINT+4, PRINT+5
LIST	SROACOM+7
PRINT	PRINT+2
PRT	LIST+3
RET	END, LIST+1, PAGE

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