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 |  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 Total: 10

Package Total Call Graph
Scheduling 4 LIST^SDAM  (INIT,LARGE,NUL)^SDAM10  $$FIND^SDAM2  ($$COLLAT,$$ELSTAT,$$MHCLIN,$$NEWGAF)^SDUTL2  
Registration 3 ADM^VADPT2  CHGCAP^VALM  FLDCTRL^VALM10  
IHS Changes To Scheduling 1 WLDIS^BSDAM  
Kernel 1 $$FMTE^XLFDT  
VA Fileman 1 C^%DTC  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Scheduling 23 SCRPW78  SDAM  SDAM10  SDAM2  SDAM3  SDAMC  SDAMEP1  SDAMEVT  
SDAMEX  SDAMEX1  SDAMN  SDAMOS  SDAMU  SDAPIAP  SDCNP0  SDCO1  
SDCOU  SDN  SDN2  SDNOS0  SDPCE2  SDPPAPP1  SDRPA05  
Clinical Scheduling for Windows 3 BSDX25A  BSDX37  BSDX38  
Registration 3 DGVPTIB1  DGVPTIB2  DGVPTIB5  
Automated Information Collection System 2 IBDF18E0  IBDFRPC3  
IHS Changes To Scheduling 2 BSDAM  BSDCF  
Integrated Billing 2 IBECEAU  IBOVOP1  
PCE Patient Care Encounter 1 PXCESDA1  

Entry Points

