Routine: SCENI0

Information

SCENI0 ;ALB/SCK - INCOMPLETE ENCOUNTER MGMT MAIN LM DISPLAY ; 07-MAY-1997

Package	Total	Call Graph
Scheduling	4	$$ASKDT^SCENI01 EN^SCENIA0 $$OPENC^SCUTIE1 $$ENTRY^SCUTIE2
List Manager	3	(EN,REFRESH)^VALM ($$FDATE,$$LOWER,FULL)^VALM1 CLEAN^VALM10
Kernel	2	($$DT,$$FMADD,$$FMTE)^XLFDT DISP^XQORM1
Registration	1	PID^VADPT6
VA FileMan	1	WAIT^DICD

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

Package	Total	Caller Graph
Scheduling	4	SCDXHLDR SCENI IEMM ERROR CORRECTION SCENI INCOMPLETE ENC MGT SCENI01

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Entry point for IEMM LM display ; Variables ; VAUTC,VAUTD - Clinic and Division o/m/a arrays ; SDENTYP - Search type, P:patient, C:Clinic, E:Error Code ; SDCLN - Clinic from selection lookup ; SDDT - Date range for search, Begin^End format ; SDY - Local variable used in selection criteria ; SDEVAL - Error code value ; SDFN - Patient DFN for local use ; SDIEMM - Flag for IEMM
AGN
EN1
ENQ
ENP(SDXPTR)	; Entry point for Data validation, Patient Predefined ; This entry point will jump to the second LM screen and display any ; errors for the encounter.
HDR	; -- header code
INIT	; -- init variables and list array
BLD	; Order through the Xmited OE Error file on encounter Xref ; Variables ; SDOEDT - Encounter date ; SDOE - Pointer to #409.68 ; SDE - End date of date range ; SDCNT - Count of entries ; SDXMT - Pointer to #409.73 ; SDXER - Pointer to #409.75
BLDA(SDXMT,SDOEDT)	; Build list entry, and retreive encounter information ; Input ; SDXMT - Pointer to $409.73 ; SDOEDT - Date of encounter
BLDLM	; Build display list array for LM ; Variables ; SDN - Patient Name ; SDD - Encounter Date ; SDXT - Pointer to #409.73, transmission pointer
BLDLM1(SDXT)	; Build LM Display line ; Input ; SDXT - DFN^BID^Delete marker ('*')
SET(X,SDXMT)	;
HELP	; -- help code
EXIT	; -- exit code
EX1
PLKUP(SDFN)	;
CLKUP(SDCLN)	;
CHKDATE(XMIT,BDT,EDT)	;
CHKQ

External References

