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

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 ;

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