Routine: SDCO0

Information

SDCO0 ;ALB/RMO - Build List Area - Check Out;11 FEB 1993 10:00 am ; 6/22/05 12:56pm

Package	Total	Call Graph
Scheduling	9	CLASK^SDCO2 $$SEQ^SDCO21 $$PRASK^SDCO3 $$PR^SDCO31 $$DXASK^SDCO4 $$DX^SDCO41 $$VAL^SDCODD $$COMDT^SDCOU (GETCPT,GETDX,GETPRV)^SDOE
CPT HCPCS Codes	2	$$CPT^ICPTCOD $$MOD^ICPTMOD
List Manager	2	$$SETSTR^VALM1 CNTRL^VALM10
VA FileMan	2	$$GET1^DIQ ^DIWP
DRG Grouper	1	$$IMP^ICDEX
Kernel	1	$$SENTENCE^XLFSTR

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: 2

Package	Total	Caller Graph
Scheduling	2	SDAMEP4 SDCO

Entry Points

Name	Comments	DBIA/ICR reference
EN(SDARY,SDOE,SDSTART,SDTOT)	;Entry point Called by Ck Out & Apt Mgr Exp Dis
CL(SDARY,SDOE,SDSTART,SDTOT)	;Build classification (Pg: 1 Row: SDSTART-SDSTART+7 Col: 1-80)
PR(SDARY,SDOE,SDSTART,SDTOT)	;Build Provider (Pg: 1 Row: SDSTART+8-END Col: 1-40)
DX(SDARY,SDOE,SDSTART,SDTOT)	;Build Diagnosis (Pg: 1 Row: SDSTART+8-END Col: 42-80)
SC(SDARY,SDOEP,SDSTART,SDTOT)	;Build Stop Codes (Pg: 2 Row: SDTOT+1 Col: 1-80)
AE(SDARY,SDOE,SDLINE,SDTOT,SDONE)	; -- add/edits
AEQ
SET(SDARY,LINE,TEXT,COL,ON,OFF,SDSUB,SDCNT,SDATA,SDTOT)	; -- set display array
DXFTXT(DXTXT,DXARY)	; -- formatted diagnosis text

External References

Name	Field # of Occurrence
$$GET1^DIQ	DX+13, AE+28
^DIWP	DXFTXT+4
$$IMP^ICDEX	DX+9
$$CPT^ICPTCOD	AE+29
$$MOD^ICPTMOD	AE+40
CLASK^SDCO2	CL+4
$$SEQ^SDCO21	CL+6
$$PRASK^SDCO3	PR+4
$$PR^SDCO31	PR+12
$$DXASK^SDCO4	DX+4
$$DX^SDCO41	DX+14
$$VAL^SDCODD	CL+9
$$COMDT^SDCOU	CL+10
GETCPT^SDOE	AE+17
GETDX^SDOE	DX+7
GETPRV^SDOE	PR+7
$$SETSTR^VALM1	SET+4
CNTRL^VALM10	SET+5
$$SENTENCE^XLFSTR	DXFTXT+3

