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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SDAM2

Package: Scheduling

Routine: SDAM2


Information

SDAM2 ;ALB/MJK - Appt Mgt (cont); 8/18/05 12:10pm ; Compiled April 16, 2007 09:43:32

Source Information

Source file <SDAM2.m>

Call Graph

Call Graph Total: 20

Package Total Call Graph
Scheduling 9 BLD^SDAM  ($$TIME,BLD)^SDAM1  BLD^SDAM3  ($$HANDLE,AFTER,BEFORE,EVT)^SDAMEVT  ($$CL,$$PT)^SDAMWI  SDM^SDKILL  ^SDM  (ANSW,APPT,ASKREM,EN)^SDWLEVAL  
(INIT,LIST)^SDWLPL  
Registration 5 ADM^VADPT2  ($$FTIME,$$LOWER,CLEAR,FULL,PAUSE)^VALM1  (CNTRL,FLDTEXT,SELECT)^VALM10  RANGE^VALM11  SEL^VALM2  
IHS Changes To ADT 2 PAUSE^BDGF  ($$HRCN,$$LASTREG)^BDGF2  
VA Fileman 2 NOW^%DTC  ^DIE  
IHS Changes To Scheduling 1 PTAPPT^BSDAM  
Kernel 1 (T0,T1)^%ZOSV  

Caller Graph

Caller Graph Total: 36

Package Total Caller Graph
Scheduling 27 SCCVEAP3  SD53103A  SDAM1  SDAM3  SDAMEP1  SDAMEVT  SDAMEX  SDAMEX1  
SDAMOS  SDAMOW1  SDAMQ3  SDAMWI1  SDAPIAP  SDAPICO  SDAUT2  SDCI  
SDCO1  SDCO2  SDCOAM  SDCOU  SDM1A  SDM4  SDMM1  SDN  
SDSTAT  SDVSIT  SDVSIT0  
Clinical Scheduling for Windows 2 BSDX25  BSDX25A  
IHS Changes To Scheduling 2 BSDCHKI1  BSDCHKIN  
PCE Patient Care Encounter 2 PXBAPI21  PXUTLSCC  
Automated Information Collection System 1 IBDFDE0  
IHS Changes To Pharmacy 1 APSPDIR  
Registration 1 DGYPSDE2  

Entry Points

