Routine: SDAM2

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

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

Package

Total

Caller Graph

Scheduling

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

BSDX25 BSDX25A

IHS Changes To Scheduling

BSDCHKI1 BSDCHKIN

PCE Patient Care Encounter

PXBAPI21 PXUTLSCC

Automated Information Collection System

IBDFDE0

IHS Changes To Pharmacy

APSPDIR

Registration

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

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

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!

Customize PDF page

Package: Scheduling

Routine: SDAM2

Information

Source Information

Call Graph

Call Graph Total: 20

Caller Graph

Caller Graph Total: 36

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: