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

Package: Scheduling

Routine: SDAM2


Information

SDAM2 ;ALB/MJK - Appt Mgt (cont) ;JAN 15, 2016

Source Information

Source file <SDAM2.m>

Entry Points

Name Comments DBIA/ICR reference
CI ; -- protocol SDAM APPT CHECK IN entry pt
; input: VALMY := array entries
ONE(DFN,SDCL,SDT,SDDA,SDASK,SDAMCIDT) ; -- check in one appt
; input: DFN := ifn of patient
; SDCL := clinic#
; SDT := appt d/t
; SDDA := ifn in ^SC multiple or null
; SDASK := ask d/t of ci always [1|yes or 0|no]
; SDAMCIDT := ci date/time [optional]
ONEQ
FIND(DFN,SDT,SDCL) ; -- return appt ifn for pat
; input: DFN := ifn of pat.
; SDT := appt d/t
; SDCL := ifn of clinic
; output: [returned] := ifn if pat has appt on date/time
  • ICR #5792
    • Status: Active
    • Usage: Private
  • ICR #6181
    • Status: Withdrawn
    • Usage: Private
    UPD(TEXT,FLD,LINE,SAVE) ; -- update data for screen
    MAKE ; -- make appt action
    WI ; -- walk-in visit action
    EWLCHK ;check if patient has any open EWL entries (SD/372)
    DATE ; -- change date range
    DATEQ
    INP(DFN,VDATE) ; -- determine inpatient status ; dom is not an inpatient appt
  • ICR #1582
    • Status: Retired
    • Usage: Controlled Subscription
  • ICR #6054
    • Status: Active
    • Usage: Private
    INPQ
    VALID(DFN,SDCL,SDT,SDDA) ; -- return valid appt.
    ; **NOTE: For speed consideration the ^SC and ^DPT nodes must be
    ; check to see they exist prior to calling this entry point.
    ; input: DFN := ifn of pat.
    ; SDT := appt d/t
    ; SDCL := ifn of clinic
    ; SDDA := ifn of appt
    ; output: [returned] := 1 for valid appt., 0 for not valid

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !!,*7,"You cannot check in this appointment."
    • Line Location: ONE+10
    Function Call: WRITE
    • Prompt: !!,*7,"You cannot check in this appointment."
    • Line Location: ONE+13
    Function Call: WRITE
    • Prompt: !!,*7,"It is too soon to check in this appointment."
    • Line Location: ONE+16
    Function Call: WRITE
    • Prompt: !?8,*7,"...appointment has not been checked in"
    • Line Location: ONE+36
    Function Call: WRITE
    • Prompt: !?8,"...checked in ",$$FTIME^VALM1($P(SDATA("AFTER","STATUS"),U,4))
    • Line Location: ONE+38
    Function Call: WRITE
    • Prompt: !!,VALMHDR(1)
    • Line Location: MAKE+3
    Function Call: WRITE
    • Prompt: !,"MUST ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",!
    • Line Location: EWLCHK+17
    Function Call: WRITE
    • Prompt: !!,"Date range was not changed."
    • Line Location: DATE+2

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    44.003 GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call