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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDAM1

Package: Scheduling

Routine: SDAM1


Information

SDAM1 ;MJK/ALB - Appt Mgt (Patient);Apr 23 1999

Source Information

Source file <SDAM1.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Scheduling 4 LIST^SDAM  (INIT,LARGE,NUL)^SDAM10  $$FIND^SDAM2  ($$COLLAT,$$ELSTAT,$$MHCLIN,$$NEWGAF)^SDUTL2  
List Manager 2 CHGCAP^VALM  FLDCTRL^VALM10  
VA FileMan 2 C^%DTC  $$GET1^DIQ  
Kernel 1 $$FMTE^XLFDT  
Registration 1 ADM^VADPT2  

Caller Graph

Caller Graph Total: 34

Package Total Caller Graph
Scheduling 29 SCRPW78  SDAM  SDAM10  SDAM2  SDAM3  SDAMC  SDAMEP1  SDAMEVT  
SDAMEX  SDAMEX1  SDAMN  SDAMOS  SDAMU  SDAPIAP  SDCNP0  SDCO1  
SDCOU  SDEC25A  SDEC37  SDEC38  SDEC50  SDEC671  SDECEPT  SDN  
SDN2  SDNOS0  SDPCE2  SDPPAPP1  SDRPA05  
Automated Information Collection System 2 IBDF18E0  IBDFRPC3  
Automated Medical Information Exchange 2 DVBCULAP  DVBCUTL6  
PCE Patient Care Encounter 1 PXCESDA1  

Entry Points

Name Comments DBIA/ICR reference
ANC() ; -- set ancillary info
STATUSQ
TIME(X) ; -- format time only := hr:min
BLD1Q
LOWER(X) ; convert to lowercase ; same as LOWER^VALM1 ; here for speed
CHKQ
SET(X) ;
INIT ; -- get init pat appt data
; input: DFN := ifn of pat
; output: ^TMP("SDAM" := appt array
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 ]
BLD ; -- scan apts
  • ICR #1317
    • Status: Retired
    • Usage: Private
    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
  • ICR #659
    • Status: Retired
    • Usage: Private
  • ICR #1103
    • Status: Retired
    • Usage: Private
  • ICR #2850
    • Status: Retired
    • Usage: Private
    BLD1 ; -- build array

    External References

    Name Field # of Occurrence
    C^%DTC INIT+4, INIT+5
    $$GET1^DIQ STATUS+19
    LIST^SDAM INIT+7
    INIT^SDAM10 BLD+2
    LARGE^SDAM10 BLD+6
    NUL^SDAM10 BLD+6
    $$FIND^SDAM2 STATUS+13
    $$COLLAT^SDUTL2 BLD1+7
    $$ELSTAT^SDUTL2 BLD1+6
    $$MHCLIN^SDUTL2 BLD1+7
    $$NEWGAF^SDUTL2 BLD1+8
    ADM^VADPT2 STATUS+26
    CHGCAP^VALM INIT+6
    FLDCTRL^VALM10 BLD1+24
    $$FMTE^XLFDT BLD1+15

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^SCE - [#409.68] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(2.98 STATUS+22
    ^DG(43 - [#43] INIT+3, STATUS+27, STATUS+34
    ^DGPM - [#405] STATUS+27
    ^DIC(42 - [#42] STATUS+27
    ^DPT - [#2] BLD+4, STATUS+16
    ^GMR(123 - [#123] BLD+5
    ^SC - [#44] BLD+4, BLD+5, STATUS+14, STATUS+22, STATUS+39
    ^SCE - [#409.68] STATUS+18, STATUS+39, STATUS+41, STATUS+48, STATUS+55
    ^SD(409.63 - [#409.63] STATUSQ
    ^TMP("SDAM" BLD+7*, SET+1*, SET+2*
    ^TMP("SDAMIDX" BLD1+25*

    Label References

    Name Line Occurrences
    $$ANC BLD1+20
    $$CHK BLD1+3
    $$LOWER BLD1+14, BLD1+19, BLD1+20
    $$STATUS BLD1+2
    $$TIME BLD1+21, ANC+3
    BLD1 BLD+4
    BLD1Q BLD1+3
    CHKQ CHK+11
    SET BLD1+23
    STATUSQ STATUS+46, STATUS+47

    Naked Globals

    Name Field # of Occurrence
    ^( BLD+4
    ^(0 BLD+4

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    AC BLD+1~, BLD1+13
    AW BLD+1~, BLD1+13
    BL BLD+1~, BLD1+13, BLD1+14, BLD1+15, BLD1+17, BLD1+19, BLD1+20, BLD1+22
    C ANC+1~, ANC+2*, ANC+3*, STATUS+10~, STATUS+30*, STATUS+32*, STATUS+37, STATUS+40, STATUS+42, STATUS+43
    , LOWER+1~, LOWER+3*
    CC BLD+1~, BLD1+17
    CN BLD+1~, BLD+5*
    CNPAT BLD+1~, BLD+5*
    CNSTLNK BLD+1~, BLD+4!, BLD+5*, BLD1+17!
    CSTAT BLD+1~, BLD+5*, BLD1+16*, BLD1+17!
    CW BLD+1~, BLD1+17
    DFN BLD+1~, BLD+3*, BLD+4, BLD+5, BLD1+2, BLD1+3, BLD1+6, BLD1+8, BLD1+24, BLD1+25
    , CHK~, STATUS~, STATUS+13, STATUS+16
    DT INIT+4, INIT+5, BLD1+21, STATUS+30, STATUS+32, STATUS+44
    I ANC+1~, ANC+3*, LOWER+1~, LOWER+3*
    >> IOINHI BLD1+24
    >> IOINORM BLD1+24
    NC BLD+1~, BLD1+14
    NW BLD+1~, BLD1+14
    P STATUS+10~, STATUS+37*, STATUS+38, STATUS+39*, STATUS+40*, STATUS+41*, STATUS+42*, STATUS+44*, STATUS+45*, STATUS+50*
    , STATUS+51*, STATUS+52*, STATUS+53*, STATUS+55*, STATUS+56*, STATUSQ
    S STATUS+10~, STATUS+22*, STATUS+23*, STATUS+27*, STATUS+30*, STATUS+32, STATUS+34*, STATUS+37, STATUS+39, STATUS+40
    , STATUS+42, STATUS+43, STATUS+44, STATUS+45, STATUS+46, STATUS+47, STATUS+54*, STATUS+57*, STATUSQ
    SC BLD+1~, BLD1+19, BLD1+20
    >> SDACNT BLD1+10*, BLD1+11, BLD1+12, BLD1+13, BLD1+25, SET+2
    >> SDAMBOLD( BLD1+24
    SDAMDD BLD+1~
    SDAMLIST BLD1+3, CHK~, CHK+12, CHK+13
    SDAMLIST( CHK+11
    SDAMLIST("SCR" CHKQ
    SDATA BLD+4*, BLD1+2, BLD1+3, BLD1+7, ANC+3, CHK~, STATUS~, STATUS+22, STATUS+34, STATUS+39
    >> SDBEG INIT+4*, BLD+4
    SDCL BLD+1~, BLD+4*, BLD+5, BLD1+2, BLD1+3, BLD1+7, BLD1+24, BLD1+25, CHK~, STATUS~
    , STATUS+13, STATUS+14, STATUS+22, STATUS+39
    SDDA BLD1+2, BLD1+25, CHK~, STATUS~, STATUS+13*, STATUS+14
    SDELIG BLD1+1~, BLD1+6*, BLD1+7
    >> SDEND INIT+5*, BLD+4, BLD1+12*
    >> SDFN BLD+3
    >> SDGAF BLD1+8*
    >> SDGAFREQ BLD1+5*, BLD1+9*, BLD1+13
    >> SDGAFST BLD1+8*, BLD1+9
    SDIEN STATUS+10~, STATUS+19*
    SDLARGE BLD+1~, BLD+6, BLD1+12*
    SDMAX BLD+1~, BLD1+12
    SDNAME BLD+1~, BLD+4*, BLD1+14
    >> SDPRD INIT+3*, INIT+4
    SDSCE STATUS+10~, STATUS+16*, STATUS+17, STATUS+18, STATUS+19, STATUS+23, STATUS+41, STATUS+48, STATUS+55
    SDSTAT BLD1+1~, BLD1+2*, BLD1+3, BLD1+18, BLD1+21, CHK~, CHK+11, CHK+13
    SDT BLD+1~, BLD+4*, BLD+5, BLD1+2, BLD1+3, BLD1+12, BLD1+15, BLD1+24, BLD1+25, CHK~
    , STATUS~, STATUS+13, STATUS+14, STATUS+16, STATUS+26, STATUS+30, STATUS+32, STATUS+34, STATUS+44
    SDX BLD1+1~
    STATUS STATUS+10~, STATUS+19*, STATUS+49, STATUS+52, STATUS+54, STATUS+55, STATUS+57
    SW BLD+1~, BLD1+19, BLD1+20
    TC BLD+1~, BLD1+22
    TW BLD+1~, BLD1+20, BLD1+22
    U INIT+3, BLD+4, BLD+5, BLD+7, BLD1+7, BLD1+25, ANC+3, CHK+12, CHK+13, STATUS+16
    , STATUS+18, STATUS+22, STATUS+27, STATUS+34, STATUS+39, STATUS+41, STATUS+50, STATUS+53, STATUS+55
    VADMVT STATUS+10~, STATUS+27, STATUSQ
    VAINDT STATUS+10~, STATUS+26*
    >> VALMCNT BLD+7, BLD1+24, BLD1+25, SET+1*, SET+2
    >> VALMWD BLD1+10, BLD1+13, BLD1+14, BLD1+15, BLD1+17, BLD1+19, BLD1+22
    X INIT+3*, INIT+4, INIT+5, INIT+7*, BLD1+1~, BLD1+10*, BLD1+13*, BLD1+14*, BLD1+15*, BLD1+17*
    , BLD1+19*, BLD1+20*, BLD1+22*, BLD1+23, SET~, SET+1, LOWER~, LOWER+2, TIME~, TIME+1
    >> X1 INIT+4*, INIT+5*
    >> X2 INIT+4*, INIT+5*
    XC BLD+1~, BLD1+15
    XW BLD+1~, BLD1+15
    Y BLD1+1~, BLD1+18*, BLD1+19, BLD1+20, ANC+1~, ANC+2*, ANC+3*, ANC+4*, ANC+5, CHK+10*
    , CHK+11*, CHK+12*, CHK+13*, CHKQ*, CHKQ+1, STATUS+10~, STATUS+14*, STATUS+18*, STATUS+30, STATUS+50
    , STATUS+51, STATUS+53, STATUS+56, STATUSQ, LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4
    Y1 BLD1+1~, BLD1+21*, BLD1+22
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All