Routine: SDAMOS0

Information

SDAMOS0 ;ALB/SCK - AM MGT REPORTS STATISTICS BUILD GLOBAL ;5/25/93

Source file <SDAMOS0.m>

Package	Total	Caller Graph
Scheduling	1	SDAMOS

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^SDAMO("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: ",$S(FMT=1:"Appointment Clinics",1:"Stop Codes") Line Location: DISP+5
Function Call: WRITE	Prompt: !!?15,"Divisions",?55,$S(FMT=1:"Clinics",1:"Stop Codes") 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^SDAMO("") Line Location: DISP+12
Routine Call	%ZIS Line Location: DISP+2

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

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
>> FMT	DISP+5, DISP+6
I	STOPC+1~, DISP+11*
IOF	DISP+2
>> SDBEG	STOPC+2, DISP+4
SDCODE	STOPC+8*, STOPC+9, STOPC+10!
SDDIV	STOPC+7*, STOPC+9, STOPC+10!
SDDV	OKDIV~, OKDIV+3
>> SDEND	STOPC+2, DISP+4
SDFIN	STOPC+1~
SDOE	STOPC+3*, STOPC+4, STOPC+5, STOPC+10!
SDOEO	STOPC+5*, STOPC+6, STOPC+7, STOPC+8, STOPC+9, STOPC+10!
SDSTC	STCHK~, STCHK+3
SDT	STOPC+2*, STOPC+3, STOPC+10!
U	STOPC+6, STOPC+7, STOPC+8, STOPC+9
>> 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