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 |  FileMan Files Accessed Via FileMan Db Call
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>

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() ;

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call