Routine: SCENIA0

Information

SCENIA0 ;ALB/SCK - DISPLAY INCOMPLETE ENCOUNTER ERRORS ; 09-MAY-1997

Source file <SCENIA0.m>

Package	Total	Call Graph
Registration	4	PID^VADPT6 (EN,REFRESH)^VALM ($$FDTTM,$$LOWER,$$SETSTR)^VALM1 CLEAN^VALM10
Kernel	1	DISP^XQORM1
Scheduling	1	$$OPENC^SCUTIE1

Package	Total	Caller Graph
Scheduling	3	SCENI0 SCENI01 SCENIA1

Name	Comments	DBIA/ICR reference
EN	; -- main entry point for SCENI INCOMPLETE ENC DISPLAY ; Variables ; SDOE - Ptr to #409.68 ; SDCLN - Ptr to #44 ; SDFLG - Deleted encounter or not ; SCINF - Encounter information array
HDR	; -- header code
SET(X)	; Sets formatted display string into TMP global
INIT	; -- init variables and list array ; Variables ; IW,IC,EC,EW,DC,DW,SC,SW - Col widths and positions ; SDECNT - Counter
EXIT	; -- exit code
BLD	; Build display global for error entries in the error file
BLD1(SDEPTR)	; Build display line ; Input ; SDEPTR - Ptr to #409.75
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$G(SCINF("ERROR")) Line Location: EN+14
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+20
Routine Call	VALM Line Location: EXIT+4

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HDR+2
^SC - [#44]	HDR+4
^SD(409.75 - [#409.75]	BLD+3, BLD+4, BLD1+15
^SD(409.76 - [#409.76]	BLD1+17, BLD1+18
^TMP("SCENI DFN"	EN+9!, EN+17*, EXIT+1!
^TMP("SCENI ERR"	INIT+5!, INIT+15, SET+1, SET+3, SET+4*, EXIT+1!
^TMP("SCENI XMT"	EN+9!, EN+18*, EXIT+1!

Name	Field # of Occurrence
BL	INIT+8*, BLD1+20, BLD1+22, BLD1+23, BLD1+24, EXIT+2!
DC	INIT+12*, BLD1+24, EXIT+2!
>> DFN	EN+16, EN+17, HDR+1
DIE	EXIT+3!
DR	EXIT+3!
DW	INIT+12*, BLD1+24, EXIT+2!
EC	INIT+11*, BLD1+23, EXIT+2!
ERNODE	BLD1+17*, BLD1+21, BLD1+23, SET+3, EXIT+2!
ERNODE1	BLD1+18*, BLD1+24, EXIT+2!
EW	INIT+11*, BLD1+23, EXIT+2!
>> FLG1	EXIT+4
IC	INIT+9*, BLD1+20, EXIT+2!
IW	INIT+9*, BLD1+20, EXIT+2!
RESULT	EXIT+3!
SC	INIT+10*, BLD1+22, EXIT+2!
SCCOR	EXIT+2!
SCEPTR	EXIT+3!
SCINF	EN+14!, EXIT+2!
SCINF("CLINIC"	HDR+4
SCINF("DFN"	EN+16, HDR+1, HDR+2
SCINF("ENCOUNTER"	HDR+5
SCINF("ERROR"	EN+14
SCTEXT	EXIT+2!
SDECNT	INIT+16, BLD+2, BLD1+12*, BLD1+20, SET+2, SET+3, SET+4, EXIT+2!
SDEPTR	BLD+2, BLD+3, BLD+4, BLD+5, BLD1~, BLD1+15, SET+3, SET+4, EXIT+2!
SDERR	BLD1+15*, BLD1+16, BLD1+17, BLD1+18, EXIT+2!
SDFLG	EN+10!, EN+13*, EN+14, HDR+5, EXIT+2!
SDN1	EXIT+3!
SDN2	EXIT+3!
SDOK	EXIT+3!
SDSRC	BLD1+10~, BLD1+21*, BLD1+22
SDX	BLD1+12, BLD1+20, BLD1+22, BLD1+23, BLD1+24*, BLD1+25, EXIT+2!
>> SDXPTR	EN+12, EN+13, EN+18, BLD+3
SINDX	EXIT+3!
STATUS	EXIT+3!
SW	INIT+10*, BLD1+22, EXIT+2!
U	HDR+2, HDR+4, INIT+9, INIT+10, INIT+11, INIT+12, BLD1+15, BLD1+21, BLD1+23, SET+3
VA	EN+10!, EXIT+1!
VA("BID"	HDR+1, HDR+3
>> VALMBCK	EN+8, EN+21, EXIT+4*
VALMCNT	EN+7~, INIT+16, BLD+2, SET+1*, SET+3
>> VALMDDF("DESCRIPTION"	INIT+12
>> VALMDDF("ERROR"	INIT+11
>> VALMDDF("INDEX"	INIT+9
>> VALMDDF("SOURCE"	INIT+10
>> VALMHDR(1	HDR+2, HDR+3
>> VALMHDR(2	HDR+4, HDR+5
>> VALMWD	BLD1+12, BLD1+20, BLD1+22, BLD1+23, BLD1+24
X	INIT+9, INIT+10, INIT+11, INIT+12, SET~, SET+1, HELP+1*