FileNo	Call Tags
^AUPNVSIT - [#9000010]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(40.7 - [#40.7]	AE+12
^SCE - [#409.68]	EN+5, AE+2
^SCE("APAR"	SC+7
^SD(409.41 - [#409.41]	CL+11
^TMP(	SET+3, SET+4*
^TMP("SDCOIDX"	SET+6*
^UTILITY($J	DXFTXT+2!, DXFTXT+6, DXFTXT+7, DXFTXT+8!

Label References

Name	Line Occurrences
AE	SC+5, SC+7
AEQ	AE+10
CL	EN+2
DX	EN+4
DXFTXT	DX+18
PR	EN+3
SC	EN+5
SET	CL+3, CL+5, CL+11, CL+12, PR+3, PR+4, PR+12, DX+3, DX+4, DX+15 , DX+17, DX+19, DX+20, SC+2, SC+3, SC+4, AE+14, AE+24, AE+33, AE+45 , AE+46

Naked Globals

Name	Field # of Occurrence
^(0	SET+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
COL	SET~, SET+4, SET+5
CPTINFO	AE+19~, AE+29*, AE+30, AE+31
CPTS	AE+1~
CPTS(	AE+20, AE+28, AE+29, AE+30, AE+37, AE+38
DFN	AE+1~, AE+4*
DIWL	DXFTXT+1~, DXFTXT+3*
DIWR	DXFTXT+1~, DXFTXT+3*
DXARY	DX+1~, DX+18, DXFTXT~, DXFTXT+2!
DXARY(	DX+18, DXFTXT+7*
DXTXT	DXFTXT~, DXFTXT+3
I	DX+1~, DX+18*, DX+19
ICDVDT	DX+1~, DX+13*, DX+14, DX+16
ICPTVDT	AE+19~, AE+28*, AE+29, AE+40
IMPDT	DX+1~, DX+9*, DX+16
>> IORVOFF	CL+3, PR+3, DX+3, SC+3
>> IORVON	CL+3, PR+3, DX+3, SC+3
LINE	SET~, SET+2, SET+3, SET+4, SET+5
MODCODE	AE+19~, AE+42*, AE+45
MODINFO	AE+19~, AE+40*, AE+41, AE+42, AE+43
MODPTR	AE+19~, AE+38*, AE+39, AE+40
MODTEXT	AE+19~, AE+43*, AE+46
OFF	SET~, SET+5
ON	SET~, SET+5
PTR	AE+19~, AE+36, AE+37, AE+38
SDARY	EN~, EN+2, EN+3, EN+4, EN+5, CL~, CL+3, CL+5, CL+11, CL+12 , PR~, PR+3, PR+4, PR+12, DX~, DX+3, DX+4, DX+15, DX+17, DX+19 , DX+20, SC~, SC+2, SC+3, SC+4, SC+5, SC+7, AE~, AE+14, AE+24 , AE+33, AE+45, AE+46, SET~, SET+3, SET+4
SDATA	SET~, SET+6
>> SDCL	AE+6*
SDCLOEY	CL+1~, CL+4, CL+5
SDCLOEY(	CL+9, CL+10, CL+11
SDCNI	CL+1~
SDCNT	CL+1~, CL+6, CL+8, CL+11, PR+1~, PR+8, PR+10, PR+12, DX+1~, DX+8* , DX+11, DX+15, DX+17, DX+19, AE+1~, AE+18, SET~, SET+6
SDCTI	CL+1~, CL+7*, CL+9, CL+10, CL+11
SDCTIS	CL+1~, CL+6*, CL+7
SDCTS	CL+1~, CL+7*
SDDXD	DX+1~, DX+14*, DX+15, DX+17, DX+18
SDDXS	DX+1~
SDDXS(	DX+10, DX+13, DX+14, DX+17, DX+19
SDEND	CL+1~, CL+2*, CL+12
SDLINE	CL+1~, CL+2, CL+3, CL+5, CL+8, CL+11, CL+12, PR+1~, PR+2, PR+3 , PR+4, PR+11, PR+12, DX+1~, DX+2, DX+3, DX+4, DX+12, DX+15, DX+17 , DX+19, DX+20, SC+1~, SC+2, SC+3, SC+4, SC+5, SC+7, AE~, AE+13 , AE+14, AE+23, AE+24, AE+33, AE+44, AE+45, AE+46, SET+6
SDNA	CL+1~, CL+9*
SDOE	EN~, EN+2, EN+3, EN+4, EN+5, CL~, CL+4, CL+10, PR~, PR+4 , PR+7, DX~, DX+4, DX+7, SC+6, SC+7, AE~, AE+2, AE+17
SDOE0	AE+1~, AE+2*, AE+3, AE+4, AE+5, AE+6, AE+7
SDOEP	SC~, SC+5, SC+7
SDONE	SC+1~, SC+5, SC+7, AE~
SDONE(	AE+10, AE+50*
SDPR	PR+1~
SDPR(	PR+9, PR+12
>> SDSC	AE+5*, AE+12
SDSCD0	AE+1~, AE+12*, AE+14
SDSTART	EN~, EN+2, EN+3, EN+4, EN+5, CL~, CL+2, PR~, PR+2, DX~ , DX+2, SC~, SC+2
SDSUB	SET~, SET+6
SDT	AE+1~, AE+3*
SDTOT	EN~, EN+1, EN+2, EN+3, EN+4, EN+5, CL~, CL+3, CL+5, CL+11 , CL+12, PR~, PR+3, PR+4, PR+12, DX~, DX+3, DX+4, DX+15, DX+17 , DX+19, DX+20, SC~, SC+2, SC+3, SC+4, SC+5, SC+7, AE~, AE+14 , AE+24, AE+33, AE+45, AE+46, SET~, SET+2
SDVAL	CL+1~, CL+9*, CL+10
SDVCPT	AE+1~, AE+18, AE+20, AE+28, AE+29, AE+30, AE+37, AE+38
SDVCPT0	AE+1~
SDVIEN	AE+1~, AE+7*, AE+10, AE+50
SDVPOV	DX+1~, DX+8, DX+10, DX+13, DX+14, DX+17, DX+19
SDVPRV	PR+1~, PR+8, PR+9, PR+12
TEXT	SET~, SET+4, SET+5
TXT	DX+1~, DX+18*, DX+19, DX+20
U	AE+5, AE+6, AE+7
>> VALM("LINES"	SC+2
X	CL+1~, CL+10, CL+11, AE+1~, AE+30, AE+31, AE+33, SET+1~, SET+3, SET+4 , DXFTXT+1~, DXFTXT+3, DXFTXT+5, DXFTXT+6*, DXFTXT+7

Customize PDF page

Package: Scheduling