Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDM1A

Package: Scheduling

Routine: SDM1A


Information

SDM1A ;SF/GFT,ALB/TMP - MAKE APPOINTMENT ; 8/18/05 12:57pm ; 6/22/09 6:16pm

Source Information

Source file <SDM1A.m>

Call Graph

Call Graph Total: 21

Package Total Call Graph
Scheduling 12 $$INP^SDAM2  MAKE^SDAMEVT  (A,EDITCS,LINK)^SDCNSLT  (EN1,ORDY)^SDM3  (,ELIG)^SDM4  $$NAVA^SDMANA  MSG^SDMM  RT^SDUTL  
MESS^SDWL120  EN^SDWLE11  (ANSW,APPT,EN)^SDWLEVAL  (INIT,LIST)^SDWLPL  
VA Fileman 4 H^%DTC  (FILE,YN)^DICN  ^DIE  ^DIR  
IHS Changes To Scheduling 3 XREFC^BSDDAM  SDM^BSDMMU  APPT^BSDU2  
Kernel 1 $$NOW^XLFDT  
Registration 1 ELIG^VADPT  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Scheduling 28 PATIENT  SCCVCST5  SCCVEAE1  SCCVEAP1  SCCVEDI1  SCMSPX1  SCMSPX2  SDAMA308  
SDAMEVT  SDAMEX  SDAMQ3  SDAMQ4  SDAMQ5  SDAPICO  SDAUT2  SDCO1  
SDCO2  SDCO3  SDCO4  SDCOM  SDM  SDM0  SDM1  SDMM  
SDN  SDSTAT  SDVSIT0  SDVSIT2  
IHS Changes To Scheduling 3 ASDMON  BSDMMU  BSDMON  
PCE Patient Care Encounter 2 PXBAPI21  PXUTLSCC  
Automated Information Collection System 1 IBDFDE0  
Clinical Scheduling for Windows 1 BSDX25A  
IHS VA Support Files 1 PATIENT  

Entry Points