Name Comments DBIA/ICR reference
ANC() ; -- set ancillary info
STATUSQ
STAT1 ; -- $$REQ & $$COCMP in SDM1A not used for speed
BLD1Q
LOWER(X) ; convert to lowercase ; same as LOWER^VALM1 ; here for speed
CHKQ
CHKENC ;SD*567 grab status from outpatient encounter for purged appts
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
    TIME(X) ; -- format time only := hr:min

    External References

    Name Field # of Occurrence
    C^%DTC INIT+6, INIT+7
    WLDIS^BSDAM BLD+7
    LIST^SDAM INIT+9
    INIT^SDAM10 BLD+2
    LARGE^SDAM10 BLD+9
    NUL^SDAM10 BLD+9
    $$FIND^SDAM2 STATUS+13
    $$COLLAT^SDUTL2 BLD1+7
    $$ELSTAT^SDUTL2 BLD1+6
    $$MHCLIN^SDUTL2 BLD1+7
    $$NEWGAF^SDUTL2 BLD1+8
    ADM^VADPT2 STATUS+20
    CHGCAP^VALM INIT+8
    FLDCTRL^VALM10 BLD1+27
    $$FMTE^XLFDT BLD1+15

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(2.98 STATUS+17
    ^DG(43 - [#43] INIT+5, STATUS+21
    ^DGPM - [#405] STATUS+21
    ^DIC(42 - [#42] STATUS+21
    ^DPT - [#2] BLD+4
    ^GMR(123 - [#123] BLD+5
    ^SC - [#44] BLD+4, BLD+5, STATUS+14, STATUS+17, STAT1+7
    ^SCE - [#409.68] STAT1+7, CHKENC+4
    ^SCE("ADFN" STATUS+24, CHKENC+3
    ^SD(409.63 - [#409.63] STATUSQ, CHKENC+6, CHKENC+7
    ^TMP("SDAM" BLD+7, BLD+10*, SET+1*, SET+2*
    ^TMP("SDAMIDX" BLD1+28*

    Label References

    Name Line Occurrences
    $$ANC BLD1+23
    $$CHK BLD1+3
    $$LOWER BLD1+14, BLD1+22, BLD1+23
    $$STATUS BLD1+2
    $$TIME BLD1+24, ANC+3
    BLD1 BLD+4
    BLD1Q BLD1+3
    CHKENC STATUS+24
    CHKQ CHK+11
    SET BLD1+26
    STAT1 STATUS+24

    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+22, BLD1+23, BLD1+25
    C ANC+1~, ANC+2*, ANC+3*, STATUS+10~, STATUS+26*, STATUS+27*, STAT1+5, STAT1+8, STAT1+11, STAT1+12
    , CHKENC+7*, CHKENC+8, 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, BLD+7, BLD1+2, BLD1+3, BLD1+6, BLD1+8, BLD1+27
    , BLD1+28, CHK~, STATUS~, STATUS+13, STATUS+24, CHKENC+3
    DT INIT+6, INIT+7, BLD1+24, STATUS+24, STATUS+26, STATUS+27, STAT1+13
    I ANC+1~, ANC+3*, LOWER+1~, LOWER+3*
    >> IOINHI BLD1+27
    >> IOINORM BLD1+27
    NC BLD+1~, BLD1+14
    NW BLD+1~, BLD1+14
    P STATUS+10~, STAT1+5*, STAT1+6, STAT1+7*, STAT1+8*, STAT1+11*, STAT1+13*, STAT1+14*, STATUSQ
    POP STATUS+24*, STATUS+25!, STAT1+1!, CHKENC+7*
    S STATUS+10~, STATUS+17*, STATUS+21*, STATUS+26*, STATUS+27, STAT1+5, STAT1+7, STAT1+8, STAT1+11, STAT1+12
    , STAT1+13, STAT1+14, STATUSQ, CHKENC+8*
    SC BLD+1~, BLD1+22, BLD1+23
    >> SDACNT BLD1+10*, BLD1+11, BLD1+12, BLD1+13, BLD1+28, SET+2
    >> SDAMBOLD( BLD1+27
    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, BLD1+20, ANC+3, CHK~, STATUS~, STATUS+17, STAT1+7
    >> SDBEG INIT+6*, BLD+4
    SDCL BLD+1~, BLD+4*, BLD+5, BLD1+2, BLD1+3, BLD1+7, BLD1+27, BLD1+28, CHK~, STATUS~
    , STATUS+13, STATUS+14, STATUS+17, STAT1+7
    SDDA BLD1+2, BLD1+28, CHK~, STATUS~, STATUS+13*, STATUS+14
    SDELIG BLD1+1~, BLD1+6*, BLD1+7
    >> SDEND INIT+7*, BLD+4, BLD1+12*
    >> SDFN BLD+3
    >> SDGAF BLD1+8*
    >> SDGAFREQ BLD1+5*, BLD1+9*, BLD1+13
    >> SDGAFST BLD1+8*, BLD1+9
    SDIEN CHKENC+1~, CHKENC+2*, CHKENC+3*, CHKENC+4
    SDLARGE BLD+1~, BLD+9, BLD1+12*
    SDMAX BLD+1~, BLD1+12
    SDNAME BLD+1~, BLD+4*, BLD1+14
    >> SDPRD INIT+5*, INIT+6
    SDSTAT BLD1+1~, BLD1+2*, BLD1+3, BLD1+18, BLD1+20, BLD1+24, CHK~, CHK+11, CHK+13
    SDT BLD+1~, BLD+4*, BLD+5, BLD1+2, BLD1+3, BLD1+12, BLD1+15, BLD1+27, BLD1+28, CHK~
    , STATUS~, STATUS+13, STATUS+14, STATUS+20, STATUS+24, STATUS+26, STATUS+27, STAT1+13, CHKENC+3
    SDX BLD1+1~
    SNODE CHKENC+1~, CHKENC+4*, CHKENC+5, CHKENC+6, CHKENC+7
    SW BLD+1~, BLD1+22, BLD1+23
    TC BLD+1~, BLD1+25
    TW BLD+1~, BLD1+23, BLD1+25
    U INIT+5, BLD+4, BLD+5, BLD+10, BLD1+7, BLD1+20, BLD1+28, ANC+3, CHK+12, CHK+13
    , STATUS+17, STATUS+21, STAT1+7, CHKENC+6, CHKENC+7
    VADMVT STATUS+10~, STATUS+21, STATUSQ
    VAINDT STATUS+10~, STATUS+20*
    >> VALMCNT BLD+10, BLD1+27, BLD1+28, SET+1*, SET+2
    >> VALMWD BLD1+10, BLD1+13, BLD1+14, BLD1+15, BLD1+17, BLD1+22, BLD1+25
    X INIT+5*, INIT+6, INIT+7, INIT+9*, BLD1+1~, BLD1+10*, BLD1+13*, BLD1+14*, BLD1+15*, BLD1+17*
    , BLD1+22*, BLD1+23*, BLD1+25*, BLD1+26, SET~, SET+1, LOWER~, LOWER+2, TIME~, TIME+1
    >> X1 INIT+6*, INIT+7*
    >> X2 INIT+6*, INIT+7*
    XC BLD+1~, BLD1+15
    XW BLD+1~, BLD1+15
    Y BLD1+1~, BLD1+18*, BLD1+20*, BLD1+22, BLD1+23, 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+24, STATUS+26
    , STATUSQ, LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4
    Y1 BLD1+1~, BLD1+24*, BLD1+25
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All