SDAM1 ;MJK/ALB - Appt Mgt (Patient);Apr 23 1999
Source file <SDAM1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INIT | ; -- get init pat appt data
; input: DFN := ifn of pat ; output: ^TMP("SDAM" := appt array |
|
BLD | ; -- scan apts
|
|
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 |
|
STATUSQ | ||
LOWER(X) | ; convert to lowercase ; same as LOWER^VALM1 ; here for speed
|
|
TIME(X) | ; -- format time only := hr:min
|
FileNo | Call Tags |
---|---|
^SCE - [#409.68] | GET1^DIQ |