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 |  Marked Items |  All
Print Page as PDF
Routine: SCENIA1

Package: Scheduling

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