Routine: SCENIA1

Information

SCENIA1 ;ALB/SCK - INCOMPLETE ENCOUNTER ERROR DISPLAY PROTOCOLS ; 09 Oct 98 3:03 PM

Source Information

Source file <SCENIA1.m>

Call Graph

Call Graph Total: 16

Package	Total	Call Graph
Scheduling	7	(STREEVNT,XMITFLAG)^SCDXFU01 INIT^SCENIA0 EI^SCENIA2 EN^SCENIB0 $$VALIDATE^SCMSVUT2 $$OPENC^SCUTIE1 EN^SDCO6
Registration	6	A1^DG10 QUES^DGRPU1 REFRESH^VALM (FULL,PAUSE)^VALM1 EN^VALM2 RE^VALM4
VA Fileman	2	^DIC ^DIR
PCE Patient Care Encounter	1	$$INTV^PXAPI

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCENIA2

Entry Points

Name	Comments	DBIA/ICR reference
COQ	;
HDR	;
ERMSG(MSGN)	;
FLQ
MSG(SDTEXT,SDEXMT)	;
DEM	; Entry point for the SCENI PATIENT DEMOGRAPHICS protocol
DEMQ
EDI()	; Entry point for ENCOUNTER INFORMATION corrective action
FLG	; Entry point for Reflag Transmission protocol
LE	; Entry point patient load edit.
INTV()	; Entry point for correction logic for checkout errors
3	;;There was a problem trying to flag this entry for retransmission.
1	;;No correction logic has been defined for this error.
SETRFLG(SDXMT)	; ; Input ; SDXMT - Pointer to Transmission File, #409.73
2	;;Unable to execute Correction Logic.
5	;;The validator encountered a problem with this transmission entry.
4	;;This transmission entry is already flagged for transmission.
CEQ
CO	; Entry point for SCENI CHECKOUT INTERVIEW
VE	; View Expanded Error
CE	; Entry point for getting corrective action for error and executing it. ; Variables ; SCXER - Ptr to 409.76 ; SCEN - Ptr to 409.75 ; SDXMT - Ptr to 409.73
ADDEDIT(SDOEND)	;this is to edit add/edits
LEDT()	;
SELERM(FLG)	; Select Multiple entries
LEQ	;
REFLG()	; Entry point for reflag correction action
EXIT	;
DEM1()	; Entry point for correction logic

External References

