Routine: SDAMOC0

Information

SDAMOC0 ;OIFO BAY PINES/TEH - AM MGT REPORTS STATISTICS BUILD GLOBAL ;5/25/93

Source file <SDAMOC0.m>

Package	Total	Caller Graph
Scheduling	1	SDAMOC

Name	Comments	DBIA/ICR reference
STCHKQ
DISP()	; -- display selection choices
STCHK(SDSTC)	; check for stopcode in list of valid stopcodes (vautc)
OKDIVQ
OKDIV(SDDV)	; check for division in list of valid divisions (vautd)
DISPQ
STOPC	; build global of action counts from division/stopcode in TMP

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,*13 Line Location: DISP+2
Function Call: WRITE	Prompt: $$LINE^SDAMOCC("Report Specifications") Line Location: DISP+3
Function Call: WRITE	Prompt: !!," Encounter Dates: ",$$FDATE^VALM1(SDBEG)," to ",$$FDATE^VALM1(SDEND) Line Location: DISP+4
Function Call: WRITE	Prompt: !," Report Format: ","Appointment Clinics" Line Location: DISP+5
Function Call: WRITE	Prompt: !!?15,"Divisions",?55,"Clinics" Line Location: DISP+6
Function Call: WRITE	Prompt: !?15,"---------",?55,"----------" Line Location: DISP+7
Function Call: WRITE	Prompt: !?15,$S(D:VAUTD(D),1:D),?55,$S(C:VAUTC(C),1:C) Line Location: DISP+9
Function Call: WRITE	Prompt: !,$$LINE^SDAMOCC("") Line Location: DISP+12
Routine Call	%ZIS Line Location: DISP+2

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	STOPC+6
^DIC(40.7 - [#40.7]	STOPC+7
^SCE - [#409.68]	STOPC+3, STOPC+4
^SCE("B"	STOPC+1, STOPC+2
^TMP("SDAMS"	STOPC+8*

Name	Field # of Occurrence
C	DISP+1~, DISP+8, DISP+9, DISP+10, DISP+11
D	DISP+1~, DISP+8, DISP+9, DISP+10, DISP+11
I	DISP+1~, DISP+11*
IOF	DISP+2
>> SDBEG	STOPC+1, DISP+4
SDCODE	STOPC+7*, STOPC+8, STOPC+9!
SDDIV	STOPC+6*, STOPC+8, STOPC+9!
SDDV	OKDIV~, OKDIV+3
>> SDEND	STOPC+1, DISP+4
SDOE	STOPC+2*, STOPC+3, STOPC+4, STOPC+9!
SDOEO	STOPC+4*, STOPC+5, STOPC+6, STOPC+7, STOPC+8, STOPC+9!
SDSTC	STCHK~, STCHK+3
SDT	STOPC+1*, STOPC+2, STOPC+9!
U	STOPC+5, STOPC+6, STOPC+7, STOPC+8
>> VAUTC	STCHK+2, DISP+9
>> VAUTC(	STCHK+3, DISP+9, DISP+11
>> VAUTC(0	DISP+9
>> VAUTD	OKDIV+2, DISP+9
>> VAUTD(	OKDIV+3, DISP+9, DISP+11
>> VAUTD(0	DISP+9
Y	OKDIV+1~, OKDIV+2, OKDIV+3, OKDIVQ, STCHK+1~, STCHK+2, STCHK+3, STCHKQ, DISP+11, DISP+13* , DISPQ