Routine: IBDFOSG3

Information

IBDFOSG3 ;ALB/MAF/AAS - NUMBER OF ENCOUNTERS WITH CPT'S AND DX'S REPORT ;3/18/96

Source file <IBDFOSG3.m>

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD ($$FMTE,$$HTE)^XLFDT
Registration	3	PAUSE^VALM1 $$SITE^VASITE DIVISION^VAUTOMA
VA Fileman	2	DD^%DT DT^DICRW
Automated Information Collection System	1	START^IBDFOSG4

Name	Comments	DBIA/ICR reference
PR	;
QUIT
END	; -- Clean up
HDR	; -- Print header for report
DIVH	; -- Write division header
DASH
DEV	; -- select device, run option
ONEMN	; -- Print one months data
PRINT	; -- print report ; Data sorted into ^tmp arrays ; ; Monthly Totals := ^tmp("mnth",$j,division,year/month)= ; Division Totals := ^tmp("dtot",$j,division) = ; Grand Totals := ^tmp("gtot",$j) =
ONEDV	; -- Print Division totals
DATE	; -- select date
LINE(NAME,IBX)	; ; -- print detail line ; input Name := text to be printed ; ibx ;= 3 piece global node containing data
DQ

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Number of Encounters with CPT, Diagnosis" Line Location: IBDFOSG3+5
Function Call: WRITE	Prompt: ! Line Location: END+1
Function Call: WRITE	Prompt: !!,"No Data Meeting This Criteria for the Date Range Chosen",! Line Location: PR+1
Function Call: WRITE	Prompt: !,$E(NAME,1,35) Line Location: LINE+6
Function Call: WRITE	Prompt: ?39,$J($P(IBX,"^",2),8) Line Location: LINE+7
Function Call: WRITE	Prompt: ?57,$J($P(IBX,"^",3),8) Line Location: LINE+8
Function Call: WRITE	Prompt: @IOF Line Location: HDR+3
Function Call: WRITE	Prompt: !,"# Encounters / CPT's, Dx",?(IOM-33),"Page ",IBPAG," ",IBHDT Line Location: HDR+5
Function Call: WRITE	Prompt: !,"For Period beginning on ",$$FMTE^XLFDT(IBBDT,2)," to ",$$FMTE^XLFDT(IBEDT,2) Line Location: HDR+6
Function Call: WRITE	Prompt: !,?44,"CPT",?56,"Diagnosis" Line Location: HDR+7
Function Call: WRITE	Prompt: !,$TR($J(" ",IOM)," ","-") Line Location: HDR+8
Function Call: WRITE	Prompt: !!,"....task stopped at user request" Line Location: HDR+9
Function Call: WRITE	Prompt: ! Line Location: QUIT+0
Function Call: WRITE	Prompt: !,"------------------",?39,"--------",?57,"--------" Line Location: DASH+0
Function Call: WRITE	Prompt: !!,?(IOM-$L(IBDFDV)+10/2),"DIVISION: ",IBDFDV_" ("_$P($$SITE^VASITE(,$O(^DG(40.8,"B",IBDFDV,0))),"^",3)_")",! Line Location: DIVH+3
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("RM"	DEV+5
^DG(40.8 - [#40.8]	ONEDV+5, DIVH+3
^DG(43 - [#43]	%+3
^TMP("DTOT"	END+1!, PR+15, ONEDV+3, ONEDV+5, QUIT!, DIVH+2
^TMP("GTOT"	END+1!, PR+18, QUIT!
^TMP("MNTH"	END+1!, PR+1, PR+4, PR+7, ONEMN+3, ONEMN+5, QUIT!

Name	Field # of Occurrence
>> %ZIS	DEV+1*
>> DIRUT	HDR+2
DT	%
IBBDT	DATE+1*, END+4!, PRINT+8, HDR+6
IBCLIN	END+5!
IBCS	END+4!
IBDDT	END+4!
IBDDT1	END+4!
IBDFBEG	DATE+1*, END+5!
IBDFCL	PR+2~, PR+3, PR+13
IBDFDAT	%+4*, END+5!
IBDFDIV	END+5!, PR+4, PR+15
IBDFDV	PR+2~, PR+3, PR+4, PR+7, PR+13, PR+15, ONEMN+3, ONEMN+5, ONEDV+3, ONEDV+5 , DIVH+2, DIVH+3
IBDFDVE	END+5!, PRINT+7, PR+7, PR+10, ONEDV+4
IBDFEND	DATE+1*, END+5!
IBDFMN	END+4!, PR+6, PR+7, ONEMN+3, ONEMN+4, ONEMN+5
IBDFMN1	END+4!, ONEMN+4*, ONEMN+5
IBDFMNI	END+4!, PR+7*
IBDFN	END+4!
IBDFNM1	ONEMN+2~
IBDFPAT	PR+2~
IBDFPT	PR+2~, PR+3, PR+13
IBDFT	PR+2~
IBDFTMP	PR+2~
IBDIV	END+4!
IBDIVNM	END+4!
IBDNODE	PR+2~
IBEDT	DATE+1*, END+5!, PRINT+8, HDR+6
IBFLG4	END+5!, PR+14*, ONEDV+3
IBHDT	END+5!, PRINT+7*, HDR+5
IBI	END+4!
IBIFN	END+4!
IBJ	END+4!
IBMNTH	END+4!
IBNODE	END+4!
IBPAG	END+5!, PRINT+7, HDR+2, HDR+3, HDR+4, HDR+5
IBPARNT	END+4!
IBPIECE	END+4!
IBPR	END+4!
IBPROC	END+4!
IBQUIT	END+5!, PRINT+7, PR+4, PR+11, PR+15, PR+16, ONEMN+1, ONEDV+1, ONEDV+2, LINE+5 , HDR+1, HDR+2, HDR+9*, DIVH+1
IBSTOP	END+4!
IBTSBDT	END+5!, PRINT+8*
IBTSEDT	END+5!, PRINT+8*
IBX	LINE~, LINE+7, LINE+8
IO	DEV+4
IO("Q"	DEV+2!
IOF	HDR+3
IOM	HDR+5, HDR+8, DIVH+3
IOSL	ONEDV+2, LINE+5, DIVH+1
IOST	HDR+2, HDR+3
NAME	LINE~, LINE+6
POP	DEV+1, END+4!
SDCNT	END+4!
SDDXY	END+5!
U	END+4!
VAUTD	%+3*, END+5!
X	DEV+5*, END+5!
Y	%+3, END+5!, ONEMN+4*
>> ZTDESC	DEV+2*
>> ZTQUEUED	END+2, HDR+9
>> ZTREQ	END+2*
>> ZTRTN	DEV+2*
>> ZTSAVE("IB*"	DEV+2*
>> ZTSAVE("VA*"	DEV+2*
ZTSK	DEV+2!
>> ZTSTOP	HDR+9*