Name	Field # of Occurrence
WAIT^DICD	EN1
$$ASKDT^SCENI01	AGN+9, AGN+13
EN^SCENIA0	ENP+14
$$OPENC^SCUTIE1	BLDA+12, SET+9
$$ENTRY^SCUTIE2	AGN
PID^VADPT6	BLDA+19
EN^VALM	EN1+3
REFRESH^VALM	EXIT+1
$$FDATE^VALM1	HDR+3
$$LOWER^VALM1	BLDA+17
FULL^VALM1	EXIT+7
CLEAN^VALM10	INIT+7, EXIT+8
$$DT^XLFDT	AGN+7
$$FMADD^XLFDT	AGN+7
$$FMTE^XLFDT	BLDLM1+10
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN1+3
Routine Call	VALM Line Location: EXIT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	AGN+6
^DPT - [#2]	HDR+6, BLDA+17
^SC - [#44]	AGN+11
^SCE - [#409.68]	CHKDATE+11
^SD(409.73 - [#409.73]	CHKDATE+9
^SD(409.74 - [#409.74]	CHKDATE+12
^SD(409.75 - [#409.75]	BLD+16, BLD+17, BLD+18, PLKUP+6, PLKUP+8, CLKUP+7
^SD(409.76 - [#409.76]	HDR+11
^TMP("SCEN LM"	INIT+5!, BLDA+20*, BLDLM+7, BLDLM+8, BLDLM+9, BLDLM1+7, BLDLM1+9, EXIT+2!
^TMP("SCENI TMP"	EXIT+2!
^TMP("SCENI"	INIT+4!, INIT+17, SET+3, SET+5, SET+6, SET+7, EXIT+2!
^TMP("SCENIDX"	INIT+6!, SET+10*, EXIT+2!
^TMP("SDAMIDX"	EXIT+3!

Label References

Name	Line Occurrences
$$CHKDATE	PLKUP+9, CLKUP+7
AGN	AGN+1
BLD	INIT+16
BLDA	BLD+18, PLKUP+10, CLKUP+7
BLDLM	INIT+16
BLDLM1	BLDLM+9
CHKQ	CHKDATE+10
CLKUP	BLD+14
ENQ	AGN+9, AGN+13
EX1	EXIT+1
PLKUP	BLD+13
SET	INIT+19, BLDLM1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%B	EN+12!
ANS	EXIT+4!, PLKUP+7~, PLKUP+9, PLKUP+10, CLKUP+5~, CLKUP+7, CHKDATE+8~, CHKDATE+10, CHKDATE+13, CHKDATE+14* , CHKQ
BDT	CHKDATE~, CHKDATE+13
BL	INIT+9*, BLDLM1+6, BLDLM1+7, BLDLM1+8, BLDLM1+9, BLDLM1+10, EXIT+4!
COD	PLKUP+4~, PLKUP+5, PLKUP+6
DA	EN+12!
>> DATE	CHKDATE+11, CHKDATE+12, CHKDATE+13, CHKDATE+14
DC	INIT+14*, BLDLM1+7, EXIT+4!
DFN	EN+11~, BLDA+8~, BLDA+18*, EXIT+4!
DIC	EXIT+4!
DIE	EN+12!
DR	EN+12!
DW	INIT+14*, BLDLM1+7, EXIT+4!
EC	INIT+11*, BLDLM1+10, EXIT+4!
EDT	CHKDATE~, CHKDATE+13
EW	INIT+11*, BLDLM1+10, EXIT+4!
FLG1	EN1+1, ENP+10~, ENP+13*, EXIT+3
IC	INIT+10*, BLDLM1+6, EXIT+4!
IW	INIT+10*, BLDLM1+6, EXIT+4!
LINE	EXIT+5!
NODE	PLKUP+7~, PLKUP+8*, PLKUP+9, PLKUP+10
PC	INIT+13*, BLDLM1+8, EXIT+4!
PW	INIT+13*, BLDLM1+8, EXIT+4!
RESULT	EXIT+5!
RTN	EXIT+5!
SC	INIT+12*, BLDLM1+9, EXIT+4!
SCEN	SET+1~, EXIT+5!
SCEN("CLINIC"	SET+10
SCEN("DFN"	SET+10
SCEN("ENCOUNTER"	SET+10
SCINF	EXIT+5!
SCINF("DFN"	BLDA+17, BLDA+18, BLDA+20
SCSTAT	BLDA+12*, BLDA+14, BLDA+15, EXIT+5!
SCTEXT	EXIT+5!
SDB	EN+12!
SDBDT	EXIT+5!
SDCL	EXIT+5!
SDCLN	EN+11~, AGN+10, HDR+1~, HDR+8, HDR+9, EXIT+4!, CLKUP~, CLKUP+7
SDCNT	INIT+1~, INIT+18, BLD+9~, BLD+12, BLDA+11, BLDLM+6, BLDLM1+5*, BLDLM1+6, SET+4, SET+5 , SET+6, SET+7, SET+10, EXIT+4!
SDD	BLDLM+8*, BLDLM+9, BLDLM1+7, BLDLM1+9, BLDLM1+10, EXIT+5!
SDDA	EXIT+5!
SDDEL	BLDA+11, BLDA+14, BLDA+20, BLDA+21!, EXIT+5!
SDDT	EN+11~, AGN+7*, AGN+9, AGN+13, HDR+3, BLD+11, BLD+12
SDE	BLD+9~, BLD+12*, BLD+16, PLKUP+9, CLKUP+7
SDENDDT1	EXIT+4!
SDENTYP	EN+11~, AGN+1, AGN+3, AGN+9, AGN+13, HDR+5, HDR+7, HDR+10, BLD+13, BLD+14
SDEVAL	EN+11~, AGN+15*, HDR+11, BLD+18
SDFN	EN+11~, AGN+4*, HDR+6, BLD+13, EXIT+4!, PLKUP~, PLKUP+6
SDIEMM	EN+11~, EN1+2, ENP+10~, ENP+11
SDIV	EXIT+4!
SDN	BLDLM+7*, BLDLM+8, BLDLM+9, BLDLM1+7, BLDLM1+8, BLDLM1+9, EXIT+5!
SDNAME	BLDA+17*, BLDA+20, EXIT+4!
SDNR	EXIT+4!
SDOE	BLD+9~
SDOEDT	BLD+9~, BLD+12, BLD+16, BLD+17, BLD+18, BLDA~, BLDA+10, BLDA+20, EXIT+5!, PLKUP+9 , CLKUP+7
SDOEL	EXIT+5!
SDOK	EXIT+5!
SDPRDIV	EXIT+4!
SDVIEN	EXIT+5!
SDX	BLDLM1+4!, BLDLM1+5, BLDLM1+6, BLDLM1+7, BLDLM1+8, BLDLM1+9, BLDLM1+10, BLDLM1+11, EXIT+4!
SDXER	BLD+9~, BLD+18, PLKUP+4~, PLKUP+6, PLKUP+8, CLKUP+5~, CLKUP+6, CLKUP+7
SDXMT	BLD+9~, BLD+17*, BLD+18, BLDA~, BLDA+12, BLDA+20, SET~, SET+7, SET+9, EXIT+5!
SDXPTR	ENP~
SDXT	BLDLM+9*, BLDLM1~, BLDLM1+7, BLDLM1+9, BLDLM1+11, EXIT+5!
SDY	EN+11~, AGN, AGN+4, AGN+10, AGN+11, AGN+15
SW	INIT+12*, BLDLM1+9, EXIT+4!
U	AGN+6, AGN+7, AGN+11, HDR+3, HDR+6, HDR+11, INIT+10, INIT+11, INIT+12, INIT+13 , INIT+14, BLD+12, BLD+18, BLDA+17, BLDA+20, BLDLM1+7, BLDLM1+9, SET+10, PLKUP+8, PLKUP+9 , PLKUP+10, CLKUP+7, CHKDATE+11, CHKDATE+12
VA	EXIT+4!
VA("BID"	BLDA+20
>> VALMBCK	EXIT+1*
>> VALMCNT	INIT+18, BLD+12, SET+3*, SET+5, SET+10
VALMDDF	EXIT+6!
VALMDDF("DELETED"	INIT+14
VALMDDF("ENCOUNTER"	INIT+11
VALMDDF("INDEX"	INIT+10
VALMDDF("PATIENT"	INIT+13
VALMDDF("SSN"	INIT+12
VALMEVL	EN1+1!
>> VALMHDR(1	HDR+3*
>> VALMHDR(2	HDR+6, HDR+9, HDR+11*
>> VALMSG	HDR+12*
>> VALMWD	BLDLM1+5, BLDLM1+6, BLDLM1+7, BLDLM1+8, BLDLM1+9, BLDLM1+10
VAUTC	EN+11~, AGN+5, AGN+11, AGN+14*
VAUTC(	AGN+11*, HDR+9
VAUTC(0	HDR+8, BLD+14
VAUTD	EN+11~, AGN+17*
VAUTINI	EXIT+4!
X	EN+12!, AGN+6, AGN+7, INIT+10, INIT+11, INIT+12, INIT+13, INIT+14, SET~, SET+3 , SET+6, HELP+1*
XMIT	CLKUP+5~, CLKUP+7, CHKDATE~, CHKDATE+9, CHKDATE+10, CHKDATE+11, CHKDATE+12
XQORNOD	EN+12!, INIT+3!
XQORS	EN1+1!

Customize PDF page

Package: Scheduling