Routine: SROPCEU

Information

SROPCEU ;BIR/ADM-List/Refile Not Transmitted Outpatient Encounters ; [ 09/22/98 11:41 AM ]

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Surgery	4	(,REFILE)^SROPCEU0 DATE^SROUTL $$DIV^SROUTL0 ^SRSKILL
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
VA FileMan	3	^DIC EN^DIQ1 ^DIR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Surgery	1	SRO PCE NOTRANS

Entry Points

Name	Comments	DBIA/ICR reference
ASK
DATE
EN
END
ZT
SPEC
ALL
MSP
TMP	; identify cases with not transmitted encounters

External References

Name	Field # of Occurrence
^%ZIS	DATE+2
^%ZISC	END+2
^%ZTLOAD	DATE+3, DATE+4
^DIC	SPEC+3, MSP+3
EN^DIQ1	TMP+14
^DIR	ASK+5, ASK+9, SPEC+1, ALL+4, MSP+1
^SROPCEU0	EN
REFILE^SROPCEU0	EN+1
DATE^SROUTL	DATE
$$DIV^SROUTL0	TMP+2
^SRSKILL	END+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,?13,"Outpatient Surgery Encounters Not Transmitted to NPCD",!!!,"Surgical cases filed with PCE that have no Scheduling appointment status",!,"or that have an appointment status of ACTION REQUIRED or NON-COUNT indicate" Line Location: SROPCEU+3
Function Call: WRITE	Prompt: !,"surgical encounters that have not transmitted to the National Patient",!,"Care Database. This option is intended as a tool to identify these",!,"encounters and, after taking appropriate corrective measures, to" Line Location: SROPCEU+4
Function Call: WRITE	Prompt: !,"reinitiate the encounter transmission process.",!! Line Location: SROPCEU+5
Function Call: WRITE	Prompt: !! Line Location: ASK+6
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !!,"Press RETURN to continue " Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: SPEC+0
Function Call: WRITE	Prompt: ! Line Location: SPEC+3
Function Call: WRITE	Prompt: ! Line Location: ALL+0
Function Call: WRITE	Prompt: ! Line Location: MSP+0
Function Call: WRITE	Prompt: ! Line Location: MSP+3
Routine Call	%ZIS Line Location: DATE+2
Routine Call	DIC Line Location: SPEC+3 MSP+3
Routine Call	DIR Line Location: ASK+5 ASK+9 SPEC+1 ALL+4 MSP+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ECC(723 - [#723]	TMP+9
^SCE("AVSIT"	TMP+10
^SRF - [#130]	TMP+2, TMP+3, TMP+4, TMP+7
^SRF("AC"	TMP+2
^SRO(137.45 - [#137.45]	TMP+8
^TMP("SR69"	END!, TMP+1!, TMP+13, TMP+16
^TMP("SRSP"	END!, TMP+1!, TMP+12, TMP+13, TMP+17, TMP+18, TMP+20, TMP+21, TMP+22, TMP+23*

Label References

Name	Line Occurrences
ALL	ASK+12, SPEC+2, MSP+2
END	ASK+5, ASK+9, ASK+10, ASK+11, ASK+12, DATE, DATE+1, DATE+4
MSP	ASK+11
SPEC	ASK+10
TMP	EN
ZT	DATE+3, DATE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DATE+1!, DATE+2*
%ZIS("A"	DATE+2*
DA	TMP+14*!
DIC	SPEC+3!, MSP+3!, TMP+14*!
DIC("A"	SPEC+3, MSP+3
DIC("S"	SPEC+3*
DIC(0	SPEC+3, MSP+3
DIQ	TMP+14*!
DIQ(0	TMP+14*
DIR	ASK!, ASK+5!, ASK+9!, SPEC+1!, ALL+4!, MSP+1!
DIR("?"	ASK+1, ASK+2, ASK+3, ASK+4, SPEC, ALL+1, ALL+3, MSP
DIR("A"	ASK, ASK+7, ASK+8, SPEC+1, ALL+1, ALL+3, MSP+1*
DIR("B"	ASK, ASK+8, SPEC+1, ALL+4, MSP+1*
DIR(0	ASK+5, ASK+9, SPEC+1, ALL+4, MSP+1*
DR	TMP+14*!
DTIME	END+1
>> DTOUT	ASK+5, ASK+9, SPEC+1, ALL+4, MSP+1
>> DUOUT	ASK+5, ASK+9, SPEC+1, ALL+4, MSP+1
>> EDATE	DATE, TMP+1
>> I	TMP+1, TMP+19, TMP+22*
IO("Q"	DATE+1!, DATE+3!
IOF	SROPCEU+3, END, END+2
IOP	DATE+1!
IOST	END, END+1
POP	DATE+1!, DATE+2
>> SDATE	DATE, TMP+1
>> SR	TMP+3*, TMP+7
SR12	END+2!, TMP+3*
>> SRCNT	TMP+1, TMP+19, TMP+20
>> SRCNT(	TMP+1, TMP+16, TMP+19
>> SRCNT(0	TMP+11*, TMP+20
>> SRCNT(12	TMP+20
>> SRCNT(14	TMP+20
SRDIV	END+2!
SRDX	END+2!
SRENC	END+2!, TMP+10*, TMP+11, TMP+14, TMP+15, TMP+16, TMP+18
SRFCPT	END+2!
SRFICD	END+2!
>> SRFLG	SROPCEU+2, ASK+10, ASK+11, ASK+12, TMP+5, TMP+6
SRFRTO	END+2!
SRINOUT	END+2!
>> SRNON	TMP+4*, TMP+5, TMP+6, TMP+7, TMP+8, TMP+9
SRPARAM	END+2!
SRPODX	END+2!
SRQCPT	END+2!
SRQICD	END+2!
SRRPT	END+2!
>> SRSDT	TMP+1, TMP+2
>> SRSEDT	TMP+1*, TMP+2
SRSEL	ASK+6*, ASK+7, DATE+1, DATE+4, EN, EN+1, END+2!, ZT, SPEC, SPEC+1 , ALL, ALL+2, MSP, MSP+1
SRSORT	SROPCEU+2, END+2!, ALL+5, TMP+1
>> SRSOUT	SROPCEU+2, ASK+5, ASK+9, ASK+10, ASK+11, ASK+12, DATE, DATE+1, DATE+2, DATE+3* , END+1, SPEC+1, SPEC+3, ALL+4, MSP+1, MSP+3*
>> SRSPEC	SROPCEU+2, SPEC+3, MSP+3*, TMP+7
>> SRSPECN	SPEC+3, MSP+3
SRSPS	END+2!
SRSR	END+2!
>> SRSS	TMP+7, TMP+8, TMP+9, TMP+12, TMP+13, TMP+17, TMP+18, TMP+21, TMP+22, TMP+23
SRTN	END+2!, TMP+2*, TMP+3, TMP+4, TMP+7, TMP+13, TMP+16, TMP+18
SRUCPT	END+2!
SRUICD	END+2!
SRVSIT	TMP+1~, TMP+3*, TMP+10
SRX	TMP+14!
SRX(	TMP+15, TMP+16, TMP+18
>> SRZ	TMP+15*, TMP+16, TMP+18
>> X	END+1, TMP+22, TMP+23
>> Y	ASK+6, ASK+10, SPEC+2, SPEC+3, ALL+5, MSP+2, MSP+3
>> Y(0	SPEC+3, MSP+3
>> ZTDESC	ZT*
>> ZTIO	DATE+4*
>> ZTQUEUED	END
>> ZTREQ	END*
>> ZTRTN	ZT+2*
>> ZTSAVE("EDATE"	ZT+1*
>> ZTSAVE("SDATE"	ZT+1*
>> ZTSAVE("SRFLG"	ZT+1*
>> ZTSAVE("SRSEL"	ZT+1*
>> ZTSAVE("SRSITE*"	ZT+1*
>> ZTSAVE("SRSORT"	ZT+1*
>> ZTSAVE("SRSPEC*"	ZT+1*
>> ZTSK	DATE+4
>> ZTSTOP	END

Customize PDF page

Package: Surgery