Routine: SROUTL

Package	Total	Call Graph
VA FileMan	5	^%DT EN^DDIOL ^DIC $$GET1^DIQ ^DIR
Surgery	2	(SSOTH,SSPRIN)^SROCPT $$SIGNED^SROESUTL
CPT HCPCS Codes	1	$$CPT^ICPTCOD
Kernel	1	($$FMADD,$$NOW)^XLFDT
Registration	1	DEM^VADPT

Package	Total	Caller Graph
Surgery	132	SR ANESTH REPORTS SR CPT REPORTS SR MANAGE REPORTS SR OR UTIL SR STAFFING REPORTS SR TRANSPLANT ASSESSMENT SRCODING MENU SRCODING UPDATE/VERIFY MENU SRHL INTERFACE SRO COMPLICATIONS MENU SRO DEL MENU SRO PACKAGE MANAGEMENT SRO UPDATE CANCELLED CASE SRO-CHIEF REPORTS SRO1L1 SROA CARDIAC ENTER/EDIT SROA ENTER/EDIT SROA RISK ASSESSMENT SROABCH SROACAT SROACC SROACCT SROACLN SROACMP1 SROACOM SROACOM1 SROACOP SROACPM SROACPM0 SROACR2 SROACTH1 SROADEL SROADOC SROAERR SROAL1 SROAL2 SROALEN SROALN2 SROALOG SROAMIS SROANES SROANES-D SROANES1 SROANEW SROANIN SROANP1 SROAO SROAOP SROAOP2 SROAOUT SROAPM SROAPR2 SROAPRE SROAR SROARPT SROASS SROATT SROAUTL SROCAN SROCHIEF SROCMPED SROCNR SROCOM SROCRAT SRODIS SRODLAY SRODLT SRODTH SROES SROICU SROIRR SROKEY MENU SROMED SROMENU SROMOR SRONAN SRONASS SRONEW SRONIN SRONOP SRONOP-ENTER SRONOP1 SRONOR SRONUR1 SRONUR2 SROPCE SROPCE0 SROPCEP SROPCEU SROPCEX SROPDEL SROPECS SROPER SROPLIS SROPLST1 SROPPC SROPRIO SROPRIT SROQ MENU SROQADM SROQD SROQD1 SROQIDP SROQIDP0 SROQL SROQN SROREAS SROREQ SROREST SRORET SRORPTS SROSCHOP SROSNR SROSPEC SROSUR1 SROUNV SROVER SROVER2 SROWAIT SROWC SRSCHCA SRSCHD SRSCHDC SRSCHUN SRSCONR SRSCPT SRSDT SRSKILL SRSRQST SRSUPRQ SRTPLS ^SRO(132.9
Kernel	1	^DIC(19

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; display menu header
CLINIC(SRLOC,SRCASE)
ACTCLIN(SRLOC)
SC
INOUT	; select in/out-patient status choice for report
DATE(SRSD,SRED,SRQ)
SPEC	; select surgical specialty
PROC	; put procedures and CPT code in array for display
OTH
FORMAT
DIAG	; check diagnosis input for required space in every 31 characters
LOCK(SRCASE)	;	ICR #6785 Status: Pending Usage: Private
E1
E2
SINED
XTMP
UNLOCK(SRCASE)	; apply decremental lock	ICR #6785 Status: Pending Usage: Private
NOCNT(SRDA)	; screen for active, non-count clinic for this division
DESC	; output attending code description when doing lookup
TIME	; transform time to date and time

External References

Name	Field # of Occurrence
^%DT	DATE+6, DATE+8, TIME+1
EN^DDIOL	DIAG+7, E1+2, E2+2, DESC+3, DESC+4
^DIC	SPEC+3
$$GET1^DIQ	HDR+3, SC, NOCNT+4
^DIR	INOUT+3, SPEC+2
$$CPT^ICPTCOD	PROC+1, OTH+1
SSOTH^SROCPT	OTH+2
SSPRIN^SROCPT	PROC+1
$$SIGNED^SROESUTL	LOCK+4
DEM^VADPT	HDR+5
$$FMADD^XLFDT	LOCK+2
$$NOW^XLFDT	LOCK+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?(80-$L(Y)\2),Y Line Location: HDR+3
Function Call: WRITE	Prompt: !! Condition for execution: SRCNT>1 Line Location: HDR+6
Function Call: WRITE	Prompt: " "_VADM(1)_" ("_VA("PID")_") Case #"_SRTN_" - "_SRSDATE Line Location: HDR+6
Function Call: WRITE	Prompt: !!,"The ending date must be later than the starting date.",! Line Location: DATE+9
Function Call: WRITE	Prompt: @IOF,! Line Location: SPEC+1
Function Call: WRITE	Prompt: ! Line Location: SPEC+3
Routine Call	DIC Line Location: SPEC+3
Routine Call	DIR Line Location: INOUT+3 SPEC+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	HDR+5
^SC - [#44]	SC, SC+1, SC+2, NOCNT+3, NOCNT+5, NOCNT+6, NOCNT+7
^SRF - [#130]	HDR+5, CLINIC+1, PROC+1, PROC+2, OTH, OTH+1, OTH+3, LOCK+3, UNLOCK+1
^SRO(132.9 - [#132.9]	DESC+2
^SRO(133 - [#133]	HDR+2, NOCNT+2
^VA(200 - [#200]	E1+1, E2+1
^XTMP("SRLOCK-"	LOCK+5, LOCK+8, LOCK+10, E1, E2, SINED, SINED+3, SINED+5, XTMP, XTMP+1 , UNLOCK+2!, UNLOCK+3!, UNLOCK+5!, UNLOCK+6!

Label References

Name	Line Occurrences
E1	LOCK+6, SINED+1
E2	LOCK+10, SINED+5
FORMAT	PROC+3, OTH+5
OTH	PROC+2
SC	CLINIC+1, ACTCLIN+1
SINED	LOCK+4
XTMP	LOCK+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	DATE+6!, DATE+8!, TIME+1*
%DT("A"	DATE+6, DATE+8
D0	LOCK+1~
DFN	HDR+2~, HDR+5*
DIC	SPEC+3!*
DIC("A"	SPEC+3*
DIC("S"	SPEC+3*
DIC(0	SPEC+3*
>> DILOCKTM	LOCK+5, LOCK+8, SINED, SINED+3
DIR	INOUT+1!, INOUT+3!, SPEC+2!
DIR("?"	SPEC+1*
DIR("A"	INOUT+1, INOUT+2, SPEC+2*
DIR("B"	INOUT+2, SPEC+2
DIR(0	INOUT+3, SPEC+2
DT	CLINIC+1, ACTCLIN+1, NOCNT+2
>> DTOUT	INOUT+3, SPEC+2
>> DUOUT	INOUT+3, SPEC+2
DUZ	LOCK+5, LOCK+8, LOCK+10, XTMP, XTMP+1, UNLOCK+2, UNLOCK+5
>> I	FORMAT+1*
IOF	HDR+3, HDR+6, SPEC+1
>> J	FORMAT+1*
>> K	PROC+1, PROC+2, OTH+4, FORMAT, FORMAT+1*
>> SRB	INOUT+2
SRBL	DIAG+1~, DIAG+3*, DIAG+4
SRC	DIAG+1~, DIAG+7
SRC(1	DIAG+6*
SRC(2	DIAG+6*
SRC(3	DIAG+7*
SRCASE	CLINIC~, CLINIC+1, LOCK~, LOCK+3, LOCK+4, LOCK+5, LOCK+10, E1, SINED, SINED+5 , XTMP, UNLOCK~, UNLOCK+1, UNLOCK+2, UNLOCK+3
SRCC	UNLOCK+1~
SRCLIN	CLINIC+1~, ACTCLIN+1~, SC, SC+2
SRCNT	HDR+2~*, HDR+3, HDR+6
SRCONCC	LOCK+1~, LOCK+3, LOCK+7, LOCK+8, E2, SINED+2, SINED+3, XTMP+1, UNLOCK+1~, UNLOCK+4 , UNLOCK+5, UNLOCK+6
SRDA	PROC+1~, OTH*, OTH+1, OTH+3, NOCNT~, NOCNT+2
SRDIAG	DIAG+1~, DIAG+2, DIAG+3, DIAG+4
SRDIV	NOCNT+1~, NOCNT+2*, NOCNT+3
SRED	DATE~, DATE+5, DATE+10
>> SRESIG	LOCK+4
SRFLG	DIAG+1~, DIAG+2, DIAG+3
>> SRIO	INOUT+4*
SRKL	SC~, NOCNT+1~, NOCNT+4
>> SRL	PROC+2, OTH+4, FORMAT, FORMAT+1
SRLCK	LOCK+1~, LOCK+3, LOCK+4, LOCK+6, LOCK+9, LOCK+11, LOCK+12, SINED+1, SINED+2, SINED+4*
SRLOC	CLINIC~, ACTCLIN~, SC, SC+1, SC+2, NOCNT+1~, NOCNT+2*, NOCNT+3, NOCNT+4, NOCNT+5 , NOCNT+6, NOCNT+7
SRNOW	LOCK+1~, LOCK+2*, XTMP, XTMP+1
SRNOW1	LOCK+1~, LOCK+2*, XTMP, XTMP+1
SRNUM	HDR+2~, HDR+3*
SRPROC	PROC+1!
SRPROC(	PROC+2, OTH+4, FORMAT, FORMAT+1
SRQ	DATE~, DATE+5, DATE+6, DATE+8*
>> SRRPT	INOUT+1
SRSD	DATE~, DATE+5, DATE+7, DATE+9
SRSDATE	HDR+2~, HDR+5*, HDR+6
>> SRSITE	HDR+1
>> SRSITE("DIV"	HDR+3
>> SRSITE("SITE"	HDR+3
>> SRSOUT	INOUT+3, SPEC+2, SPEC+3*
>> SRSPEC	SPEC+3*
>> SRSPECN	SPEC+3*
>> SRSUPCPT	PROC+2, OTH+3
SRTAG	LOCK+1~, LOCK+3, SINED+6, XTMP, XTMP+1
>> SRTN	HDR+4, HDR+5, HDR+6, PROC+1, PROC+2, OTH, OTH+1, OTH+3
SRUSER	LOCK+1~, E1, E1+1, E1+2, E2, E2+1, E2+2
SRX	HDR+2~, CLINIC+1~, ACTCLIN+1~, SC+1, SC+2, LOCK+1~, E1, E1+1, E2, E2+1 , NOCNT+1~, NOCNT+6, NOCNT+7, DESC+1~, DESC+2
SRY	CLINIC+1~, ACTCLIN+1~, SC+2, NOCNT+1~, NOCNT+7, DESC+1~, DESC+2*
SRZ	CLINIC+1~, ACTCLIN+1~, SC+2, NOCNT+1~, NOCNT+2*, NOCNT+7, DESC+1~, DESC+3
SRZ(	DESC+2*
SRZ(0	DESC+3
U	CLINIC+1, SC+2, NOCNT+7
>> VA("PID"	HDR+6
>> VADM(1	HDR+6
X	PROC+1~, PROC+2, OTH+3, OTH+4, FORMAT, FORMAT+1, DIAG+1, DIAG+2, DIAG+3!, DIAG+5 , TIME+1
Y	HDR+2~, HDR+3, HDR+5, INOUT+4, DATE+6, DATE+7, DATE+8, DATE+9, DATE+10, SPEC+3 , PROC+1~, PROC+2, OTH+1, OTH+2, OTH+3, FORMAT+1*, NOCNT+2, DESC+2, TIME+1
Y(0	SPEC+3

Customize PDF page

Package: Surgery

Routine: SROUTL

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 133

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: