Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls