Routine: DGEEREIM

Information

DGEEREIM ;ALB/BRM;Reimbursable Primary Eligibility Code Report ; 5/23/05 11:04am

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT
VA Fileman	3	NOW^%DTC $$EXTERNAL^DILFD ^DIR

Package	Total	Caller Graph
Registration	1	DG REIMBURSABLE PRIM EC RPT

Name	Comments	DBIA/ICR reference
QUETASK	; Queue the DMZ/Reimbursable Stats job
HDR	; Report Header
PAUSE	; Screen pause. Sets QUIT=1 if user decides to quit.
PSET	; set up printer variables
REPORT	;report results
LOOP	; entry point

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Job Terminated!" Line Location: QUETASK+4
Function Call: WRITE	Prompt: !,?((IOM-40)\2),"Reimbursable Insurance Primary EC Report" Line Location: HDR+1
Function Call: WRITE	Prompt: !,?((IOM-22-$L(RDT))\2),"Date/Time Report Run: ",RDT Line Location: HDR+2
Function Call: WRITE	Prompt: !!,?((IOM-35-$L(RCNT))\2),"Total Patients with RI Primary EC: ",RCNT Line Location: HDR+3
Function Call: WRITE	Prompt: !,LINE Line Location: HDR+4
Function Call: WRITE	Prompt: !!,?5,"SSN",?17,"NAME",?50,"PRIMARY ELIG. CODE" Line Location: HDR+5
Function Call: WRITE	Prompt: !,?5,"---------",?17,"------------------------------" Line Location: HDR+6
Function Call: WRITE	Prompt: ?50,"-------------------" Line Location: HDR+7
Function Call: WRITE	Prompt: @IOF Line Location: REPORT+2
Function Call: WRITE	Prompt: @IOF Line Location: REPORT+6
Function Call: WRITE	Prompt: ! Line Location: PAUSE+2
Function Call: WRITE	Prompt: !,?68,"Page: "_PAGE,! Line Location: PAUSE+3
Routine Call	%ZIS Line Location: QUETASK+10 LOOP+21
Routine Call	DIR Line Location: PAUSE+4
Routine Call	%ZIS Line Location: QUETASK+4

FileNo	Call Tags
^DPT - [#2]	EXTERNAL^DILFD

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PSET+5
^DIC(8 - [#8]	LOOP+6
^DIC(8.1 - [#8.1]	LOOP+4
^DPT - [#2]	LOOP+9, LOOP+11, LOOP+13, LOOP+17
^TMP($J	QUETASK+3!, LOOP+16, LOOP+18, PSET+7, REPORT+4, REPORT+5

Name	Field # of Occurrence
%	LOOP+2~, PSET+5
%ZIS	QUETASK+2~, QUETASK+4*
CRT	LOOP+2~, PSET+2*, REPORT+2, REPORT+6
DATA	LOOP+2~, REPORT+5*, REPORT+7
DFN	LOOP+1~, LOOP+8, LOOP+9, LOOP+11, LOOP+13, LOOP+17
DIR	PAUSE+1~
DIR(0	PAUSE+4*
DIRUT	LOOP+2~, PAUSE+4
EC8	LOOP+2~, LOOP+4*, LOOP+6
EC81	LOOP+2~, LOOP+5, LOOP+6, LOOP+13, LOOP+14, LOOP+15
ELIG	LOOP+1~
ELIG(	LOOP+6*, LOOP+14
IO	QUETASK+1~, LOOP+19
IO("Q"	QUETASK+5
IOBS	QUETASK+1~
IOF	QUETASK+1~, REPORT+2, REPORT+6
IOHG	QUETASK+1~
IOM	QUETASK+1~, PSET+4, HDR+1, HDR+2, HDR+3
ION	QUETASK+1~
IOPAR	QUETASK+1~
IOS	QUETASK+2~
IOSL	QUETASK+2~, REPORT+6, PAUSE+2
IOST	QUETASK+2~, PSET+2
IOT	QUETASK+2~
IOUPAR	QUETASK+2~
IOXY	QUETASK+2~
LINE	LOOP+2~, PSET+4*, HDR+4
NAME	LOOP+2~, LOOP+17*, LOOP+18
PAGE	LOOP+2~, REPORT+2, REPORT+3, REPORT+6, PAUSE+3
POP	QUETASK+1~, QUETASK+4
PRIMEC	LOOP+2~, LOOP+13*, LOOP+15, LOOP+18
QFLG	LOOP+1~, LOOP+13, LOOP+14, LOOP+16
QUIT	LOOP+1~, REPORT+4, REPORT+6, PAUSE+4*
RCNT	LOOP+1~, PSET+7*, HDR+3
RDT	LOOP+1~, PSET+3, PSET+6, HDR+2
SSN	LOOP+17, LOOP+18, REPORT+1~, REPORT+4, REPORT+5, REPORT+7
TXT	QUETASK+1~, QUETASK+9*, QUETASK+11
X	LOOP+2~, PAUSE+1~
X1	LOOP+2~
X2	LOOP+2~
Y	PSET+3, PSET+5, PSET+6, PAUSE+1~, PAUSE+4
ZTDESC	QUETASK+1~, QUETASK+7*
ZTDTH	QUETASK+1~, QUETASK+6*
ZTIO	QUETASK+1~
ZTRTN	QUETASK+1~, QUETASK+6*
ZTSAVE	QUETASK+2~
ZTSK	QUETASK+1~, QUETASK+9
ZZ	LOOP+1~, PSET+1~, PSET+4*