Routine: SDCO21

Information

SDCO21 ;ALB/RMO - Classification Cont. - Check Out;30 MAR 1993 2:10 pm ; 3/12/04 4:33pm

Source file <SDCO21.m>

Package	Total	Call Graph
Scheduling	1	$$ACT^SDCODD

Package	Total	Caller Graph
Scheduling	6	SCMSVUT1 SDAL0 SDAPICO1 SDCO0 SDCO2 SDROUT2
Registration	5	DGPTFM DGPTFM2 DGPTFM3 DGPTFQWK DGPTSPQ
Integrated Billing	4	IBAMTD IBAMTS IBAMTS1 IBOVOP1
Surgery	4	SROCD0 SROCD4 SROPCE1 SROVER3
Order Entry Results Reporting	2	ORWDBA1 ORWDBA3
PCE Patient Care Encounter	2	PXBAPI21 PXUTLSCC
Lab Service	1	LRBEBA
Radiology Nuclear Medicine	1	RABWORD

Name	Comments	DBIA/ICR reference
SCRQ
CLOE(SDOE,SDCLOEY)	;Set-up Classification Array for Outpatient Encounter ; Input -- SDOE Outpatient Encounter file IEN ; Output -- SDCLOEY Classification Array Set for Outpatient Encounter ; Subscripted by Class Type file IEN ; Null or 409.42 IEN^Internal Value^1=n/a^1=unedt	ICR #1300 Status: Active Usage: Private
SC(SDCTI,SDOE,SDSELY,SDCLOEY)	;Service Connected Classification Checks
CHK(SDOE,SDCTI,SDCLOE)	;Check One Classification for Outpatient Encounter ; Input -- SDOE Outpatient Encounter file IEN ; SDCTI Outpatient Classification Type IEN ; Output -- SDCLOE Null or 409.42 IEN^Internal Value^1=n/a^1=unedt
CHKQ
SCR(SDCTI,DFN,SDDT,SDOE)	;Outpatient Classification Type Screen ; Input -- SDCTI Outpatient Classification Type IEN ; DFN Patient file IEN ; SDDT Date/Time ; SDOE Outpatient Encounter file IEN [Optional] ; Output -- 1=Yes and 0=No
SEQ()	;Classification Type Sequence by IEN ; Input -- None ; Output -- Classification Type Sequence by IEN ; Current Sequence is: SC, CV, AO, IR, EC, SHAD, MST, HNC	ICR #1300 Status: Active Usage: Private
CL(DFN,SDDT,SDOE,SDCLY)	;Build Classification Array ; Input -- DFN Patient file IEN ; SDDT Date/Time ; SDOE Outpatient Encounter file IEN [Optional] ; Output -- SDCLY Classification Array ; Subscripted by Class. Type file (#409.41) IEN	ICR #406 Status: Active Usage: Controlled Subscription ICR #1300 Status: Active Usage: Private
CLOEQ
SCQ
CLQ

Name	Field # of Occurrence
$$ACT^SDCODD	SCR+7

Name	Line Occurrences (* Changed, ! Killed)
^SCE - [#409.68]	CLOE+6, CHK+5
^SD(409.41 - [#409.41]	CL+7, SCR+8
^SDD(409.42 - [#409.42]	CLOE+8, CHK+8, CHK+9

Name	Field # of Occurrence
DFN	CL~, CL+7, SCR~, CHK+4~, CHK+6*, CHK+7
SDCHGF	SC+1~, SC+5, SC+6, SC+7
SDCL	CHK+4~, CHK+7, CHK+9, CHK+10
SDCLOE	SC+1~, SC+3, SC+4, SC+5, SC+6, SC+7, SC+8, CHK~, CHK+10*
SDCLOEY	CLOE~, SC~
SDCLOEY(	CLOE+11, SC+7, SC+9!
SDCLY	CL~, CLOE+5~, CLOE+7
SDCLY(	CL+7, CLOE+9, CLOE+11
SDCN0	CLOE+5~, CLOE+8*, CLOE+9
SDCNI	CLOE+5~, CLOE+8, CLOE+9, CHK+4~, CHK+8, CHK+9
SDCTI	CL+6~, CL+7, SCR~, SCR+7, SCR+8, CLOE+5~, CLOE+8, CLOE+9, CLOE+11*, SC~ , SC+2, SC+3, SC+7, SC+9, CHK~, CHK+7, CHK+8
SDCTIS	CLOE+5~, CLOE+10*, CLOE+11
SDCTS	CLOE+5~, CLOE+11*
SDDT	CL~, CL+7, SCR~, SCR+7, CHK+4~, CHK+6*, CHK+7
SDOE	CL~, CL+7, SCR~, CLOE~, CLOE+6, CLOE+7, CLOE+8, SC~, SC+3, CHK~ , CHK+5, CHK+7, CHK+8
SDOE0	CLOE+5~, CLOE+6, CLOE+7, CLOE+9, CHK+4~, CHK+5, CHK+6, CHK+9
SDSEL	SC+1~, SC+2*, SC+7
SDSELY	SC~, SC+7
SDSELY(	SC+7*
Y	SCR+6~, SCR+9*, SCRQ