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: SDAM2

Package: Scheduling

Routine: SDAM2


Information

SDAM2 ;ALB/MJK - Appt Mgt (cont) ;JAN 15, 2016

Source Information

Source file <SDAM2.m>

Call Graph

Call Graph

Call Graph Total: 20

Package Total Call Graph
Scheduling 11 BLD^SDAM  ($$TIME,BLD)^SDAM1  BLD^SDAM3  ($$HANDLE,AFTER,BEFORE,EVT)^SDAMEVT  ($$CL,$$PT)^SDAMWI  SDECCHK^SDEC25  $$APPTGET^SDECUTL  SDM^SDKILL  
^SDM  (ANSW,APPT,ASKREM,EN)^SDWLEVAL  (INIT,LIST)^SDWLPL  
List Manager 4 ($$FTIME,$$LOWER,FULL,PAUSE)^VALM1  (CNTRL,FLDTEXT,SELECT)^VALM10  RANGE^VALM11  SEL^VALM2  
VA FileMan 3 NOW^%DTC  ^DIE  $$GET1^DIQ  
Kernel 1 (T0,T1)^%ZOSV  
Registration 1 ADM^VADPT2  

Caller Graph

Caller Graph Total: 46

Package Total Caller Graph
Scheduling 38 SCCVEAP3  SD53103A  SDAM APPT CHECK IN  SDAM APPT MAKE  SDAM APPT UNSCHEDULED  SDAM DATE CHANGE  SDAM1  SDAM3  
SDAMEP1  SDAMEVT  SDAMEX  SDAMEX1  SDAMOS  SDAMOW1  SDAMQ3  SDAMWI1  
SDAPIAP  SDAPICO  SDAUT2  SDCCRGAP  SDCI  SDCO1  SDCO2  SDCOAM  
SDCOU  SDEC25  SDEC25A  SDEC50  SDEC665  SDECELG  SDECEPT  SDM1A  
SDM4  SDMM1  SDN  SDSTAT  SDVSIT  SDVSIT0  
PCE Patient Care Encounter 2 PXBAPI21  PXUTLSCC  
Automated Information Collection System 1 IBDFDE0  
Event Capture 1 ECUTL0  
Kernel 1 ^ORD(101  
Mobile Scheduling Applications Suite 1 MBAAMAP2  
Registration 1 DGYPSDE2  
VA Point of Service 1 VPSRPC4  

Entry Points

Name Comments DBIA/ICR reference
CI ; -- protocol SDAM APPT CHECK IN entry pt
; input: VALMY := array entries
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]
ONEQ
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
    UPD(TEXT,FLD,LINE,SAVE) ; -- update data for screen
    MAKE ; -- make appt action
    WI ; -- walk-in visit action
    EWLCHK ;check if patient has any open EWL entries (SD/372)
    DATE ; -- change date range
    DATEQ
    INP(DFN,VDATE) ; -- determine inpatient status ; dom is not an inpatient appt
  • ICR #1582
    • Status: Retired
    • Usage: Controlled Subscription
  • ICR #6054
    • Status: Active
    • Usage: Private
    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+44
    ^DIE ONE+28
    $$GET1^DIQ ONE+32
    BLD^SDAM MAKE+5
    $$TIME^SDAM1 ONE+42
    BLD^SDAM1 WI+3, DATE+4
    BLD^SDAM3 WI+4, DATE+5
    $$HANDLE^SDAMEVT ONE+11
    AFTER^SDAMEVT ONE+35
    BEFORE^SDAMEVT ONE+12
    EVT^SDAMEVT ONE+43
    $$CL^SDAMWI WI+3
    $$PT^SDAMWI WI+4
    SDECCHK^SDEC25 ONE+33
    $$APPTGET^SDECUTL ONE+31
    SDM^SDKILL MAKE+7
    ^SDM MAKE+4
    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+38
    $$LOWER^VALM1 ONE+41
    FULL^VALM1 MAKE+2, WI+2
    PAUSE^VALM1 ONE+10, ONE+13, ONE+16, ONE+36, MAKE+6, DATE+2
    CNTRL^VALM10 UPD+2
    FLDTEXT^VALM10 UPD+1
    SELECT^VALM10 CI+9, CI+11
    RANGE^VALM11 DATE+1
    SEL^VALM2 CI+4

    Interaction Calls

    Name Line Occurrences
    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+36
    Function Call: WRITE
    • Prompt: !?8,"...checked in ",$$FTIME^VALM1($P(SDATA("AFTER","STATUS"),U,4))
    • Line Location: ONE+38
    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    44.003 GET1^DIQ

    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+10
    ONEQ ONE+10, ONE+13, ONE+16
    UPD ONE+41, ONE+42

    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+31, ONE+35, FIND~, FIND+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+42
    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+10, ONE~, ONE+26, ONE+27
    SDAMERR MAKE+1~, MAKE+5, MAKE+6
    >> SDAMTYP WI+3, WI+4, DATE+4, DATE+5
    SDASK ONE~, ONE+23, ONE+26
    SDAT CI+3~, CI+6!, CI+7*, CI+8, CI+9, CI+10, CI+11, ONE+41, ONE+42
    SDATA ONE+11~*, ONE+12, ONE+35, ONE+43
    SDATA("AFTER" ONE+36, ONE+37, ONE+38, ONE+40, ONE+42
    SDATA("BEFORE" ONE+13, ONE+36, ONE+37, ONE+38, ONE+41
    >> SDBEG DATE+1, DATE+2, DATE+3*
    SDCIACT CI+3~, CI+4*, ONE+39
    SDCIHDL ONE+11~*, ONE+12, ONE+35, ONE+43
    SDCL ONE~, ONE+9, ONE+11, ONE+12, ONE+17, ONE+18, ONE+23, ONE+26, ONE+28, ONE+31
    , ONE+32, ONE+35, 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+32, ONE+35, VALID~
    , VALID+8
    SDECAPPT ONE+30~, ONE+31*, ONE+33
    SDECDT ONE+30~, ONE+32*, ONE+33
    >> 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+31, ONE+32, ONE+35
    , FIND~, FIND+7, EWLCHK+3, EWLCHK+5, VALID~, VALID+8
    TEXT UPD~, UPD+1
    U CI+10, ONE+11, ONE+21, ONE+23, ONE+24, ONE+26, ONE+36, ONE+38, ONE+40, ONE+41
    , ONE+42, 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+12*, MAKE+7*, WI+1*, DATE+2*, DATE+6*
    VALMBEG DATE+2, DATE+3, DATEQ!
    >> VALMCC CI+9, CI+11, CI+12, 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+44
    >> XRTL ONE+8
    >> XRTN ONE+44*
    Y ONE+40*, ONE+41, ONEQ!, FIND+6~, FIND+7*, FIND+8
    Y1 ONE+40*, ONE+42, ONEQ!
    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