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

Package: Scheduling

Routine: SDAMOWP


Information

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

Source Information

Source file <SDAMOWP.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; -- print arrays
; var defined:
; SDSUB2 := top level sort after Division (clinic,stop cd,patient)
; SDSUB3 := next level sort
PRINTQ
SORT(DIV,SORT) ; sort
SORTQ
PRT() ; -- print appt
; return: continue processing [ 1|yes 0|no ]
; ^TMP("SDWAIT") nodes setup:
PRTQ
CHECK ; check to see if header should be printed
PAUSE ; pause for CRT
SET(SORT,LEVEL1,LEVEL2,LEVEL3,LEVEL4) ;
TOT ; Totals Print
TOTQ
HRS(MIN) ;Convert minutes to hours

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,SDASH
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,$E($P($G(^DPT(DFN,0)),U,1),1,17),?20,VA("BID"),?26,$S("^3^4^5^"[(U_SDSORT_U):$E(SDCLN,1,20),1:"")
  • Line Location: PRT+8
Function Call: WRITE
  • Prompt: ?46,$E($$FDTTM^VALM1($P(SDATA,U,6)),1,14),?62,$E($$FDTTM^VALM1(SDATE),1,14),?78,$$HRS($P(SDATA,U,8))
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: ?92,$E($$FDTTM^VALM1($P(SDATA,U,7)),1,14),?109,$$HRS($P(SDATA,U,9)),?120,$$HRS($P(SDATA,U,10))
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !,SDASH1,!,?62,"Total:",?78,$$HRS(TOTAL2),?109,$$HRS(TOTAL3),?120,$$HRS(TOTAL4),!,?60,"Average:",?78,$$HRS($P((TOTAL2/TOTAL1),".")),?109,$$HRS($P((TOTAL3/TOTAL1),".")),?120,$$HRS($P((TOTAL4/TOTAL1),"."))
  • Line Location: TOT+2
Info |  Source |  Entry Points |  Interaction Calls