Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SCENI01

Package: Scheduling

Routine: SCENI01


Information

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

Source Information

Source file <SCENI01.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
List Manager 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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 10

Package Total Caller Graph
Scheduling 9 SCENI CHANGE CLINIC  SCENI CHANGE DATE RANGE  SCENI CHANGE DIVISION  SCENI CHANGE ERROR CODE  SCENI CHANGE PATIENT  SCENI DISPLAY ERRORS  SCENI EXPAND ENCOUNTER  SCENI0  
SCRPI01  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
ASKDT(SDT) ; Ask for begin and end date for search
; Variable Input
; SDT - Returns Begin date^End date
DTQ
CCLN ; Change Clinic
CPAT ; Change Patient
CDT ; Change Date range
CER ; Change Error Code
DSPLYER ; Display transmission errors
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.
EXPQ
SELXENC() ; Select transmitted encounter to display errors if no encounter passed in.
EXIT ;

External References

Name Field # of Occurrence
WAIT^DICD EXP+22
^DIR ASKDT+18, ASKDT+25, CCLN+8, CPAT+6, CER+6, EXP+20
HDR^SCENI0 CCLN+14, CPAT+12, CDT+7, CER+11
INIT^SCENI0 CCLN+14, CPAT+12, CDT+7, CER+11
EN^SCENIA0 DSPLYER+6
$$OPENC^SCUTIE1 EXP+17
SEL^SDAMEP EXP+13
EN^VALM EXP+22
REFRESH^VALM EXIT+1
FULL^VALM1 CCLN+2, CPAT+1, CDT+2, CER+1, SELXENC+3
PAUSE^VALM1 CCLN+11, CPAT+9, CDT+6, CER+9
SELECT^VALM10 DSPLYER+8
EN^VALM2 SELXENC+4
$$DT^XLFDT ASKDT+12
$$FMADD^XLFDT ASKDT+12
$$FMTE^XLFDT ASKDT+17

Interaction Calls

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
  • DIR
  • Line Location:
    • ASKDT+18
    • ASKDT+25
    • CCLN+8
    • CPAT+6
    • CER+6
    • EXP+20
Routine Call
  • VALM
  • Line Location:
    • EXP+22
Routine Call
  • VALM
  • Line Location:
    • EXIT+1

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
$$ASKDT CDT+4
$$SELXENC DSPLYER+3
DTQ ASKDT+19, ASKDT+26
EXPQ EXP+13, EXP+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All