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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDAM1

Package: Scheduling

Routine: SDAM1


Information

SDAM1 ;MJK/ALB - Appt Mgt (Patient);Apr 23 1999

Source Information

Source file <SDAM1.m>

Entry Points

Name Comments DBIA/ICR reference
INIT ; -- get init pat appt data
; input: DFN := ifn of pat
; output: ^TMP("SDAM" := appt array
BLD ; -- scan apts
  • ICR #1317
    • Status: Retired
    • Usage: Private
    BLD1 ; -- build array
    BLD1Q
    ANC() ; -- set ancillary info
    SET(X) ;
    CHK(DFN,SDT,SDCL,SDATA,SDAMLIST,SDSTAT,SDDA) ; -- does appt meet criteria
    ; input: DFN := ifn of pat.
    ; SDT := appt d/t
    ; SDCL := ifn of clinic
    ; SDATA := 0th node of pat appt entry
    ; SDAMLIST := list definition
    ; SDSTAT := appt status data from $$STATUS call
    ; SDDA := ifn for ^SC(clinic,"S",date,1,ifn) {optional}
    ; output: [returned] := meets criteria for list [0 - no | 1 - yes ]
    CHKQ
    STATUS(DFN,SDT,SDCL,SDATA,SDDA) ; -- return appt status
    ; input: DFN := ifn of pat.
    ; SDT := appt d/t
    ; SDCL := ifn of clinic
    ; SDATA := 0th node of pat appt entry
    ; SDDA := ifn for ^SC(clinic,"S",date,1,ifn) {optional}
    ; output: [returned] := appt status ifn ^ status name ^ print status ^
    ; check in d/t ^ check out d/t ^ adm mvt ifn
  • ICR #659
    • Status: Retired
    • Usage: Private
  • ICR #1103
    • Status: Retired
    • Usage: Private
  • ICR #2850
    • Status: Retired
    • Usage: Private
    STATUSQ
    LOWER(X) ; convert to lowercase ; same as LOWER^VALM1 ; here for speed
    TIME(X) ; -- format time only := hr:min

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SCE - [#409.68] GET1^DIQ
    Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call