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

Package: Scheduling

Routine: SDAMOWP1


Information

SDAMOWP1 ;ALB/CAW - Appointment Waiting Time Print Routine ; 12/1/91

Source Information

Source file <SDAMOWP1.m>

Entry Points

Name Comments DBIA/ICR reference
HDR ; -- print header
HDR1
HDRQ
HDRD ; Print header with dates
HDRDQ
HDRT(SORT) ; Print header for totals
TOT(WHAT,LEVEL1,DIV) ; Print totals
TOTQ
SORT1 ; -- hdr labels for sort
TOTP(SORT,DIV,LEVEL1) ; Print totals
CHECK(SORT) ; check to see if header should be printed
LEGEND ; Print legend on bottom
LEGENDQ
NODIV ; Print divisions when no appts found
NODIVQ
NO ; Print stop code or clinic when no appts found
NOQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?70," Clinic: ",$E(LEVEL1,1,23)
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,?70,"Stop Code: ",$E(LEVEL1,1,23)
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"Sorted By: ",$P($T(SORT1+SDSORT),";;",2)
  • Line Location: HDR1+0
Function Call: WRITE
  • Prompt: ?70," Total: ",+^("PRIM")
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: ?70," Total: ",+^("DIV")
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: HDR1+4
Function Call: WRITE
  • Prompt: !,"Patient",?20,"ID",?26,$S("^3^4^5^"[(U_SDSORT_U):"Clinic",1:""),?46,"Check-In",?62,"Appointment",?78,"Elapsed",?92,"Check-Out",?109,"Elapsed",?120,"Total"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,?46,"Date/Time",?62,"Date/Time",?78,"Time",?92,"Date/Time",?109,"Time",?120,"Time",!,SDASH
  • Line Location: HDR1+6
Function Call: WRITE
  • Prompt: @IOF,"Appointment Waiting Time Report",?51,"Report Date: ",$P($$NOW^VALM1,":",1,2)
  • Line Location: HDRD+2
Function Call: WRITE
  • Prompt: ?108,"Page: ",SDPAGE
  • Line Location: HDRD+3
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: HDRD+4
Function Call: WRITE
  • Prompt: !,"Dates : ",$$FDATE^VALM1(SDBEG)," to ",$$FDATE^VALM1(SDEND)
  • Line Location: HDRD+6
Function Call: WRITE
  • Prompt: ?70," Division: ",SDDIVNAM
  • Line Location: HDRD+9
Function Call: WRITE
  • Prompt: !,$S("^1^2^"[(U_SRT_U):"Clinic","^3^4^"[(U_SRT_U):"Stop Code",1:"Division"),?40,"Appointments",?56,"Total CI Time",?71,"Total CO Time",?86,"Average Pre",?101,"Average Post",?116,"Average Total"
  • Line Location: HDRT+3
Function Call: WRITE
  • Prompt: !,?86,"Waiting Time",?101,"Waiting Time",?116,"Waiting Time"
  • Line Location: HDRT+4
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: HDRT+5
Function Call: WRITE
  • Prompt: !,$G(LEVEL1)
  • Line Location: TOT+7
Function Call: WRITE
  • Prompt: ?40,TOTAL1
  • Line Location: TOT+8
Function Call: WRITE
  • Prompt: ?56,$$HRS^SDAMOWP(TOTAL2)
  • Line Location: TOT+9
Function Call: WRITE
  • Prompt: ?71,$$HRS^SDAMOWP(TOTAL3)
  • Line Location: TOT+10
Function Call: WRITE
  • Prompt: ?86,$$HRS^SDAMOWP($P((TOTAL2/TOTAL1),"."))
  • Line Location: TOT+11
Function Call: WRITE
  • Prompt: ?101,$$HRS^SDAMOWP($P((TOTAL3/TOTAL1),"."))
  • Line Location: TOT+12
Function Call: WRITE
  • Prompt: ?116,$$HRS^SDAMOWP($P((TOTAL4/TOTAL1),"."))
  • Line Location: TOT+13
Function Call: WRITE
  • Prompt: !,SDASH1
  • Line Location: TOTP+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !!,?5,"o Check-In Date/Time - Time the patient first checks in at the clinic reception area."
  • Line Location: LEGEND+2
Function Call: WRITE
  • Prompt: !,?5,"o Appointment Date/Time - Time of the veteran's scheduled appointment."
  • Line Location: LEGEND+3
Function Call: WRITE
  • Prompt: !,?5,"o Elapsed Time(s) - 1. The elapsed period of time from the patient checking in at the clinic to the appointment time. "
  • Line Location: LEGEND+4
Function Call: WRITE
  • Prompt: !,?5," (Appointment time minus Check-In time)"
  • Line Location: LEGEND+5
Function Call: WRITE
  • Prompt: !,?5,"o 2. The elapsed period of time from the appointment time to the time the patient checks out."
  • Line Location: LEGEND+6
Function Call: WRITE
  • Prompt: !,?5," (Check-Out time minus Appointment Time)"
  • Line Location: LEGEND+7
Function Call: WRITE
  • Prompt: !,?5,"o Total Waiting Time - The elapsed period of time from the patient's check-in date/time to the time leaving the clinic"
  • Line Location: LEGEND+8
Function Call: WRITE
  • Prompt: !,?5," after service is completed. (Check-Out time minus Check-In time)"
  • Line Location: LEGEND+9
Function Call: WRITE
  • Prompt: !,?70,"Division(s): "
  • Line Location: NODIV+2
Function Call: WRITE
  • Prompt: "All"
  • Line Location: NODIV+3
Function Call: WRITE
  • Prompt: ?83,VAUTD(DIV),!
  • Line Location: NODIV+4
Function Call: WRITE
  • Prompt: !,?72,$S(SDSORT=1!(SDSORT=2):"Clinic(s): ",SDSORT=3!(SDSORT=4):"Stop Code(s): ",1:"")
  • Line Location: NO+2
Function Call: WRITE
  • Prompt: "All"
  • Line Location: NO+3
Function Call: WRITE
  • Prompt: ?83,VAUTC(SDWHAT),!
  • Line Location: NO+4
Function Call: WRITE
  • Prompt: "All"
  • Line Location: NO+5
Function Call: WRITE
  • Prompt: ?87,VAUTS(SDWHAT),!
  • Line Location: NO+6
Info |  Source |  Entry Points |  Interaction Calls