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

Package: Scheduling

Routine: SDAMOW1


Information

SDAMOW1 ;ALB/CAW - Waiting Time Report (con't) ; 8-NOV-93

Source Information

Source file <SDAMOW1.m>

Entry Points

Name Comments DBIA/ICR reference
START ; -- entry point to start
STARTQ
INIT() ; init variables
BUILD ;build tmp array with line values & summary totals
PROCAPPT ;process each appointment
; INPUT:
; SDOPEINE - INE of Outpatient Encounter File #409.68
; SDT - Appointment Date/Time
; OUTPUT:
; DFN - IEN of Patient File #2
; SDCLIN - Clinic, Pointer to Hospital Location File #44
; SDSTOP - Stop Code Number Pointer to Clinic Stop #40.7
; SDDIV - Division, Pointer to MC Division File #40.8
; SDCHKIN - Checkin Date/Time in FM format
; SDCHKOUT - Checkout Date/Time "
QTPRAPP
DISP() ; -- display selection choices
; input: all selection variables
; output: none
; return: displayed w/o mishap [ 1|yes 0|no]
DISPQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: $$LINE^SDAMOW("Report Specifications")
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !!," Appointment Dates: ",$$FDATE^VALM1(SDBEG)," to ",$$FDATE^VALM1(SDEND)
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !!?15,"Divisions",?55,$S(SDSORT=1!(SDSORT=2):"Clinics",SDSORT=5:"Patients",1:"Stop Codes")
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !?15,"---------",?55,"----------",!
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: ?15,$S(D:VAUTD(D),1:D)
  • Line Location: DISP+12
Function Call: WRITE
  • Prompt: ?55,$S(C:VAUTC(C),1:C)
  • Line Location: DISP+13
Function Call: WRITE
  • Prompt: ?55,$S(S:VAUTS(S),1:S)
  • Line Location: DISP+14
Function Call: WRITE
  • Prompt: !,$$LINE^SDAMOW("")
  • Line Location: DISP+16
Info |  Source |  Entry Points |  Interaction Calls