Routine: SCENI01

Information

SCENI01 ;ALB/SCK - INCOMPLETE ENCOUNTER MGMT MAIN LM DISPLAY PROTOCOLS; 07-MAY-1997 ; 07 May 99 9:45 PM

Source file <SCENI01.m>

Package	Total	Call Graph
Registration	4	(EN,REFRESH)^VALM (FULL,PAUSE)^VALM1 SELECT^VALM10 EN^VALM2
Scheduling	4	(HDR,INIT)^SCENI0 EN^SCENIA0 $$OPENC^SCUTIE1 SEL^SDAMEP
VA Fileman	2	WAIT^DICD ^DIR
Kernel	1	($$DT,$$FMADD,$$FMTE)^XLFDT

Package	Total	Caller Graph
Scheduling	2	SCENI0 SCRPI01

Name	Comments	DBIA/ICR reference
ASKDT(SDT)	; Ask for begin and end date for search ; Variable Input ; SDT - Returns Begin date^End date
SELXENC()	; Select transmitted encounter to display errors if no encounter passed in.
EXPQ
CPAT	; Change Patient
CDT	; Change Date range
DSPLYER	; Display transmission errors
EXIT	;
CER	; Change Error Code
EXP	; Expand enounter using the Appointment Management Expand protocol. ; This protocol uses the SDAMIDX Tmp global, so if this global already ; exisits (IEMM LM being called from inside Apt. Manager) save off the ; existing global before proceeding, and restore it before returning.
DTQ
CCLN	; Change Clinic

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Date Range for Encounters" Line Location: ASKDT+14
Function Call: WRITE	Prompt: ! Line Location: CCLN+4
Function Call: WRITE	Prompt: !,"Clinic has not been changed" Line Location: CCLN+10
Function Call: WRITE	Prompt: ! Line Location: CPAT+3
Function Call: WRITE	Prompt: !,"Patient was not changed." Line Location: CPAT+8
Function Call: WRITE	Prompt: !,"Date range has not been changed" Line Location: CDT+5
Function Call: WRITE	Prompt: ! Line Location: CER+3
Function Call: WRITE	Prompt: !,"Error Code has not been changed" Line Location: CER+8
Function Call: WRITE	Prompt: !!,$C(7),"This encounter is not an appointment, and cannot be expanded." Line Location: EXP+18
Function Call: WRITE	Prompt: !,"Press any key to continue..." Line Location: EXP+19
Function Call: WRITE	Prompt: ! Line Location: EXP+22
Routine Call	VALM Line Location: EXP+22
Routine Call	DIR Line Location: ASKDT+18 ASKDT+25 CCLN+8 CPAT+6 CER+6 EXP+20
Routine Call	VALM Line Location: EXIT+1

Name	Line Occurrences (* Changed, ! Killed)
^DG(43 - [#43]	ASKDT+11
^SC - [#44]	CCLN+13
^TMP("SCENI TMP"	EXP+5!, EXP+7*, EXPQ+1, EXPQ+2, EXPQ+3!
^TMP("SCENI"	EXP+16, SELXENC+7
^TMP("SCENIDX"	EXP+10
^TMP("SDAMEP"	EXP+11!
^TMP("SDAMIDX"	EXP+6, EXP+7, EXP+9!, EXP+10, EXPQ!, EXPQ+2
^TMP("SDCOIDX"	EXPQ!

Name	Field # of Occurrence
DIR	ASKDT+18!, ASKDT+20!, ASKDT+25!, CCLN+8!, CPAT+6!, CER+6!, EXP+20!
DIR("?"	ASKDT+16*
DIR("A"	ASKDT+15, ASKDT+23, CCLN+6, CPAT+5, CER+5*
DIR("B"	ASKDT+17, ASKDT+24
DIR("S"	CCLN+7*
DIR(0	ASKDT+15, ASKDT+23, CCLN+6, CPAT+4, CER+4, EXP+20
DIRUT	ASKDT+19, ASKDT+20!, ASKDT+26, CCLN+1!, CCLN+9, CPAT+7, CER+7
LINENBR	DSPLYER+3*, DSPLYER+8, DSPLYER+9!
SCINF	EXP+14~
SCINF("AE"	EXP+17
SCOK	CDT+1~
>> SDBDT	ASKDT+12*, ASKDT+17
SDBT	EXIT+2!
>> SDDT	CDT+4
SDEDT	EXIT+2!
>> SDENTYP	CCLN+13, CPAT+11, CER+10*
>> SDERR	EXP+13
>> SDEVAL	CER+10*
SDFN	CCLN+12!, CPAT+11*
SDN1	SELXENC+6*, EXIT+2!
SDN2	SELXENC+6*, SELXENC+7, SELXENC+8, EXIT+2!
SDPT	EXP+14~
SDSC	EXP+14~
SDT	ASKDT~, ASKDT+9, ASKDT+19, ASKDT+21, ASKDT+26, ASKDT+27, DTQ+1*, DTQ+2
SDT1	ASKDT+8~, ASKDT+9*, DTQ+1, DTQ+2
>> SDW	EXP+13, EXP+16
SDWIDTH	EXP+14~
SDXMT	EXP+14~, EXP+16*, EXP+17
SDXPTR	DSPLYER+1~, DSPLYER+4, DSPLYER+9!, SELXENC+7*
U	ASKDT+11, ASKDT+27, CCLN+13
VALMAT	SELXENC+1~
>> VALMBCK	CCLN+3, CPAT+2, CDT+3, CER+2, DSPLYER+5, DSPLYER+7, EXP+12, EXP+23, SELXENC+5, EXIT+1
VALMI	SELXENC+1~, SELXENC+4*
VALMY	SELXENC+1~, SELXENC+5
VALMY(	SELXENC+6
VAUTC	CCLN+12!, CCLN+13, CPAT+10!, CPAT+11
VAUTC(	CCLN+13*
>> VAUTNI	CCLN+5*
X	ASKDT+8~, ASKDT+11, ASKDT+12, DTQ, DTQ+1, DTQ+2, DTQ+3
>> XQORNOD(0	SELXENC+4
>> Y	ASKDT+21, ASKDT+27, CCLN+13, CPAT+11, CER+10