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,MS/PB - MAKE APPOINTMENT ;JUN 29, 2017

Source Information

Source file <SDM1A.m>

Call Graph

Call Graph

Call Graph Total: 29

Package Total Call Graph
Scheduling 18 $$INP^SDAM2  MAKE^SDAMEVT  (A,EDITCS,LINK)^SDCNSLT  (ARCLOSE1,ARSET1,PCSTGET)^SDEC  SDECADD^SDEC07  $$NETTOFM^SDECDATE  ($$GETRES,$$RECALL)^SDECUTL  (FORM,PRT,REST,WRAPP)^SDLT  
(EN1,ORDY)^SDM3  (,ELIG)^SDM4  $$NAVA^SDMANA  MSG^SDMM  EN^SDTMPHLA  RT^SDUTL  MESS^SDWL120  EN^SDWLE11  
(ANSW,APPT,EN)^SDWLEVAL  (INIT,LIST)^SDWLPL  
VA FileMan 6 H^%DTC  (FILE,YN)^DICN  ^DIE  EN1^DIK  $$GET1^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMADD,$$FMTE,$$NOW)^XLFDT  
Registration 1 ELIG^VADPT  

Caller Graph

Caller Graph Total: 38

Package Total Caller Graph
Scheduling 34 SCCVCST5  SCCVEAE1  SCCVEAP1  SCCVEDI1  SCMSPX1  SCMSPX2  SDAMA308  SDAMEVT  
SDAMEX  SDAMQ3  SDAMQ4  SDAMQ5  SDAMWI1  SDAPICO  SDAUT2  SDCO1  
SDCO2  SDCO3  SDCO4  SDCOM  SDEC25A  SDECCAP  SDECINI2  SDM  
SDM0  SDM1  SDMM  SDMM1  SDN  SDSTAT  SDVSIT0  SDVSIT2  
^SCE  PATIENT  
PCE Patient Care Encounter 2 PXBAPI21  PXUTLSCC  
Automated Information Collection System 1 IBDFDE0  
Mobile Scheduling Applications Suite 1 MBAAMAP2  

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)

    External References

    Name Field # of Occurrence
    H^%DTC FLG+3, FLG+4
    ^%ZIS LET+20
    HOME^%ZIS LET+21, LET+23
    ^%ZISC QUE+12
    ^%ZTLOAD LET+21
    FILE^DICN FLG+13, FLG+20
    YN^DICN ORDXRLET+3
    ^DIE FLG+16, FLG+19, FLG+42, CONF+18
    EN1^DIK S1+13
    $$GET1^DIQ EWLCHK+22
    ^DIR LET+8, CONF+9
    $$INP^SDAM2 S1+3
    MAKE^SDAMEVT EVT+1
    A^SDCNSLT S1+9
    EDITCS^SDCNSLT OTHER+10
    LINK^SDCNSLT OTHER+9
    ARCLOSE1^SDEC SDWLA+46
    ARSET1^SDEC SDWLA+35
    PCSTGET^SDEC SDWLA+13
    SDECADD^SDEC07 OTHER+8
    $$NETTOFM^SDECDATE SDWLA+45
    $$GETRES^SDECUTL EWLCHK+21
    $$RECALL^SDECUTL EWLCHK+18
    FORM^SDLT QUE+9
    PRT^SDLT QUE+3
    REST^SDLT QUE+11
    WRAPP^SDLT QUE+3
    EN1^SDM3 S1+21
    ORDY^SDM3 ORD+1
    ^SDM4 OK
    ELIG^SDM4 SDMM+1
    $$NAVA^SDMANA S1+7
    MSG^SDMM OTHER+1, OTHER+3
    EN^SDTMPHLA S1+14
    RT^SDUTL S1+17
    MESS^SDWL120 FLG+44
    EN^SDWLE11 FLG+24
    ANSW^SDWLEVAL EWLCHK+12, EWLCHK+13
    APPT^SDWLEVAL EWLCHK+3
    EN^SDWLEVAL EWLCHK+6
    INIT^SDWLPL EWLCHK+8
    LIST^SDWLPL EWLCHK+10, EWLCHK+12
    ELIG^VADPT SDMM+1
    $$FMADD^XLFDT OTHER+8
    $$FMTE^XLFDT SDWLA+19
    $$NOW^XLFDT SDWLA+19

    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
    Routine Call
    • DIE
    • Line Location:
      • FLG+16
      • FLG+19
      • FLG+42
      • CONF+18
    Routine Call
    • DIR
    • Line Location:
      • LET+8
      • CONF+9
    Routine Call
    • %ZIS
    • Line Location:
      • LET+20
    Routine Call
    • %ZIS
    • Line Location:
      • LET+21
      • LET+23

    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

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(43 - [#43] REQDT+1
    ^DIC(40.7 - [#40.7] CSCS+1
    ^DPT - [#2] OK+1*, S1+7*, S1+8*, S1+16, S1+21, FLG+26, LET+6, QUE+5, COCMP+1, CI+4
    , CI+5, CO+4, CO+5, UPD+2, UPD+3*, UPD+4*, CANT+2
    ^DPT("ASDCN" S1+16
    ^SC - [#44] OK+1*, S1S1+2, S1+9, OTHER+3, OTHER+7, XR, OV*, LET+5, LET+7
    LET+13, LET+14, CSCS+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
    ^SDEC(409.85 - [#409.85] SDWLA+38
    ^SDWL(409.3 - [#409.3] FLG+21, FLG+43
    ^SDWL(409.32 - [#409.32] FLG+11
    ^TMP("SDEC50" SDWLA+12!, SDWLA+14, SDWLA+15!
    ^TMP("SDWLPL" EWLCHK+7!
    ^TMP($J EWLCHK+2!, EWLCHK+4, EWLCHK+7!, EWLCHK+9, EWLCHK+12, EWLCHK+13, FLG, SDGET+3, SDGET+4, SDWL+2
    , SDWL+3

    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
    $$SDWL EWLCHK+14
    $$SDWLA EWLCHK+19
    $$STATUS S1+7
    $$TXRT CONF+10
    CIQ CI+2, CI+3
    CONF S1+20
    COQ CO+2, CO+3
    EVT OV+1
    HXR XR
    LET LET+3
    OEQ OE+2, OE+3, OE+4
    ORD ORD
    OTHER OTHEROTHER+1, OTHER+2, OTHER+3
    OV SDMM
    QUE LET+22
    S1 S1
    SDGET EWLCHK+11
    UPD CO+7, OE+5
    XR HXR

    Naked Globals

    Name Field # of Occurrence
    ^( S1*, S1+16!, FLG+26
    ^("OB" S1+1*
    ^("R" S1+16!
    ^("RAD" S1+2, XR
    ^("SCLR" REQDT+1
    ^(0 OK+1*, S1*, OTHER+5*, LET+6, CSCS+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*, LET+3*, LET+4
    >> %H FLG+3, FLG+4
    %ZIS LET+19~, LET+20*
    %ZIS("B" LET+20*
    >> A LET+13*
    >> B QUE+6*, QUE+7, QUE+8
    C CI+1~, CI+5*, CO+1~, CO+5*
    >> CNSLTLNK EWLCHK+18, EWLCHK+19, OTHER+8, OTHER+9, OTHER+10
    >> COLLAT S1+5, SDMM
    >> COV S1+5*, S1+7
    >> D OTHER*, OTHER+1, OTHER+2, OTHER+3, OTHER+5, OTHER+8
    DA S1+12~, S1+13*, FLG+13~, FLG+14, FLG+20~, FLG+21, FLG+24, FLG+43, CONF+6~, CONF+17*
    DA(1 S1+13*, CONF+17*
    DFN OK+1, S1S1+2, S1+3, S1+7, S1+8, S1+13, S1+14, S1+16, S1+20
    S1+21, EWLCHK+3, EWLCHK+6, EWLCHK+8, EWLCHK+10, EWLCHK+12, EWLCHK+18, EWLCHK+19, OTHER+8, XR
    LET+6, LET+13, QUE+5, EVT+1, COCMP~, COCMP+1, CO+1~, CO+6*, CO+7, UPD~
    , UPD+2, UPD+3, UPD+4, CONF~, CONF+17, CANT~, CANT+2, SDWLA~, SDWLA+13, SDWLA+18
    DIC FLG+13~*, FLG+20*
    DIC(0 FLG+13*, FLG+20*
    DIE FLG+15*, FLG+41*, CONF+6~, CONF+18*
    DIK S1+12~, S1+13*
    DIK(1 S1+13*
    >> DILOCKTM S1FLG+21
    DIR LET+8!, CONF+6~
    DIR("A" CONF+8*
    DIR("B" CONF+7*
    DIR(0 LET+8*, CONF+7*
    DIV S1+12~
    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 S1S1+6, S1+7, S1+21, FLG+2, FLG+7, OTHER+3, CSCS+1
    DTIME OTHER
    >> DTOUT CONF+9
    >> DUOUT CONF+9
    DUZ S1S1+7, OTHER+3, SDWLA+23, SDWLA+43
    DUZ(2 SDWLA+20
    INP SDWLA+40!, SDWLA+46
    INP(1 SDWLA+41*
    INP(2 SDWLA+42*
    INP(3 SDWLA+43*
    INP(4 SDWLA+45*
    IO QUE+1
    IO("Q" LET+21!
    >> J LET+12*
    >> L LET+13*
    >> L0 LET+11*, LET+12
    >> L2 LET+12*
    POP LET+19~, LET+20*
    >> S OK+1, LET+13*
    >> S1 LET+11*
    SC OK+1, S1S1+2, S1+7, S1+9, S1+16, S1+17, S1+20, EWLCHK+3, EWLCHK+21
    EWLCHK+22, FLG+10~*, FLG+11, FLG+13, FLG+44, OTHER+3, OTHER+7, OTHER+8, OTHER+9, XR
    OVLET+5, LET+7, LET+13, LET+14, QUE+9*, CSCS+1, EVT+1, CONF~
    SD OK+1, S1S1+2, S1+3, S1+6, S1+7, S1+8, S1+13, S1+14, S1+16
    S1+17, S1+20, S1+21, EWLCHK+3, EWLCHK+18, EWLCHK+19, OTHER+3, OTHER+8, OTHER+9, OTHER+10
    XROVEVT+1, SDWLA~
    SD120 FLG+5~*
    SD120A FLG+5~*
    >> SD17 S1+7
    >> SD9 LET+11*
    SDACT CI~, CI+4, CI+5, CO~, CO+4, CO+5, CO+7, OE~, OE+5
    >> SDAMTYP LET+16*, LET+17*
    SDAPP CANT+2~*, CANT+3, CANT+4
    SDAPTYP S1+7, EWLCHK+19, EWLCHK+22*, OTHER+8, SDMM+1, SDWLA~, SDWLA+9*, SDWLA+32
    SDARIEN SDWLA+8~, SDWLA+36*, SDWLA+38, SDWLA+41, SDWLA+47
    >> SDATA QUE+5*, QUE+6, QUE+8
    >> SDBD LET+11*, LET+12
    >> SDC LET+13*
    SDCL LET+13*, QUE+7*, QUE+9, STATUS~, STATUS+1, CHK~, CHK+4, CI~, CI+2, CI+4
    , CI+5, CO~, CO+2, CO+4, CO+5, CO+6
    >> SDCLN LET+17*
    >> SDCLNCND S1+9*
    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+8, EWLCHK+19, OTHER+8, SDWLA~, SDWLA+26
    >> SDDECOD SDMM+1
    SDDES FLG+2~*, FLG+4, FLG+7
    SDDES1 FLG+2~, FLG+4*, FLG+5
    SDEC SDMM, OV!
    SDECANS EWLCHK+19, EWLCHK+20!, SDWLA~, SDWLA+10*, SDWLA+31
    SDECAR EWLCHK+16~, EWLCHK+19*, OTHER+8
    SDECINP SDWLA+8~, SDWLA+35
    SDECINP(1 SDWLA+17*
    SDECINP(11 SDWLA+26*
    SDECINP(14 SDWLA+28*
    SDECINP(15 SDWLA+29*
    SDECINP(16 SDWLA+30*
    SDECINP(18 SDWLA+31*
    SDECINP(2 SDWLA+18*
    SDECINP(22 SDWLA+32*
    SDECINP(3 SDWLA+19*, SDWLA+45
    SDECINP(4 SDWLA+20*
    SDECINP(5 SDWLA+21*
    SDECINP(6 SDWLA+22*
    SDECINP(7 SDWLA+23*
    SDECINP(8 SDWLA+24*
    SDECINP(9 SDWLA+25*
    >> SDED LET+11*
    >> SDEMP SDMM*, SDMM+1*, OV
    SDEV EWLCHK+6~
    SDEV(1 EWLCHK+6
    SDFIRST QUE+2~*
    SDFN LET+2~, LET+13*, LET+16*
    >> SDFORM LET+11*
    SDI SDGET+1~, SDGET+3*, SDGET+4, SDWL+1~, SDWL+2*, SDWL+3
    SDINP S1+3*, S1+7, S1+18!, STATUS~, STATUS+1
    >> SDLET LET+14*, LET+15
    >> SDLET1 LET+15*
    >> SDLT LET+11*
    >> SDMADE OKOV+1*
    >> SDMLT OK
    >> SDMULT S1+9
    SDOE OE~, OE+1, OE+4, CANT~, CANT+3
    SDPAR FLG+2~*, FLG+19*, FLG+44
    >> SDPL S1+17*
    SDPR FLG+7~*
    SDQ1 OV!
    SDR EWLCHK+12~, EWLCHK+13~
    SDREC EWLCHK+16~, EWLCHK+17*, EWLCHK+18*, EWLCHK+19, OTHER+8
    SDRES EWLCHK+16~, EWLCHK+21*, OTHER+8
    >> SDRT S1+17*
    SDSC S1+17*, EWLCHK+18, EWLCHK+19, SDWLA~, SDWLA+13, SDWLA+22
    >> SDSLSV OTHER+7
    SDSRFU S1+8, S1+20, CONF~
    SDSRTY S1+6*, S1+7, S1+20, CONF~, CONF+10, TXRT~, TXRT+3*, TXRT+4*
    SDSRTY(0 S1+20, 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+17*, LET+11, LET+13
    >> SDV1 LET+11*
    SDWL EWLCHK+5~*, EWLCHK+14*, EWLCHK+18, EWLCHK+19, OTHER+8
    SDWLCM FLG+25~*
    >> SDWLDA FLG+24*
    >> SDWLDFN FLG+20*, FLG+26, FLG+44
    SDWLF EWLCHK+5~*, EWLCHK+12*, EWLCHK+14
    SDWLIN FLG+8~*
    SDWLIST EWLCHK+5~, EWLCHK+11, EWLCHK+14, SDGET~, SDGET+2!, SDWL~
    SDWLIST( SDGET+4*, SDWL+3!
    SDWLIST(0 SDWL+4
    SDWLRET SDWLA+8~, SDWLA+13, SDWLA+33!, SDWLA+34*, SDWLA+35, SDWLA+36, SDWLA+37*, SDWLA+46
    SDWLSCL FLG+10~, FLG+11*, FLG+14*
    SDWLSCPG FLG+26~*
    SDWLSCPR FLG+9~*
    SDWLSTAT SDWLA+8~, SDWLA+14*
    SDX LET+13*, QUE+5, QUE+8*, QUE+9, CONF+6~, CONF+10*, CONF+14, CONF+15
    SDX(0 CONF+10*
    >> SDXSCAT S1+7
    SDY S1*, S1+17, OTHER+3, OTHER+9, OVLET+16, LET+17, EVT+1, CONF+6~
    >> SDYC S1+5*, S1+7
    >> SDZM OV
    >> SL S1S1+18, OTHER+7*, OTHER+8
    >> SM S1+1
    >> STPCOD S1+9*
    TMP OTHER+9, OTHER+10, OTHER+11!
    >> TMPD OTHER+1*, OTHER+10
    >> TMPYCLNC S1+9*, OTHER+10
    U S1S1+7, S1+8, S1+9, FLG+2, FLG+8, FLG+9, FLG+10, FLG+20, FLG+26
    LET+5, LET+6, LET+7, LET+13, LET+14, QUE+8, 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, SDWLA+14, SDWLA+36
    >> VAEL(1 SDMM+1
    >> VAUTNALL LET+11*
    >> VAUTNI LET+11*
    X OKFLG+3*, FLG+4*, FLG+13*, FLG+20*, CO+7, OE+5, CONF+6~, SDWLA+8~, SDWLA+19*
    Y UPD+1~, UPD+2*, UPD+3, UPD+4, OE+1~*, OE+2, OE+3, OE+4, OE+5, CONF+6~
    , CONF+10
    ZTDESC LET+19~, LET+21*
    ZTRTN LET+19~, LET+21*
    ZTSAVE LET+19~
    ZTSAVE("*" LET+21*
    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