Routine: SDAMQ

Package	Total	Call Graph
Scheduling	6	(ADD,BULL,UPD)^SDAMQ1 EN^SDAMQ3 EN^SDAMQ4 EN^SDAMQ5 ($$NOW,$$SWITCH)^SDAMU ^SDMHNS
VA Fileman	2	C^%DTC ^DIR
Kernel	1	^%ZTLOAD
Registration	1	$$FDATE^VALM1

Package

Total

Call Graph

(ADD,BULL,UPD)^SDAMQ1 EN^SDAMQ3 EN^SDAMQ4 EN^SDAMQ5 ($$NOW,$$SWITCH)^SDAMU ^SDMHNS

C^%DTC ^DIR

$$FDATE^VALM1

Package	Total	Caller Graph
Scheduling	11	SDAM APPT UPDATE SDAM BACKGROUND JOB SDAMLD SDAMO SDAMOCC SDAMODO SDAMOW SDAMQ3 SDAMQ4 SDAMQ5 SDMHAD

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
EN	; -- manual entry point
RANGE(SDBEG,SDEND,SDAMETH)	; -- select range
START	;
AUTO	; -- nightly job entry point
STARTQ
DIV(SDIV,SDNAME,SDLEN)	; -- get division ifn and name ; input: SDIV := candidate division ifn ; SDLEN := length of name to pass back [optional] ; output: SDNAME := name of division ; return: := division ifn
ENQ
RANGEQ
AUTOQ
CO(SDOE)	; -- has co process completed
MES	;
SWITCH()	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"The date when all appointemnts must be checked-in to obtain" Line Location: MES+1
Function Call: WRITE	Prompt: !,"OPC credit is ",$$FDATE^VALM1($$SWITCH^SDAMU),"." Line Location: MES+2
Function Call: WRITE	Prompt: !!,"It is too soon to run this option." Line Location: MES+3
Routine Call	DIR Line Location: RANGE+7 RANGE+11

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	DIV+8, DIV+9
^DG(43 - [#43]	DIV+8
^SCE - [#409.68]	CO+1
^SDD(409.65 - [#409.65]	AUTO+6
^TMP("SDSTATS"	START+4!, STARTQ!

Name	Field # of Occurrence
^(0	DIV+9

Name	Field # of Occurrence
DIR	RANGE+7!, RANGE+11!
DIR("?"	RANGE+6, RANGE+10
DIR("A"	RANGE+5, RANGE+9
DIR("B"	RANGE+4, RANGE+8
DIR(0	RANGE+5, RANGE+9
DT	AUTO+3, AUTO+6, SWITCH+1, RANGE+2, RANGE+3
SDAMETH	EN+2~, EN+3, STARTQ!, AUTO+4, AUTO+6*, AUTOQ!, RANGE~, RANGE+3
SDBACK	AUTO+6*, AUTOQ!
SDBEG	EN+2~, EN+3, START+6, START+7, START+8, START+11, STARTQ!, AUTO+4, AUTO+6, AUTOQ! , RANGE~, RANGE+2, RANGE+7*, RANGE+9, RANGE+10
SDEND	EN+2~, EN+3, START+6, START+7, START+8, START+11, STARTQ!, AUTO+4, AUTO+6, AUTOQ! , RANGE~, RANGE+2, RANGE+11*, RANGEQ
SDFIN	START+2~, START+11*
SDIV	DIV~, DIV+8
SDLEN	DIV~, DIV+7~*, DIV+9
SDNAME	DIV~, DIV+9*
SDOE	CO~, CO+1
SDOPCDT	AUTO+4*, AUTOQ!
SDSTART	START+2~, START+5*
SDT	RANGE+1~, RANGE+2, RANGE+3, RANGE+4, RANGE+5, RANGE+6, RANGE+8, RANGE+9, RANGE+10
SDWITCH	RANGE+1~, RANGE+4*, RANGE+5, RANGE+6
U	AUTO+6, RANGE+5, RANGE+9, DIV+8, DIV+9, CO+1
X	EN+6, AUTO+4, AUTO+6, AUTOQ!, RANGE+1~, RANGE+3, DIV+6~, DIV+8, DIV+9, DIV+10
X1	AUTO+3, AUTO+6, AUTOQ!, RANGE+1~, RANGE+3*
X2	AUTO+3, AUTO+6, AUTOQ!, RANGE+1~, RANGE+3*
>> Y	RANGE+7, RANGE+11
>> ZTDESC	EN+5*
>> ZTIO	EN+5*
>> ZTRTN	EN+5*
>> ZTSAVE(	EN+6*
ZTSK	EN+7!

Information