Routine: SCENIA2

Information

SCENIA2 ;ALB/SCK - INCOMPLETE ENCOUNTER ERROR DISPLAY PROTOCOLS, CONT. ; OCT 21, 1998

Source Information

Source file <SCENIA2.m>

Call Graph

Call Graph Total: 12

Package	Total	Call Graph
Scheduling	7	($$FINDXMIT,STREEVNT,XMITFLAG)^SCDXFU01 ($$SETRFLG,ERMSG)^SCENIA1 $$VALIDATE^SCMSVUT2 $$OPENC^SCUTIE1 ($$HANDLE,AFTER,BEFORE,EVT,HDLKILL)^SDAMEVT LOGDATA^SDAPIAP $$ELAP^SDPCE
Registration	2	ELIG^VADPT (FULL,PAUSE)^VALM1
VA Fileman	2	(,FILE)^DIE ^DIR
Kernel	1	$$NOW^XLFDT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCENIA1

Entry Points

Name	Comments	DBIA/ICR reference
EI1
EIQ
A1WRT	;SD*560 write warning message, if applicable
EI	; Entry point for the SCENI ENCOUNTER INFORMATION protocol
A2WRT	;SD*560 display current Appointment Type per update.
RESYNC(STPL,SCELP,SDOE,SCOLD,SDFN)	;
A1WRT1	;SD*560 write warning message if Service Connected
SET(SDVAL,SDFLD,DA)	; Set updated entry into file #409.68.
SETDV(SDVAL,SDOE)
A1
EVT1(SDXMT,INF)	; Returns ifn for ^SC(clinic,"S",date,1,ifn)
UPDQ	;
SET1(SDVAL,SDOE,SEDT)
UPDENC	; Update Outpatient Encounter Option entry point
ONEELIG()	;

External References

Name	Field # of Occurrence
^DIE	SET1+7, SET1+8, SET1+14, SETDV+6, SETDV+11, RESYNC+22, RESYNC+30
FILE^DIE	SET+3
^DIR	EI1+1, EI1+14, EI1+26, EI1+48, UPDENC+10
$$FINDXMIT^SCDXFU01	A1+21, SET1+15, SETDV+12
STREEVNT^SCDXFU01	A1+22, SET1+16, SETDV+13
XMITFLAG^SCDXFU01	A1+23, SET1+17, SETDV+14
$$SETRFLG^SCENIA1	A1+8
ERMSG^SCENIA1	A1+7, A1+9
$$VALIDATE^SCMSVUT2	A1+6
$$OPENC^SCUTIE1	EI+11
$$HANDLE^SDAMEVT	EI+22
AFTER^SDAMEVT	A1+2
BEFORE^SDAMEVT	EI+34
EVT^SDAMEVT	A1+4
HDLKILL^SDAMEVT	EI+9
LOGDATA^SDAPIAP	A1+1
$$ELAP^SDPCE	EI1+35
ELIG^VADPT	ONEELIG+4
FULL^VALM1	EI+31
PAUSE^VALM1	EI+14, EI+18
$$NOW^XLFDT	SET1+5, SETDV+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"You do not have this security key, contact your supervisor." Line Location: EI+3
Function Call: WRITE	Prompt: !!,$C(7),"Entry "_$P(^SD(409.73,SDXMT,0),U),?5,$G(SCINF("ERROR")) Line Location: EI+13
Function Call: WRITE	Prompt: !!,$C(7),"This is a deleted entry. Encounter information cannot be changed." Line Location: EI+17
Function Call: WRITE	Prompt: !?5,$CHAR(7),"Another user is editing this entry" Line Location: EI+30
Function Call: WRITE	Prompt: ! Line Location: EI+33
Function Call: WRITE	Prompt: !!!,$C(7),"Current Appointment Type for Encounter: "_$S($G(SD1):$P(^SD(409.1,SD1,0),U),1:"") Line Location: EI1+22
Function Call: WRITE	Prompt: !,"Current Eligibility for Encounter: "_$S($G(SD1):$P(^DIC(8,SD1,0),U),1:""),! Line Location: EI1+24
Function Call: WRITE	Prompt: !,"The following are system defaults only.",! Line Location: EI1+33
Function Call: WRITE	Prompt: !,"Updating Completed." Line Location: A1+26
Function Call: WRITE	Prompt: !!,"The Visit entry associated with the selected encounter is NOT SERVICE CONNECTED." Line Location: A1WRT+1
Function Call: WRITE	Prompt: !,"You cannot change the Appointment Type to SERVICE CONNECTED.",! Line Location: A1WRT+2
Function Call: WRITE	Prompt: !!,"The Visit entry associated with the selected encounter is SERVICE CONNECTED." Line Location: A1WRT1+1
Function Call: WRITE	Prompt: !,"You cannot change the Appointment Type to non-SERVICE CONNECTED." Line Location: A1WRT1+2
Function Call: WRITE	Prompt: !,"Appointment Type has been updated to ",$P(^SD(409.1,$P(^SCE(SDOE,0),U,10),0),U,1),".",! Line Location: A2WRT+1
Function Call: WRITE	Prompt: !!,"???" Line Location: SET+4
Routine Call	DIE Line Location: SET1+7 SET1+8 SET1+14 SETDV+6 SETDV+11 RESYNC+22 RESYNC+30
Routine Call	DIE Line Location: SET+3
Routine Call	DIR Line Location: EI1+1 EI1+14 EI1+26 EI1+48 UPDENC+10

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^SC - [#44]	Classic Fileman Calls
^AUPNVSIT - [#9000010]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVSIT - [#9000010]	EI1+29, A1+13, A1+15
^AUPNVSIT("AD"	SET1+10, SETDV+8
^DG(40.8 - [#40.8]	SETDV+3
^DIC(40.7 - [#40.7]	EI1+3, EI1+6
^DIC(8 - [#8]	EI1+24, EI1+50
^DPT - [#2]	RESYNC+26, RESYNC+29, RESYNC+31
^SC - [#44]	EVT1+3, EVT1+4, RESYNC+17, RESYNC+18, RESYNC+21, RESYNC+23
^SCE - [#409.68]	EI+22, EI+29, EI+36, EI1+12, EI1+21, EI1+23, EI1+29, A1+13, A1+15, A1+16 , A1+27, A2WRT+1, SET1+4, SETDV+2, RESYNC+10, RESYNC+11, RESYNC+12, RESYNC+13, RESYNC+16
^SCE("APAR"	RESYNC+9
^SD(409.1 - [#409.1]	EI1+22, A2WRT+1
^SD(409.73 - [#409.73]	EI+13, EI+21, UPDENC+13
^TMP("DIERR"	SET+4, SET+5!
^TMP("SCENI EDIN"	SET+2*, SET+5!
^TMP("SCENI XMT"	EI+10, UPDENC+5!, UPDENC+14*
^XUSEC("SCENI ENCOUNTER EDIT"	EI+2

Label References

Name	Line Occurrences
$$EVT1	EI+22
$$ONEELIG	EI1+38
A1	EI1+14, EI1+26, EI1+29
A1WRT	A1+13, A1+17
A1WRT1	A1+15
A2WRT	A1+13, A1+15
EI	UPDENC+15
EI1	EI1+3, EI1+6
EIQ	EI+12, EI+16, EI+29, EI1+1, A1+5
RESYNC	A1
SET	EI1+9, EI1+16, EI1+53, EI1+56, RESYNC+10, RESYNC+11, RESYNC+12, RESYNC+13
SET1	EI1+10, EI1+55
SETDV	EI1+17
UPDQ	UPDENC+10

Name	Field # of Occurrence
^(0	EI+36, EI1+3, EI1+6, RESYNC+16, RESYNC+26
^(800	EI1+29, A1+13, A1+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EI1, EI1+13, SET~, SET+2, SET1+6, SET1+12!, SET1+13, SET1+18!, SETDV+5, SETDV+9! , SETDV+10, SETDV+15!, RESYNC+19, RESYNC+22!, RESYNC+27, RESYNC+30!
DA(1	RESYNC+19, RESYNC+27
DA(2	RESYNC+19*
DFN	EI+20*, EI+26, EI+34, EI1+35, A1, A1+2, UPDENC+1~, UPDQ+1!
DIE	SET1+6, SET1+18!, SETDV+5, SETDV+15!, RESYNC+19, RESYNC+22!, RESYNC+27, RESYNC+30!
>> DILOCKTM	RESYNC+21, RESYNC+29
DIR	EI1+1!, EI1+14!, EI1+26!, EI1+41~, UPDENC+10!
DIR("?"	EI1+45, EI1+46, EI1+47, UPDENC+8
DIR("??"	UPDENC+9*
DIR("A"	EI1+26, EI1+43, EI1+44, UPDENC+7
DIR("B"	EI1+26, EI1+42
DIR("S"	UPDENC+6*
DIR(0	EI1, EI1+13, EI1+26, EI1+42, UPDENC+6*
DIRUT	EI+32!, EI1+1, EI1+14, EI1+26, UPDENC+10
DR	SET1+7, SET1+8, SET1+12!, SET1+14, SET1+18!, SETDV+6, SETDV+9!, SETDV+11, SETDV+15!, RESYNC+20 , RESYNC+22!, RESYNC+28*, RESYNC+30!
DUZ	EI+2
INF	EVT1~
INF("CLINIC"	EVT1+3, EVT1+4
INF("DFN"	EVT1+4
INF("ENCOUNTER"	EVT1+3, EVT1+4
OLDAT	EI1+21~*, A1+11, A1+12, A1+14, A1+16, A1+17, A1+20, A1+24!, EIQ!
OLDDV	EI1+12!*, EI1+17, EI1+18!
OLDELG	EI1+23!*, EI1+55, EIQ!
OLDSC	EI+5~, EI+36!*, EI1+10, A1, EIQ!
PARENT	EI+8!
POP	A1+11, A1+12, A1+13, A1+14, A1+15*, A1+18!, EIQ!
>> RTN	A1+5, A1+6, A1+7, A1+8, A1+9
SCELAP	EI+5~, EI1+35, EI1+49, EI1+50*, EI1+53, EI1+55, EI1+56, A1, A1+11, A1+12 , A1+14, A1+17, A1+20
SCELP	RESYNC~, RESYNC+20, RESYNC+28
SCEN	EI+5~
SCINF	EI+5~, EI+22
SCINF("CLINIC"	EI+26, EI+34, EI1+35, A1+2
SCINF("DFN"	EI+20
SCINF("ENCOUNTER"	EI+26, EI+34, A1+2
SCINF("ERROR"	EI+13
SCOLD	RESYNC~, RESYNC+13
SCSTAT	EI+5~, EI+11*, EI+12, EI+16
SCSTPLC	EI+5~, EI1+8, EI1+15, A1
SCXER	EI+5~
SD1	EI1+21~, EI1+22, EI1+23!, EI1+24, EI1+40, EI1+50
SD408	SETDV+15!
SD53P158	EI+1~, EI+31, UPDENC+2~
SDATA	EI+5~, EI+26*, EI+34, A1+2, A1+4
SDCDT	RESYNC+1~
>> SDCLN	RESYNC+16*, RESYNC+17, RESYNC+18, RESYNC+19, RESYNC+21, RESYNC+23
SDCVST	SET1+3~, SET1+10, SET1+13, SETDV+1~, SETDV+8, SETDV+10
SDDA	EVT1+1~, EVT1+3, EVT1+4, EVT1+5, EI+5~, EI+22, EI+25, EI+26, EI+34, A1+2
SDEDT	EI+36!*, EI1+3, EI1+6
SDEVT	EI+5~
SDFLAG	EI+6~, EI+25, EI1+10, EI1+55, A1+20, EIQ!
SDFLD	SET~, SET+2
SDFN	RESYNC~, RESYNC+18, RESYNC+26, RESYNC+27, RESYNC+29, RESYNC+31
SDHDL	EI+5~, EI+22*, EI+23, EI+34, A1+2, A1+4
SDLOG	EI+5~, A1+1
>> SDN1	RESYNC+17*, RESYNC+18, RESYNC+19, RESYNC+21, RESYNC+23
SDNDV	SETDV+1~, SETDV+3*
SDOE	EI+5~, EI+21, EI+22, EI+29, EI+36, EI1, EI1+9, EI1+10, EI1+12, EI1+13 , EI1+16, EI1+17, EI1+21, EI1+23, EI1+29, EI1+53, EI1+55, EI1+56, A1, A1+1 , A1+13, A1+15, A1+16, A1+21, A1+27, A2WRT+1, SET1~, SET1+4, SET1+15, SETDV~ , SETDV+2, SETDV+12, UPDENC+1~, UPDENC+12, UPDENC+13, RESYNC~, RESYNC+9, RESYNC+10, RESYNC+11, RESYNC+12 , RESYNC+13, RESYNC+16, RESYNC+26
SDOEC	RESYNC+1~, RESYNC+8, RESYNC+9, RESYNC+10, RESYNC+11, RESYNC+12, RESYNC+13
>> SDOEDT	RESYNC+16*, RESYNC+17, RESYNC+18, RESYNC+19, RESYNC+21, RESYNC+23, RESYNC+26, RESYNC+27, RESYNC+29, RESYNC+31
SDOK	A1+5, A1+25, UPDENC+1~, UPDENC+4
SDPRIM	EI1+37~, EI1+38*, EI1+40, EI1+43, EI1+49
SDQUIT	EI+5~, EI+27*
SDVAL	SET~, SET+2, SET1~, SETDV~, SETDV+3
SDVST	EI+6~, EI1+29, SET1+3~, SET1+4, SET1+6, SET1+10, SETDV+1~, SETDV+2, SETDV+5, SETDV+8
SDXMT	EVT1~, EI+5~, EI+10, EI+11, EI+13, EI+21, EI+22, A1+6, A1+8, UPDENC+1~ , UPDENC+13, UPDENC+14
SEDT	SET1~, SET1+7, SET1+8, SET1+11
SINDX	EVT1+1~, EVT1+3*, EVT1+4
STPL	RESYNC~
U	EI+13, EI+21, EI+22, EI+36, EI1+3, EI1+6, EI1+8, EI1+12, EI1+15, EI1+21 , EI1+22, EI1+23, EI1+24, EI1+29, EI1+43, EI1+49, EI1+50, EI1+56, A1+11, A1+12 , A1+13, A1+14, A1+15, A1+16, A1+17, A1+20, A2WRT+1, SET1+4, SETDV+2, SETDV+3 , RESYNC+10, RESYNC+11, RESYNC+12, RESYNC+13, RESYNC+16, RESYNC+18, RESYNC+20, RESYNC+26, RESYNC+28
VAEL	ONEELIG+3~
VAEL(1	ONEELIG+5
VDT	SET1+3~, SET1+5, SETDV+1~, SETDV+4
VISIT	EI+8!
X	SET1+18!
XMIT	A1+21, A1+22, A1+23, A1+24!, SET1+15, SET1+16, SET1+17, SET1+18!, SETDV+12*, SETDV+13 , SETDV+14, SETDV+15!
>> Y	EI1+1, EI1+3, EI1+6, EI1+8, EI1+9, EI1+10, EI1+14, EI1+15, EI1+16, EI1+17 , EI1+26, EI1+49, UPDENC+12

Customize PDF page

Package: Scheduling

Routine: SCENIA2

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: