Routine: SDAMOW1

Information

SDAMOW1 ;ALB/CAW - Waiting Time Report (con't) ; 8-NOV-93

Source Information

Source file <SDAMOW1.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Scheduling	5	$$FIND^SDAM2 $$LINE^SDAMOW ($$REJECT,STORE)^SDAMOWB PRINT^SDAMOWP ^SDAMOWP1
Kernel	2	HOME^%ZIS ^%ZISC
Registration	1	($$FDATE,PAUSE)^VALM1
VA Fileman	1	DW^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SDAMOW

Entry Points

Name	Comments	DBIA/ICR reference
QTPRAPP
DISP()	; -- display selection choices ; input: all selection variables ; output: none ; return: displayed w/o mishap [ 1\|yes 0\|no]
INIT()	; init variables
STARTQ
PROCAPPT	;process each appointment ; INPUT: ; SDOPEINE - INE of Outpatient Encounter File #409.68 ; SDT - Appointment Date/Time ; OUTPUT: ; DFN - IEN of Patient File #2 ; SDCLIN - Clinic, Pointer to Hospital Location File #44 ; SDSTOP - Stop Code Number Pointer to Clinic Stop #40.7 ; SDDIV - Division, Pointer to MC Division File #40.8 ; SDCHKIN - Checkin Date/Time in FM format ; SDCHKOUT - Checkout Date/Time "
START	; -- entry point to start
BUILD	;build tmp array with line values & summary totals
DISPQ

External References

Name	Field # of Occurrence
DW^%DTC	PROCAPPT+22
HOME^%ZIS	DISP+5
^%ZISC	STARTQ
$$FIND^SDAM2	PROCAPPT+27
$$LINE^SDAMOW	DISP+6, DISP+16
$$REJECT^SDAMOWB	PROCAPPT+33
STORE^SDAMOWB	PROCAPPT+34
PRINT^SDAMOWP	START+5
^SDAMOWP1	DISP+8
$$FDATE^VALM1	DISP+7
PAUSE^VALM1	DISP+15

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,*13 Line Location: DISP+5
Function Call: WRITE	Prompt: $$LINE^SDAMOW("Report Specifications") Line Location: DISP+6
Function Call: WRITE	Prompt: !!," Appointment Dates: ",$$FDATE^VALM1(SDBEG)," to ",$$FDATE^VALM1(SDEND) Line Location: DISP+7
Function Call: WRITE	Prompt: !!?15,"Divisions",?55,$S(SDSORT=1!(SDSORT=2):"Clinics",SDSORT=5:"Patients",1:"Stop Codes") Line Location: DISP+9
Function Call: WRITE	Prompt: !?15,"---------",?55,"----------",! Line Location: DISP+10
Function Call: WRITE	Prompt: ?15,$S(D:VAUTD(D),1:D) Line Location: DISP+12
Function Call: WRITE	Prompt: ?55,$S(C:VAUTC(C),1:C) Line Location: DISP+13
Function Call: WRITE	Prompt: ?55,$S(S:VAUTS(S),1:S) Line Location: DISP+14
Function Call: WRITE	Prompt: !,$$LINE^SDAMOW("") Line Location: DISP+16
Routine Call	%ZIS Line Location: DISP+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PROCAPPT+17
^SC - [#44]	PROCAPPT+27
^SCE - [#409.68]	PROCAPPT+13
^SCE("B"	BUILD+3, BUILD+4
^TMP("SDWAIT"	START+1!, START+6!
^TMP("SDWTTOT"	START+1!, START+6!
^TMP("SDWTTOTD"	START+6!
^TMP("SDWTTOTG"	START+6!

Label References

Name	Line Occurrences
$$INIT	START+4
BUILD	START+5
DISPQ	DISP+15
PROCAPPT	BUILD+4
QTPRAPP	PROCAPPT+14, PROCAPPT+16, PROCAPPT+17, PROCAPPT+19, PROCAPPT+26, PROCAPPT+31, PROCAPPT+33
STARTQ	START+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %Y	PROCAPPT+23
>> C	DISP+11, DISP+13, DISP+15*
>> D	DISP+11, DISP+12, DISP+15*
>> DFN	PROCAPPT+14*, PROCAPPT+17, PROCAPPT+25, PROCAPPT+27, PROCAPPT+34
>> I	DISP+15*
IO	START+2
IOF	DISP+5
IOM	INIT+1
PC	PROCAPPT+12~
>> S	DISP+11, DISP+14, DISP+15*
SDAMDD	START+3~
SDASH	START+3~, INIT+1*
>> SDASH1	INIT+1*
SDATA	STARTQ+1!
SDATE	STARTQ+1!
>> SDBEG	BUILD+2, DISP+7
SDCHKIN	STARTQ+1!, PROCAPPT+28*, PROCAPPT+30
SDCHKOUT	STARTQ+1!, PROCAPPT+29*, PROCAPPT+30
SDCKNODE	PROCAPPT+12~, PROCAPPT+27*, PROCAPPT+28, PROCAPPT+29
SDCLIN	STARTQ+1!, PROCAPPT+20*, PROCAPPT+25, PROCAPPT+27, PROCAPPT+34
SDDATA	STARTQ+1!, PROCAPPT+32*
SDDAY	STARTQ+1!, PROCAPPT+23*, PROCAPPT+25
SDDIV	STARTQ+1!, PROCAPPT+24*, PROCAPPT+25, PROCAPPT+34
SDDIVNAM	STARTQ+1!
>> SDEND	BUILD+3, DISP+7
SDENODE	PROCAPPT+12~, PROCAPPT+13*, PROCAPPT+14, PROCAPPT+16, PROCAPPT+19, PROCAPPT+20, PROCAPPT+21, PROCAPPT+24
SDLEN	START+3~, INIT+1*
SDOPEIEN	STARTQ+1!, BUILD+3, BUILD+4, PROCAPPT+13
SDOTTIME	STARTQ+1!
SDPAGE	START+3~, INIT+1*
SDRT	START+3~
>> SDSORT	PROCAPPT+34, DISP+8, DISP+9, DISP+14
SDSTOP	STARTQ+1!, PROCAPPT+21*, PROCAPPT+25, PROCAPPT+34
SDT	STARTQ+1!, BUILD+2, BUILD+3, BUILD+4, PROCAPPT+17, PROCAPPT+22, PROCAPPT+27, PROCAPPT+34
SDTMPND	PROCAPPT+12~
SDTTTIME	STARTQ+1!
SDWTTIME	STARTQ+1!
SDX	PROCAPPT+12~, PROCAPPT+25, PROCAPPT+26, PROCAPPT+30, PROCAPPT+31, PROCAPPT+32
U	PROCAPPT+14, PROCAPPT+16, PROCAPPT+17, PROCAPPT+19, PROCAPPT+20, PROCAPPT+21, PROCAPPT+24, PROCAPPT+25, PROCAPPT+28, PROCAPPT+29 , PROCAPPT+30, PROCAPPT+32
VAERR	STARTQ+1!
>> VAUTC	DISP+13
>> VAUTC(	DISP+13, DISP+15
>> VAUTC(0	DISP+13
>> VAUTD	DISP+12
>> VAUTD(	DISP+12, DISP+15
>> VAUTD(0	DISP+12
VAUTS	STARTQ+1!, DISP+14
VAUTS(	DISP+14, DISP+15
VAUTS(0	DISP+14
>> X	PROCAPPT+22*
>> Y	DISP+15, DISP+17*, DISPQ
>> ZTQUEUED	STARTQ

Marked Items

Name	Field # of Occurrence
$T(SORT1+SDSORT^SDAMOWP1	DISP+8

Customize PDF page

Package: Scheduling

Routine: SDAMOW1

Call Graph Total: 9

Caller Graph Total: 1