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

Package: Scheduling

Routine: SDM1A


Information

SDM1A ;SF/GFT,ALB/TMP,MS/PB - MAKE APPOINTMENT ;JUN 29, 2017

Source Information

Source file <SDM1A.m>

Entry Points

Name Comments DBIA/ICR reference
OK
S1
EWLCHK ;check if patient has any open EWL entries (SD/372)
FLG
ORD
OTHER
XR
SDMM
OV
LET ; SD*5.3*622 - help user print the PRE-APPT letter for a patient
; check for a PRE-APPT letter defined and if none, don't issue a device prompt
QUE ; execute whether by queue or immediate print request
HXR
CS
STATUS(SDCL,SDINP,SDT) ; -- determine status for NEW appts
  • ICR #7193
    • Status: Pending
    • Usage: Private
    CHK(SDCL,SDT) ; -- should appt be NT'ed
    ; -- non-count clinic check := don't NT appt
    ; -- appt update executed := need to NT appt
    ; -- otherwise := don't NT appt
    EVT ; -- separate tag if need to NEW vars
    REQ(SDT) ; -- which is required check in(CI) or out(CO)
  • ICR #1583
    • Status: Retired
    • Usage: Controlled Subscription
    REQDT() ; -- co required date
    COCMP(DFN,SDT) ; -- date CO completed
    CI(SDCL,SDT,SDDA,SDACT) ; -- ok to update DPT
    CIQ
    CO(SDCL,SDT,SDDA,SDACT) ; -- ok to update DPT
    COQ
    UPD(DFN,SDT,SDCOCMP,SDCODT) ; -- update status
    OE(SDOE,SDACT) ; -- called by x-ref on co completed field(#.07) in ^SCE
    OEQ
    CONF(SDSRTY,SDSRFU,DFN,SDT,SC) ;Confirm scheduling request type
    TXRT(SDSRTY)
    CANT(DFN,SDT,SDOE) ;Determine if clinic appt. has been marked "NT"
    SDGET(SDWLIST)
    SDWL(SDWLIST)
    SDWLA(DFN,SD,SDSC,SDDATE,SDAPTYP,SDECANS)

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !," ",+SL,"-MINUTE APPOINTMENT MADE"
    • Line Location: S1+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: S1+20
    Function Call: WRITE
    • Prompt: !,"MUST ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",!
    • Line Location: EWLCHK+13
    Function Call: WRITE
    • Prompt: !,"Unable to acquire a lock on the Wait List file"
    • Line Location: FLG+22
    Function Call: WRITE
    • Prompt: !," Enter YES to notify patient on appt. letter of LAB, X-RAY, or EKG stops"
    • Line Location: ORD+0
    Function Call: READ
    • Formatting: !
    • Prompt: " OTHER INFO: "
    • Variable: D
    • Timeout: DTIME
    • Line Location: OTHER+0
    Function Call: WRITE
    • Prompt: !,*7,"'^' not allowed - hit return if no 'OTHER INFO' is to be entered"
    • Line Location: OTHER+0
    Function Call: WRITE
    • Prompt: " ENTER LAB, SCAN, ETC."
    • Line Location: OTHER+2
    Function Call: WRITE
    • Prompt: !,"WANT PREVIOUS X-RAY RESULTS SENT TO CLINIC"
    • Line Location: XR+0
    Function Call: WRITE
    • Prompt: $C(7),!!,"PATIENT "_$P(^DPT(DFN,0),U,1)," ",$P(^(0),U,9)," HAS FUTURE APPTS., but"
    • Line Location: LET+6
    Function Call: WRITE
    • Prompt: !,$P(^SC(SC,0),U,1)_" is not assigned a PRE-APPOINTMENT LETTER",!
    • Line Location: LET+7
    Function Call: WRITE
    • Prompt: !," Enter YES to have previous XRAY results sent to the clinic"
    • Line Location: HXR+0
    Function Call: WRITE
    • Prompt: !!,*7,"** WARNING - CLINIC HAS AN INVALID OR INACTIVE STOP CODE!!!",!!
    • Line Location: CS+0
    Function Call: WRITE
    • Prompt: !!,*7,"** WARNING - CLINIC HAS AN INVALID OR INACTIVE CREDIT STOP CODE!!!",!!
    • Line Location: CS+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: CONF+9
    Function Call: WRITE
    • Prompt: " (changed)"
    • Line Location: CONF+13

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] Classic Fileman Calls
    ^SDWL(409.3 - [#409.3] Classic Fileman Calls
    ^SDWL(409.32 - [#409.32] Classic Fileman Calls
    ^SC - [#44] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call