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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SCENIA2

Package: Scheduling

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

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  
VA FileMan 2 (,FILE)^DIE  ^DIR  
Kernel 1 $$NOW^XLFDT  
List Manager 1 (FULL,PAUSE)^VALM1  
Registration 1 ELIG^VADPT  

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

Package Total Caller Graph
Scheduling 3 SCENI ENCOUNTER INFORMATION  SCENI OP ENCOUNTER EDIT  SCENIA1  
Kernel 1 ^ORD(101  

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

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

Naked Globals

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