Name	Field # of Occurrence
A1^DG10	LE+9
QUES^DGRPU1	DEM+9
^DIC	DEM+8, CO+8, LE+8
^DIR	MSG+2, ERMSG+5
$$INTV^PXAPI	ADDEDIT+3
STREEVNT^SCDXFU01	SETRFLG+13
XMITFLAG^SCDXFU01	SETRFLG+13
INIT^SCENIA0	SETRFLG+15
EI^SCENIA2	EDI+2
EN^SCENIB0	VE+5
$$VALIDATE^SCMSVUT2	CE+34, DEM+13, CO+26, LE+12, FLG+5
$$OPENC^SCUTIE1	CO+9
EN^SDCO6	CO+20
REFRESH^VALM	EXIT+1
FULL^VALM1	DEM+5, CO+7, CO+11, LE+6, SELERM+3, ERMSG+1
PAUSE^VALM1	CO+13
EN^VALM2	SELERM+5
RE^VALM4	SETRFLG+16

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?2,SCTEXT Line Location: CE+15
Function Call: WRITE	Prompt: !!,$G(^SD(409.76,$P(^SD(409.75,SCEN,0),U,2),1)) Line Location: CE+25
Function Call: WRITE	Prompt: !,"Performing Ambulatory Care Validation Checks..." Line Location: CE+33
Function Call: WRITE	Prompt: !,"Performing Ambulatory Care Validation Checks..." Line Location: DEM+12
Function Call: WRITE	Prompt: !!,$CHAR(7),"This is a deleted encounter. Checkout information cannot be changed!" Line Location: CO+12
Function Call: WRITE	Prompt: !,"Performing Ambulatory Care Validation Checks..." Line Location: CO+25
Function Call: WRITE	Prompt: !,"Performing Ambulatory Care Validation Checks." Line Location: LE+11
Function Call: WRITE	Prompt: !,"Performing Ambulatory Care Validation Checks..." Line Location: FLG+4
Function Call: WRITE	Prompt: $CHAR(7) Line Location: ERMSG+3
Function Call: WRITE	Prompt: !!?5,SCTEXT,! Line Location: ERMSG+4
Routine Call	DIC Line Location: DEM+8 CO+8 LE+8
Routine Call	DIR Line Location: MSG+2 ERMSG+5
Routine Call	VALM Line Location: EXIT+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SCE - [#409.68]	CO+16
^SD(409.73 - [#409.73]	CO+15, SETRFLG+10
^SD(409.75 - [#409.75]	CE+20, CE+21, CE+25
^SD(409.76 - [#409.76]	CE+21, CE+25
^TMP("SCENI COR"	CE+8!, CE+24, CE+29*, CE+40!
^TMP("SCENI DFN"	DEM+3, CO+5, LE+3
^TMP("SCENI ERR"	SELERM+9
^TMP("SCENI XMT"	CE+18, DEM+4, CO+6, LE+4, FLG+3

Label References

Name	Line Occurrences
$$SETRFLG	CE+36, DEM+16, CO+29, LE+15, FLG+7
ADDEDIT	CO+19
CEQ	CE+35, CE+37
CO	INTV+2
COQ	CO+10
DEM	DEM1+2
ERMSG	CE+22, CE+27, CE+35, CE+37, DEM+15, DEM+17, CO+28, CO+30, LE+14, LE+16 , FLG+6, FLG+8
FLQ	FLG+6, FLG+8
LE	LEDT+2
SELERM	CE+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	DEM+1~, DEM+3, DEM+8, DEM+9, CO+4~, CO+5, CO+8, LE+1~, LE+3*, LE+8
>> DGNEW	LE+5*
DIC	DEM+8~, CO+8~, LE+8~*
DIC(0	DEM+8, CO+8, LE+8*
DIR	MSG+2!, ERMSG+5!
DIR("A"	MSG+2, ERMSG+5
DIR(0	MSG+2, ERMSG+5
FLG	SELERM~, SELERM+4*, SELERM+5
MSGN	ERMSG~
>> RESULT	SETRFLG+9, SETRFLG+11, SETRFLG+14*, SETRFLG+17
RTN	CE+27, CE+34, CE+35, CE+36, CE+37, DEM+1~, DEM+13, DEM+15, DEM+16, DEM+17 , CO+26, CO+28, CO+29, CO+30, LE+12, LE+14, LE+15, LE+16, FLG+5, FLG+6 , FLG+7, FLG+8
>> SCCOR	CE+21*, CE+22, CE+24, CE+26, CE+29
SCEN	CE+6~, CE+17, CE+19, CE+20, CE+21, CE+25
SCENFLG	CO+1~, CO+17*
>> SCEPTR	SELERM+9*, SELERM+10
SCINF	CO+2!
>> SCSTAT	CO+9*, CO+10
>> SCTEXT	ERMSG+2*, ERMSG+4
SCXER	CE+6~, CE+11
SCXER(	CE+19, SELERM+10*
>> SDCOHDL	CO+17*
SDDT	CO+1~
SDEXMT	MSG~
SDHDR1	VE+1~, VE+2*
SDHDR2	VE+1~, VE+3*
>> SDN1	SELERM+7, SELERM+8, SELERM+9
SDOE	CO+1~, CO+15*, CO+16
SDOEND	CO+1~, CO+16*, CO+19, ADDEDIT~, ADDEDIT+2, ADDEDIT+3
>> SDOK	EDI+1, EDI+3, DEM1+1, DEM1+3, DEM+8, DEM+11, DEM+18, INTV+1, INTV+3, CO+8 , CO+24, CO+31, LEDT+1, LEDT+3, LE+8, LE+10, LE+17
SDTEXT	MSG~, MSG+1
SDXMT	CE+18, CE+34, CE+36, DEM+1~, DEM+4, DEM+13, DEM+16, CO+1~, CO+6, CO+9 , CO+15, CO+26, CO+29, LE+1~, LE+4, LE+12, LE+15, FLG+1~, FLG+3*, FLG+5 , FLG+7, SETRFLG~, SETRFLG+10, SETRFLG+13
>> STATUS	SETRFLG+10*, SETRFLG+11
U	CE+21, CE+25, CO+15, CO+19, ADDEDIT+2, ADDEDIT+3, SETRFLG+10
>> VALMBCK	VE+4, VE+6, CO+17, CO+22, LE+5, SELERM+6, ERMSG+6, EXIT+1
>> VALMHDR(1	VE+2
>> VALMHDR(2	VE+3
>> VALMI	SELERM+5*
VALMY	SELERM+1~, SELERM+6
VALMY(	SELERM+8
VAR	ADDEDIT+1~, ADDEDIT+3*
>> X	DEM+8, CO+8, LE+8*
>> XQORNOD(0	SELERM+5
>> Y	DEM+8, CO+8, LE+8

Marked Items

Name	Field # of Occurrence
$T(@MSGN	ERMSG+2

Customize PDF page

Package: Scheduling

Routine: SCENIA1

Call Graph Total: 16

Caller Graph Total: 1