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

Package: Scheduling

Routine: SDCO1


Information

SDCO1 ;ALB/RMO - Appointment - Check Out ;JAN 15, 2016

Source Information

Source file <SDCO1.m>

Call Graph

Call Graph

Call Graph Total: 24

Package Total Call Graph
Scheduling 17 BLD^SDAM  ($$STATUS,$$TIME)^SDAM1  ($$FIND,UPD)^SDAM2  ($$HANDLE,AFTER,BEFORE,EVT)^SDAMEVT  SDEC^SDAMWI1  EN^SDCO  MC^SDCO5  $$ASK^SDCO6  
($$CHK,$$CODT)^SDCOU  CO1^SDEC25B  $$APPTGET^SDECUTL  $$REQ^SDM1A  $$NEW^SDPCE  ($$COLLAT,$$ELSTAT,$$GAFCM,$$MHCLIN,$$NEWGAF)^SDUTL2  $$GETAPT^SDVSIT2  (ANSW,APPT,EN)^SDWLEVAL  
(INIT,LIST)^SDWLPL  
Kernel 2 T0^%ZOSV  $$NOW^XLFDT  
List Manager 2 ($$FTIME,$$LOWER,FULL,PAUSE)^VALM1  EN^VALM2  
VA FileMan 2 NOW^%DTC  ^DIE  
PCE Patient Care Encounter 1 $$INTV^PXAPI  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 8

Package Total Caller Graph
Scheduling 7 SDAMEVT  SDAMEX1  SDAPIAP  SDCO APPT CHECK OUT  SDCO7  SDCODEL  SDCOM  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ;Entry point for SDCO APPT CHECK OUT protocol
CO(DFN,SDT,SDCL,SDDA,SDASK,SDCODT,SDCOACT,SDLNE,SDCOALBF) ;Appt Check Out
; Input -- DFN Patient file IEN
; SDT Appointment Date/Time
; SDCL Hospital Location file IEN for Appt
; SDDA IEN in ^SC multiple or null [Optional]
; SDASK Ask Check Out Date/Time [Optional]
; SDCODT Date/Time of Check Out [Optional]
; SDCOACT Appt Mgmt Check Out Action [Optional]
; SDLNE Appt Mgmt Line Number [Optional]
; Output -- SDCOALBF Re-build Appt Mgmt List
COQ
EWLCHK ;check if patient has any open EWL entries (SD/372)
BEFORE(SDATA,DFN,SDT,SDCL,SDDA,SDHDL) ; -- event driver before ; not used
AFTER(SDATA,DFN,SDT,SDCL,SDDA,SDHDL,SDLNE) ; -- event driver after ; not used
UPD(DFN,SDT,SDCL,SDLNE,SDSTB,SDSTA) ; -- update appt mgmt screen ; used by AFTER but AFTER is not used
ELIG(DFN,SDT,SDCL,SDDA) ; -- update elig if blank
CHK(SDSTB) ; -- is appointment checked out
DT(DFN,SDT,SDCL,SDDA,SDASK,SDCODT,SDCOQUIT) ;Update Check Out Date
DTQ
DIE(SDCL,SDT,SDDA,DR) ; -- update appt data in ^SC
DIEQ

External References

Name Field # of Occurrence
NOW^%DTC EN+5
T0^%ZOSV CO+10
^DIE DIE+3
$$INTV^PXAPI CO+41
BLD^SDAM EN+10
$$STATUS^SDAM1 CO+24
$$TIME^SDAM1 UPD+3
$$FIND^SDAM2 CO+12
UPD^SDAM2 UPD+2, UPD+3
$$HANDLE^SDAMEVT BEFORE+1
AFTER^SDAMEVT AFTER+1
BEFORE^SDAMEVT BEFORE+2
EVT^SDAMEVT AFTER+3
SDEC^SDAMWI1 CO+45
EN^SDCO CO+56, CO+59, CO+63
MC^SDCO5 CO+33
$$ASK^SDCO6 CO+49
$$CHK^SDCOU EN+9
$$CODT^SDCOU CO+27
CO1^SDEC25B CO+46
$$APPTGET^SDECUTL CO+44, CO+45
$$REQ^SDM1A DT+5
$$NEW^SDPCE CO+19
$$COLLAT^SDUTL2 CO+53
$$ELSTAT^SDUTL2 CO+52
$$GAFCM^SDUTL2 CO+55
$$MHCLIN^SDUTL2 CO+53
$$NEWGAF^SDUTL2 CO+54
$$GETAPT^SDVSIT2 CO+21, CO+62
ANSW^SDWLEVAL EWLCHK+11, EWLCHK+12
APPT^SDWLEVAL EWLCHK+4
EN^SDWLEVAL EWLCHK+6
INIT^SDWLPL EWLCHK+8
LIST^SDWLPL EWLCHK+10, EWLCHK+11
$$FTIME^VALM1 DT+5
$$LOWER^VALM1 UPD+2
FULL^VALM1 EN+4
PAUSE^VALM1 CO+13
EN^VALM2 EN+3
$$NOW^XLFDT CO+46

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !!,*7,">>> You cannot check out this appointment."
  • Line Location: CO+13
Function Call: WRITE
  • Prompt: !!,"MUST ACCEPT OR ENTER A REASON NOT TO DISPOSITION MATCHED EWL ENTRY",!
  • Line Location: EWLCHK+12
Routine Call
  • DIE
  • Line Location:
    • DIE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] ELIG+3
^DPT - [#2] CO+14, ELIG+3
^SC - [#44] ELIG+2, DT+2, DT+3, DT+5
^SCE - [#409.68] CO+41
^TMP("SDAM" EN+8
^TMP("SDAMIDX" EN+7
^TMP("SDWLPL" EWLCHK+7!
^TMP($J EWLCHK+3!, EWLCHK+5, EWLCHK+7!, EWLCHK+9, EWLCHK+11, EWLCHK+12

Label References

Name Line Occurrences
$$CHK CO+24
CO EN+9
COQ CO+13, CO+19
DIE ELIG+4, DT+8
DTQ DT+4
EWLCHK COQ
UPD AFTER+2

Naked Globals

Name Field # of Occurrence
^( EN+7
^("C" DT+3
^(0 ELIG+3, DT+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN+5, COQ!
%DT DT+1~
DA DIE+1~, DIE+2*
DA(1 DIE+2*
DA(2 DIE+2*
DE DIE+3!
DFN CO~, CO+12, CO+14, CO+21, CO+24, CO+27, CO+41, CO+44, CO+45, CO+52
, CO+54, CO+62, EWLCHK+4, EWLCHK+6, EWLCHK+8, EWLCHK+10, EWLCHK+11, BEFORE~, BEFORE+1, BEFORE+2
, AFTER~, AFTER+1, AFTER+2, UPD~, UPD+2, ELIG~, ELIG+3, DT~
DIE DIE+1~, DIE+2*
DQ DIE+3!
DR ELIG+1~, ELIG+4*, DT+1~, DT+3*, DT+4*, DT+5*, DT+6*, DT+7*, DT+8, DIE~
DT UPD+3
IOF EWLCHK+4
SDAMBOLD UPD+1~
SDAMBOLD( UPD+2*
SDAPTYP CO+40~
SDASK CO~, DT~, DT+4
SDAT EN+7!*, EN+8, EN+9, EN+12!
SDATA CO+11~, CO+14*, CO+24, CO+53, BEFORE~, BEFORE+1*, BEFORE+2, AFTER~, AFTER+1, AFTER+3
SDATA("AFTER" AFTER+2
SDATA("BEFORE" AFTER+2
SDCIDT DT+1~, DT+3*, DT+5, DT+6
SDCL CO~, CO+12, CO+21, CO+24, CO+27, CO+44, CO+45, CO+53, CO+62, EWLCHK+4
, BEFORE~, BEFORE+1, BEFORE+2, AFTER~, AFTER+1, AFTER+2, UPD~, UPD+2, ELIG~, ELIG+2
, ELIG+4, DT~, DT+2, DT+3, DT+5, DT+8, DIE~, DIE+2
SDCOACT CO~, CO+31
SDCOALBF EN+1~, EN+9, EN+10, CO~, CO+19*, CO+36*
SDCOAP EN+1~, EN+5*, EN+6*, EN+7, EN+9
SDCOBG EN+1~, EN+10*
SDCODT EN+1~, EN+5*, EN+9, CO~, CO+46, DT~, DT+5, DT+6
SDCOED CO+20~, CO+24*, CO+31, CO+39
SDCOMKF CO+28~, CO+32~, CO+33, CO+36
SDCOQUIT CO+11~, CO+33, CO+39, DT~
SDDA CO~, CO+12*, CO+13, CO+24, BEFORE~, BEFORE+1, BEFORE+2, AFTER~, AFTER+1, ELIG~
, ELIG+2, ELIG+4, DT~, DT+3, DT+8, DIE~, DIE+2
SDECAPPT CO+11~, CO+44*, CO+45*, CO+46
SDELIG CO+51~, CO+52*, CO+53
SDEV EWLCHK+6~
SDEV(1 EWLCHK+6
>> SDGAFC CO+49*, CO+50, CO+55*, CO+56
SDHDL BEFORE~, BEFORE+1*, BEFORE+2, AFTER~, AFTER+1, AFTER+3
SDLNE CO~, AFTER~, AFTER+2, UPD~, UPD+2, UPD+3
SDOE CO+11~, CO+21*, CO+33, CO+41, CO+46, CO+56, CO+59, CO+62*, CO+63
SDR EWLCHK+11~, EWLCHK+12~
SDSTA UPD~, UPD+2, UPD+3
SDSTB UPD~, UPD+2, CHK~, CHK+2
SDT CO~, CO+12, CO+14, CO+19, CO+21, CO+24, CO+27, CO+44, CO+45, CO+62
, EWLCHK+4, BEFORE~, BEFORE+1, BEFORE+2, AFTER~, AFTER+1, AFTER+2, UPD~, UPD+2, ELIG~
, ELIG+2, ELIG+4, DT~, DT+3, DT+5, DT+8, DIE~, DIE+2
SDTRES CO+28~, CO+41*, CO+42
U CO+41, CO+53, ELIG+2, ELIG+3, DT+5
>> VALMAR EN+10
>> VALMBCK EN+2*, EN+11*, CO+19*
>> VALMBG EN+10*
VALMY EN+1~
VALMY( EN+6
X ELIG+1~, ELIG+3*, ELIG+4, DT+1~, DT+3*, DT+4
>> XQORNOD(0 EN+3
>> XRTL CO+10
Y CHK+1~, CHK+2*, CHK+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All