Routine: ADGDSQA1

Information

ADGDSQA1 ; IHS/ADC/PDW/ENM - DAY SURGERY PROVIDER QA REPORT PRINT ; [ 03/25/1999 11:48 AM ]

Package	Total	Call Graph
IHS Changes To ADT	2	(KILL,TIME)^ADGUTIL PRTOPT^ADGVAR
VA Fileman	2	DD^%DT ^DIR
Kernel	1	^%ZISC

Package	Total	Caller Graph
IHS Changes To ADT	1	ADGDSQA

Name	Comments	DBIA/ICR reference
END1
HEAD	;***> subrtn to print heading
END	;***> eoj
A1
NEWPG	;***> subrtn for end of page control
A3
A2
PRINT	;***> print line of data
TOTAL

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(DGDT,4,5)_"/"_$E(DGDT,6,7)_"/"_$E(DGDT,2,3),?11,$E(DGNM,1,20) Line Location: PRINT+1
Function Call: WRITE	Prompt: ?34,DGCHT,?41,$E(DGSRV,1,3) Line Location: PRINT+2
Function Call: WRITE	Prompt: ?70,$E(DGPRC,1,25),?100,$S(DGOBS="":"",1:"OBS ") Line Location: PRINT+4
Function Call: WRITE	Prompt: ?100,$S(DGADM="":"",1:"ADMIT") Line Location: PRINT+5
Function Call: WRITE	Prompt: ?100,$S(DGADWK="":"",1:"ADM W/IN WEEK") Line Location: PRINT+6
Function Call: WRITE	Prompt: ?115,DGCMT Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,DGLIN1,!?5,"TOTAL PATIENTS: ",+DGCNT Line Location: TOTAL+0
Function Call: WRITE	Prompt: @IOF Line Location: END1+0
Function Call: WRITE	Prompt: @IOF Line Location: HEAD+1
Function Call: WRITE	Prompt: ?11,"***Confidential Patient Data Covered by Privacy Act***" Line Location: HEAD+3
Function Call: WRITE	Prompt: !,DGDUZ,?132-$L(DGFAC)\2,DGFAC,?125,"Page ",DGPAGE Line Location: HEAD+4
Function Call: WRITE	Prompt: ! Line Location: HEAD+5
Function Call: WRITE	Prompt: ?49,"DAY SURGERY PROVIDER QA REPORT" Line Location: HEAD+5
Function Call: WRITE	Prompt: !,Y,?48,DGDTLIN,! Line Location: HEAD+6
Function Call: WRITE	Prompt: !,"DATE",?11,"PATIENT",?34,"HRCN",?41,"SRV",?47,"PROVIDER" Line Location: HEAD+7
Function Call: WRITE	Prompt: ?70,"PROCEDURE",?100,"ACTION",?117,"COMMENTS",!,DGLIN Line Location: HEAD+8
Routine Call	DIR Line Location: NEWPG+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	ADGDSQA1+9, END1
^DIC(4 - [#4]	ADGDSQA1+4
^TMP($J	A1, A2, A3, END1+1!
^VA(200 - [#200]	ADGDSQA1+5, PRINT+3

Name	Field # of Occurrence
^(	A3
^(0	PRINT+3

Name	Field # of Occurrence
>> DFN	A2, A3
>> DGADM	ADGDSQA1+10, A3+5, PRINT+5
>> DGADWK	ADGDSQA1+10, A3+7, PRINT+6
>> DGBDT	ADGDSQA1+7
>> DGCHT	ADGDSQA1+10, A3+3, PRINT+2
>> DGCMT	A3+7*, PRINT+7
>> DGCNT	ADGDSQA1+10, A3+7, TOTAL
>> DGDT	ADGDSQA1+10, A1, A2, A3, PRINT+1
>> DGDTLIN	ADGDSQA1+8*, HEAD+6
>> DGDUZ	ADGDSQA1+5*, HEAD+4
>> DGEDT	ADGDSQA1+7
>> DGFAC	ADGDSQA1+4*, HEAD+4
>> DGLIN	ADGDSQA1+6*, HEAD+8
>> DGLIN1	ADGDSQA1+6*, TOTAL
>> DGNM	A1, A2, A3, PRINT+1
>> DGOBS	ADGDSQA1+10, A3+5, PRINT+4
>> DGPAGE	ADGDSQA1+4, NEWPG+2, HEAD+1, HEAD+2, HEAD+4
>> DGPRC	ADGDSQA1+10, A3+5, PRINT+4
>> DGPRV	ADGDSQA1+10, A3+3, PRINT+3
>> DGSRV	A3+3*, PRINT+2
>> DGSTOP	PRINT+8, NEWPG+1, NEWPG+2, NEWPG+3
>> DGSTR	A3*, A3+3, A3+5, A3+7
>> DGX	ADGDSQA1+7*, ADGDSQA1+8
>> DGY	ADGDSQA1+7*, ADGDSQA1+8
>> DGZRM	ADGDSQA1+9*, END1
DIR	NEWPG+2!
DIR(0	NEWPG+2*
DT	HEAD+6
DUZ	ADGDSQA1+5
DUZ(2	ADGDSQA1+4
IOF	END1, HEAD+1
IOM	ADGDSQA1+9
IOSL	PRINT+8
IOST	END+1, NEWPG+1, HEAD+1
U	ADGDSQA1+4, ADGDSQA1+5, A3+3, A3+5, A3+7, PRINT+3, PRINT+8, NEWPG+3
>> X	ADGDSQA1+9, END1, NEWPG+2
>> Y	ADGDSQA1+7, HEAD+6