Name Comments DBIA/ICR reference
COQ
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
TXRT(SDSRTY)
S1
CO(SDCL,SDT,SDDA,SDACT) ; -- ok to update DPT
XR
CIQ
REQDT() ; -- co required date
EVT ; -- separate tag if need to NEW vars
FLG
SDMM
CI(SDCL,SDT,SDDA,SDACT) ; -- ok to update DPT
COCMP(DFN,SDT) ; -- date CO completed
REQ(SDT) ; -- which is required check in(CI) or out(CO)
  • ICR #1583
    • Status: Retired
    • Usage: Controlled Subscription
    OE(SDOE,SDACT) ; -- called by x-ref on co completed field(#.07) in ^SCE
    STATUS(SDCL,SDINP,SDT) ; -- determine status for NEW appts
    HXR
    OTHER
    CS
    UPD(DFN,SDT,SDCOCMP,SDCODT) ; -- update status
    EWLCHK ;check if patient has any open EWL entries (SD/372)
    OK
    OEQ
    CONF(SDSRTY,SDSRFU,DFN,SDT,SC) ;Confirm scheduling request type
    OV
    ORD
    CANT(DFN,SDT,SDOE) ;Determine if clinic appt. has been marked "NT"

    External References

    Name Field # of Occurrence
    H^%DTC FLG+3, FLG+4
    XREFC^BSDDAM S1+35, OTHER+13
    SDM^BSDMMU OK+3, S1+14
    APPT^BSDU2 S1+34
    FILE^DICN FLG+13, FLG+20
    YN^DICN ORD, XR
    ^DIE FLG+16, FLG+19, FLG+42, CONF+18
    ^DIR CONF+9
    $$INP^SDAM2 S1+3
    MAKE^SDAMEVT EVT+1
    A^SDCNSLT S1+24
    EDITCS^SDCNSLT OTHER+16
    LINK^SDCNSLT OTHER+15
    EN1^SDM3 S1+38
    ORDY^SDM3 ORD+1
    ^SDM4 OK
    ELIG^SDM4 SDMM+1
    $$NAVA^SDMANA S1+14
    MSG^SDMM OTHER+1, OTHER+3
    RT^SDUTL S1+31
    MESS^SDWL120 FLG+44
    EN^SDWLE11 FLG+24
    ANSW^SDWLEVAL EWLCHK+10, EWLCHK+11
    APPT^SDWLEVAL EWLCHK+3
    EN^SDWLEVAL EWLCHK+5
    INIT^SDWLPL EWLCHK+7
    LIST^SDWLPL EWLCHK+9, EWLCHK+10
    ELIG^VADPT SDMM+1
    $$NOW^XLFDT OTHER+13

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Error making appointment in file 2.98"
    • Line Location: S1+16
    Function Call: WRITE
    • Prompt: !
    • Line Location: S1+37
    Function Call: WRITE
    • Prompt: !,"MUST ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",!
    • Line Location: EWLCHK+11
    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
    • Prompt: " OTHER INFO: "
    • Formatting: !
    • Timeout: DTIME
    • Variable: D
    • 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+6
    Function Call: WRITE
    • Prompt: !!,"Enter the Reason for the Appointment. May be up to 155 characters long (no semi-colons or colons).",!
    • Line Location: OTHER+7
    Function Call: WRITE
    • Prompt: !,"WANT PREVIOUS X-RAY RESULTS SENT TO CLINIC"
    • Line Location: XR+0
    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
    Routine Call
    • DIE
    • Line Location:
      • FLG+16
      • FLG+19
      • FLG+42
      • CONF+18
    Routine Call
    • DIR
    • Line Location:
      • CONF+9

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(43 - [#43] REQDT+1
    ^DIC(40.7 - [#40.7] CS, CS+1
    ^DPT - [#2] OK+4, S1+30, S1+38, FLG+26, COCMP+1, CI+4, CI+5, CO+4, CO+5, UPD+2
    , UPD+3*, UPD+4*, CANT+2
    ^DPT("ASDCN" S1+30
    ^SC - [#44] OK+2*, OK+4*, S1, S1+2, S1+24, OTHER+13*, XR, OV*, CS, CS+1
    , CHK+4, CI+4, CI+5, CO+4, CO+5, CO+6, OE+5
    ^SC("ARAD" S1+2*, XR*
    ^SCE - [#409.68] COCMP+1, OE+1
    ^SDD(409.65 - [#409.65] CHK+4
    ^SDWL(409.3 - [#409.3] FLG+21, FLG+43
    ^SDWL(409.32 - [#409.32] FLG+11
    ^TMP("SDWLPL" EWLCHK+6!
    ^TMP($J EWLCHK+2!, EWLCHK+4, EWLCHK+6!, EWLCHK+8, EWLCHK+10, EWLCHK+11, FLG

    Label References

    Name Line Occurrences
    $$CANT OE+4
    $$CHK STATUS+1, CI+2, CO+2, OE+4
    $$COCMP CO+7
    $$REQ CI+3, CO+3, OE+3
    $$REQDT REQ+1
    $$TXRT CONF+10
    CIQ CI+2, CI+3
    CONF S1+37
    COQ CO+2, CO+3
    EVT OV+1
    HXR XR
    OEQ OE+2, OE+3, OE+4
    ORD ORD
    OTHER OTHER, OTHER+1, OTHER+3, OTHER+7
    OV SDMM
    S1 S1
    UPD CO+7, OE+5
    XR HXR

    Naked Globals

    Name Field # of Occurrence
    ^( S1*, S1+30!, FLG+26
    ^("OB" S1+1*
    ^("R" S1+30!
    ^("RAD" S1+2, XR
    ^("SCLR" REQDT+1
    ^(0 OK+4*, S1*, OTHER+13*, CS, CS+1, CI+4*, CI+5*, CO+4*, CO+5*, UPD+2

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % ORD*, ORD+1, XR*
    >> %H FLG+3, FLG+4
    >> BSDER OK+3, S1+14, S1+15
    >> BSDSRFU S1+7
    C CI+1~, CI+5*, CO+1~, CO+5*
    >> CNSLTLNK OTHER+15, OTHER+16
    >> COLLAT S1+5, SDMM
    >> COV S1+5*, S1+14
    >> D OTHER*, OTHER+1, OTHER+3, OTHER+7, OTHER+13
    DA FLG+13~, FLG+14, FLG+20~, FLG+21, FLG+24, FLG+43, CONF+6~, CONF+17*
    DA(1 CONF+17*
    DFN OK+3, OK+4, S1, S1+2, S1+3, S1+14, S1+30, S1+34, S1+37, S1+38
    , EWLCHK+3, EWLCHK+5, EWLCHK+7, EWLCHK+9, EWLCHK+10, XR, EVT+1, COCMP~, COCMP+1, CO+1~
    , CO+6*, CO+7, UPD~, UPD+2, UPD+3, UPD+4, CONF~, CONF+17, CANT~, CANT+2
    DIC FLG+13~*, FLG+20*
    DIC(0 FLG+13*, FLG+20*
    DIE FLG+15*, FLG+41*, CONF+6~, CONF+18*
    >> DILOCKTM S1
    DIR CONF+6~
    DIR("A" CONF+8*
    DIR("B" CONF+7*
    DIR(0 CONF+7*
    DR FLG+16*, FLG+17*, FLG+18*, FLG+27*, FLG+28*, FLG+29*, FLG+30*, FLG+31*, FLG+32*, FLG+33*
    , FLG+34*, FLG+35*, FLG+36*, FLG+37*, FLG+38*, FLG+39*, FLG+40*, CONF+6~, CONF+14*, CONF+15*
    DT S1, S1+6, S1+38, FLG+2, FLG+7, CS, CS+1
    DTIME OTHER
    >> DTOUT CONF+9
    >> DUOUT CONF+9
    DUZ S1, OTHER+13
    MAW S1+17*!
    >> S OK+2
    SC OK+2, OK+3, OK+4, S1, S1+2, S1+14, S1+24, S1+30, S1+31, S1+34
    , S1+35, S1+37, EWLCHK+3, FLG+10~*, FLG+11, FLG+13, FLG+44, OTHER+13, OTHER+15, XR
    , OV, CS, CS+1, EVT+1, CONF~
    >> SD OK+2, OK+3, OK+4, S1, S1+2, S1+3, S1+6, S1+14, S1+30, S1+31
    , S1+34, S1+35, S1+37, S1+38, EWLCHK+3, OTHER+13, OTHER+15, OTHER+16, XR, OV
    , EVT+1
    SD120 FLG+5~*
    SD120A FLG+5~*
    >> SD17 S1+14
    SDACT CI~, CI+4, CI+5, CO~, CO+4, CO+5, CO+7, OE~, OE+5
    SDAPP CANT+2~*, CANT+3, CANT+4
    >> SDAPTYP S1+14, SDMM+1
    SDCL STATUS~, STATUS+1, CHK~, CHK+4, CI~, CI+2, CI+4, CI+5, CO~, CO+2
    , CO+4, CO+5, CO+6
    >> SDCLNCND S1+24*
    SDCOCMP UPD~, UPD+3
    SDCODT UPD~, UPD+3
    SDCOL SDMM, OV!
    SDCS CS*, CS+1*, CS+2!
    SDDA CI~, CI+4, CI+5, CO~, CO+4, CO+5, CO+6
    >> SDDATE S1+14
    >> SDDECOD SDMM+1
    SDDES FLG+2~*, FLG+4, FLG+7
    SDDES1 FLG+2~, FLG+4*, FLG+5
    SDEC SDMM, OV!
    >> SDEMP SDMM*, SDMM+1*, OV
    SDEV EWLCHK+5~
    SDEV(1 EWLCHK+5
    SDINP S1+3*, S1+14, S1+34!, STATUS~, STATUS+1
    >> SDMADE OK, OV+1*
    >> SDMLT OK
    >> SDMULT S1+24
    SDOE OE~, OE+1, OE+4, CANT~, CANT+3
    SDPAR FLG+2~*, FLG+19*, FLG+44
    >> SDPL S1+31*
    SDPR FLG+7~*
    SDQ1 OV!
    SDR EWLCHK+10~, EWLCHK+11~
    >> SDRT S1+31*
    >> SDSC S1+31*
    SDSRFU S1+7*, S1+14, S1+37, CONF~
    SDSRTY S1+6*, S1+14, S1+37, CONF~, CONF+10, TXRT~, TXRT+3*, TXRT+4*
    SDSRTY(0 S1+37, CONF+8
    SDST FLG~*, FLG+2, FLG+8, FLG+9, FLG+10, FLG+20
    SDT FLG+2~*, FLG+3, FLG+44, STATUS~, STATUS+1, CHK~, CHK+4, REQ~, REQ+1, COCMP~
    , COCMP+1, CI~, CI+2, CI+3, CI+4, CI+5, CO~, CO+2, CO+3, CO+4
    , CO+5, CO+6, CO+7, UPD~, UPD+2, UPD+3, UPD+4, CONF~, CONF+17, CANT~
    , CANT+2
    SDT1 FLG+2~, FLG+3*, FLG+5
    >> SDTTM S1+31*
    SDWLCM FLG+25~*
    >> SDWLDA FLG+24*
    >> SDWLDFN FLG+20*, FLG+26, FLG+44
    SDWLIN FLG+8~*
    SDWLSCL FLG+10~, FLG+11*, FLG+14*
    SDWLSCPG FLG+26~*
    SDWLSCPR FLG+9~*
    SDX CONF+6~, CONF+10*, CONF+14, CONF+15
    SDX(0 CONF+10*
    >> SDXSCAT S1+14
    SDY S1*, S1+31, S1+35, OTHER+13, OTHER+15, OV, EVT+1, CONF+6~
    >> SDYC S1+5*, S1+14
    >> SDZM OV
    >> SL S1, S1+34
    >> SM S1+1
    >> STPCOD S1+24*
    TMP OTHER+15, OTHER+16, OTHER+17!
    >> TMPD OTHER+1*, OTHER+3*, OTHER+16
    >> TMPYCLNC S1+24*, OTHER+16
    U S1, S1+14, S1+24, FLG+2, FLG+8, FLG+9, FLG+10, FLG+20, FLG+26, OTHER+13
    , CHK+4, REQDT+1, COCMP+1, CI+4, CI+5, CO+4, CO+5, UPD+2, UPD+3, UPD+4
    , OE+2, OE+4, OE+5, TXRT+3, TXRT+4, CANT+3, CANT+4
    >> VAEL(1 SDMM+1
    X OK, FLG+3*, FLG+4*, FLG+13*, FLG+20*, CO+7, OE+5, CONF+6~
    Y UPD+1~, UPD+2*, UPD+3, UPD+4, OE+1~*, OE+2, OE+3, OE+4, OE+5, CONF+6~
    , CONF+10
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All