Name Comments DBIA/ICR reference
DATEQ
UPD(TEXT,FLD,LINE,SAVE) ; -- update data for screen
CI ; -- protocol SDAM APPT CHECK IN entry pt
; input: VALMY := array entries
EWLCHK ;check if patient has any open EWL entries (SD/372)
MAKE ; -- make appt action
FIND(DFN,SDT,SDCL) ; -- return appt ifn for pat
; input: DFN := ifn of pat.
; SDT := appt d/t
; SDCL := ifn of clinic
; output: [returned] := ifn if pat has appt on date/time
  • ICR #5792
    • Status: Active
    • Usage: Private
  • ICR #6181
    • Status: Withdrawn
    • Usage: Private
    WI ; -- walk-in visit action
    INP(DFN,VDATE) ; -- determine inpat status ; dom is not an inpat appt
  • ICR #1582
    • Status: Retired
    • Usage: Controlled Subscription
  • ICR #6054
    • Status: Active
    • Usage: Private
    ONEQ
    ONE(DFN,SDCL,SDT,SDDA,SDASK,SDAMCIDT) ; -- check in one appt
    ; input: DFN := ifn of patient
    ; SDCL := clinic#
    ; SDT := appt d/t
    ; SDDA := ifn in ^SC multiple or null
    ; SDASK := ask d/t of ci always [1|yes or 0|no]
    ; SDAMCIDT := ci date/time [optional]
    DATE ; -- change date range
    INPQ
    VALID(DFN,SDCL,SDT,SDDA) ; -- return valid appt.
    ; **NOTE: For speed consideration the ^SC and ^DPT nodes must be
    ; check to see they exist prior to calling this entry point.
    ; input: DFN := ifn of pat.
    ; SDT := appt d/t
    ; SDCL := ifn of clinic
    ; SDDA := ifn of appt
    ; output: [returned] := 1 for valid appt., 0 for not valid

    External References

    Name Field # of Occurrence
    NOW^%DTC CI+5
    T0^%ZOSV ONE+8
    T1^%ZOSV ONE+38
    PAUSE^BDGF CI+13
    $$HRCN^BDGF2 CI+11
    $$LASTREG^BDGF2 CI+14
    PTAPPT^BSDAM MAKE+7
    ^DIE ONE+28
    BLD^SDAM MAKE+10
    $$TIME^SDAM1 ONE+36
    BLD^SDAM1 WI+3, DATE+4
    BLD^SDAM3 WI+4, DATE+5
    $$HANDLE^SDAMEVT ONE+11
    AFTER^SDAMEVT ONE+29
    BEFORE^SDAMEVT ONE+12
    EVT^SDAMEVT ONE+37
    $$CL^SDAMWI WI+3
    $$PT^SDAMWI WI+4
    SDM^SDKILL MAKE+12
    ^SDM MAKE+9
    ANSW^SDWLEVAL EWLCHK+16, EWLCHK+17
    APPT^SDWLEVAL EWLCHK+9
    ASKREM^SDWLEVAL EWLCHK+19
    EN^SDWLEVAL EWLCHK+11, EWLCHK+18
    INIT^SDWLPL EWLCHK+13
    LIST^SDWLPL EWLCHK+15, EWLCHK+16
    ADM^VADPT2 INP+2
    $$FTIME^VALM1 ONE+23, ONE+26, ONE+32
    $$LOWER^VALM1 ONE+35
    CLEAR^VALM1 MAKE+13
    FULL^VALM1 MAKE+2, WI+2
    PAUSE^VALM1 ONE+10, ONE+13, ONE+16, ONE+30, MAKE+11, DATE+2
    CNTRL^VALM10 UPD+2
    FLDTEXT^VALM10 UPD+1
    SELECT^VALM10 CI+17, CI+19
    RANGE^VALM11 DATE+1
    SEL^VALM2 CI+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !?5,"**** CANNOT check in patient with temporary chart #. ****"
    • Line Location: CI+12
    Function Call: WRITE
    • Prompt: !!,*7,"You cannot check in this appointment."
    • Line Location: ONE+10
    Function Call: WRITE
    • Prompt: !!,*7,"You cannot check in this appointment."
    • Line Location: ONE+13
    Function Call: WRITE
    • Prompt: !!,*7,"It is too soon to check in this appointment."
    • Line Location: ONE+16
    Function Call: WRITE
    • Prompt: !?8,*7,"...appointment has not been checked in"
    • Line Location: ONE+30
    Function Call: WRITE
    • Prompt: !?8,"...checked in ",$$FTIME^VALM1($P(SDATA("AFTER","STATUS"),U,4))
    • Line Location: ONE+32
    Function Call: WRITE
    • Prompt: !!,VALMHDR(1)
    • Line Location: MAKE+3
    Function Call: WRITE
    • Prompt: !,"MUST ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",!
    • Line Location: EWLCHK+17
    Function Call: WRITE
    • Prompt: !!,"Date range was not changed."
    • Line Location: DATE+2
    Routine Call
    • DIE
    • Line Location:
      • ONE+28

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DG(43 - [#43] INP+3
    ^DGPM - [#405] INP+3
    ^DIC(42 - [#42] INP+3
    ^DPT - [#2] FIND+7, VALID+8
    ^SC - [#44] ONE+17, ONE+18, ONE+23, ONE+26, FIND+7, VALID+8
    ^SD(409.63 - [#409.63] ONE+13
    ^TMP("SDAM" CI+8
    ^TMP("SDAMIDX" CI+6, CI+7
    ^TMP("SDWLPL" EWLCHK+12!
    ^TMP($J EWLCHK+4!, EWLCHK+8!, EWLCHK+10, EWLCHK+12!, EWLCHK+14, EWLCHK+16, EWLCHK+17, EWLCHK+18, EWLCHK+19

    Label References

    Name Line Occurrences
    $$FIND ONE+9
    $$VALID FIND+7
    DATEQ DATE+2
    INPQ INP+2, INP+3
    ONE CI+18
    ONEQ ONE+10, ONE+13, ONE+16
    UPD ONE+35, ONE+36

    Naked Globals

    Name Field # of Occurrence
    ^( FIND+7
    ^(0 ONE+17*, FIND+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % CI+3~, CI+5
    >> CLN EWLCHK+6
    CNSTLNK FIND+7*!
    DA ONE+28*, ONEQ!
    DA(1 ONE+28*
    DA(2 ONE+28*
    DE ONEQ!
    DFN ONE~, ONE+9, ONE+11, ONE+12, ONE+29, FIND~, FIND+7, MAKE+7, EWLCHK+2, EWLCHK+9
    , EWLCHK+11, EWLCHK+13, EWLCHK+15, EWLCHK+16, EWLCHK+18, INP~, VALID~, VALID+8
    DIE ONE+28*, ONEQ!
    DQ ONEQ!
    DR ONE+18*, ONE+19*, ONE+21, ONE+22*, ONE+23*, ONE+24*, ONE+26*, ONE+27*, ONEQ!
    DT ONE+16, ONE+36
    DUZ(2 CI+11
    FLD UPD~, UPD+1, UPD+2
    IOF EWLCHK+9
    >> IOINHI UPD+2
    >> IOINORM UPD+2
    LINE UPD~, UPD+1, UPD+2
    ORACTION MAKE+1~
    ORVP MAKE+1~
    SAVE UPD~, UPD+2
    >> SC EWLCHK+6*, EWLCHK+9
    SD EWLCHK+5~*, EWLCHK+9
    SDAMCIDT CI+3~, CI+5*, CI+18, ONE~, ONE+26, ONE+27
    SDAMERR MAKE+1~, MAKE+10, MAKE+11
    >> SDAMTYP MAKE+7, WI+3, WI+4, DATE+4, DATE+5
    SDASK ONE~, ONE+23, ONE+26
    SDAT CI+3~, CI+6!, CI+7*, CI+8, CI+11, CI+14, CI+17, CI+18, CI+19, ONE+35
    , ONE+36
    SDATA ONE+11~*, ONE+12, ONE+29, ONE+37
    SDATA("AFTER" ONE+30, ONE+31, ONE+32, ONE+34, ONE+36
    SDATA("BEFORE" ONE+13, ONE+30, ONE+31, ONE+32, ONE+35
    >> SDBEG DATE+1, DATE+2, DATE+3*
    SDCIACT CI+3~, CI+4*, ONE+33
    SDCIHDL ONE+11~*, ONE+12, ONE+29, ONE+37
    SDCL ONE~, ONE+9, ONE+11, ONE+12, ONE+17, ONE+18, ONE+23, ONE+26, ONE+28, ONE+29
    , FIND~, FIND+7, VALID~, VALID+8
    >> SDCLN WI+4
    >> SDCTN EWLCHK+19*
    SDDA ONE~, ONE+9*, ONE+10, ONE+11, ONE+12, ONE+18, ONE+28, ONE+29, VALID~, VALID+8
    >> SDEND DATE+2, DATE+3*
    SDEV EWLCHK+11~, EWLCHK+18~
    SDEV(1 EWLCHK+11, EWLCHK+18
    >> SDFN WI+3
    SDI CI+3~, CI+4*, CI+6*, CI+7
    SDINP INP+1~, INP+2*, INP+4*, INPQ
    SDR EWLCHK+16~, EWLCHK+17~
    SDT ONE~, ONE+9, ONE+11, ONE+12, ONE+16, ONE+18, ONE+28, ONE+29, FIND~, FIND+7
    , EWLCHK+3, EWLCHK+5, VALID~, VALID+8
    TEXT UPD~, UPD+1
    U CI+11, CI+14, CI+18, ONE+11, ONE+21, ONE+23, ONE+24, ONE+26, ONE+30, ONE+32
    , ONE+34, ONE+35, ONE+36, FIND+7, UPD+2, INP+3, VALID+8
    VADMVT INP+1~, INP+2, INP+3
    VAINDT INP+1~, INP+2*
    VALMB DATE+1*, DATEQ!
    >> VALMBCK CI+20*, MAKE+12*, WI+1*, DATE+2*, DATE+6*
    VALMBEG DATE+2, DATE+3, DATEQ!
    >> VALMCC CI+17, CI+19, CI+20, UPD+2
    >> VALMDDF( UPD+2
    VALMEND DATE+2, DATE+3, DATEQ!
    >> VALMHDR(1 MAKE+3
    VALMY CI+3~
    VALMY( CI+6
    VDATE INP~, INP+2
    X ONE+11~, ONE+18*, ONE+19, ONE+21, ONE+23, ONE+24
    XQORQUIT MAKE+1~
    >> XRT0 ONE+38
    >> XRTL ONE+8
    >> XRTN ONE+38*
    Y ONE+34*, ONE+35, ONEQ!, FIND+6~, FIND+7*, FIND+8
    Y1 ONE+34*, ONE+36, ONEQ!
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All