Routine: ACHSDFS

Package	Total	Call Graph
Kernel	5	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR
Contract Health Management Information System	1	($$C,$$DATE,$$DF,$$EBB,$$LOC,$$USR,BRPT,ERPT,RTRN)^ACHS

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT $$REPEAT^XLFSTR

($$C,$$DATE,$$DF,$$EBB,$$LOC,$$USR,BRPT,ERPT,RTRN)^ACHS

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS DEF ACCRUEDDEFSVC

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
END	; --- KILL vars, close device, quit.
HDR	; --- Report pagination control.
HDR1	;
BEG	; --- Select Begin/End dates for report.
DEV	; --- Select device for report.
CATTOT	;
PRNT1	;
START	;EP - From TaskMan.
IEN	; --- Process a document.
PRINT	;
PRNTX	;
ISSUEDT	; --- Move thru Issue date x-ref.

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+6
Function Call: WRITE	Prompt: @IOF Line Location: PRINT+5
Function Call: WRITE	Prompt: !?7,ACHDSUB,?60,$J($FN($P($G(^TMP($J,"ACHSDFS",ACHDX,ACHDY,"TOTAL")),U),","),5),$J($FN($P($G(^TMP($J,"ACHSDFS",ACHDX,ACHDY,"TOTAL")),U,2),","),14),! Line Location: PRNTX+3
Function Call: WRITE	Prompt: !!?5,"CATEGORY OF SERVICE: ",ACHDCAT,! Line Location: PRNT1+1
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",79),!!?12,"TOTAL CATEGORY ",ACHDCAT,?60,$J($FN($P($G(^TMP($J,"ACHSDFS",ACHDX,"TOTAL")),U),","),5),$J("$"_$FN($P($G(^TMP($J,"ACHSDFS",ACHDX,"TOTAL")),U,2),","),14) Line Location: CATTOT+1
Function Call: WRITE	Prompt: !!,ACHDCHS,!,ACHDTITL,!,$$C^ACHS("FISCAL YEAR "_ACHDFY,80),!,ACHDFT,!!!,"FACILITY: ",ACHDSU,?(66-$L(ACHDUSR)),"PREPARED BY: ",ACHDUSR,!!!,"CLINICAL DIRECTOR SIGNATURE:",$$REPEAT^XLFSTR("_",51),!!,$$REPEAT^XLFSTR("*",79),!! Line Location: HDR+3
Function Call: WRITE	Prompt: !?7,"SUBCATEGORY OF SERVICE",?60,"UNITS",?70,"EST. COST",!,$$REPEAT^XLFSTR("-",79),! Line Location: HDR1+1
Routine Call	%ZIS Line Location: DEV+3
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEF - [#9002066]	ISSUEDT+1, IEN+1, IEN+2, IEN+5
^ACHSDFC - [#9002066.5]	PRINT+5, PRNTX+2
^TMP($J	START+2!, PRINT+2*, PRINT+5, PRNTX+2, PRNTX+3, CATTOT+1

Name	Field # of Occurrence
>> %	DEV+11*
>> %ZIS	DEV+1*
ACHD	END+1!
ACHDBDT	BEG+2*, BEG+3, BEG+7, DEV+9, END+1!, START+8, START+9
ACHDCAT	START+1~, ISSUEDT+4, IEN+10, IEN+11, IEN+12, IEN+13, IEN+14, PRINT+5*, PRNT1+1, CATTOT+1
ACHDCHS	END+1!, START+5*, HDR+3
ACHDCNT	START+1~
ACHDCNT(	IEN+11, IEN+13, PRINT+2
ACHDCOST	END+1!, IEN+7*, IEN+12, IEN+14
ACHDEDT	BEG+5*, BEG+6, BEG+7, DEV+9, END+1!, START+8, ISSUEDT+2
ACHDFT	START+1~, START+8*, HDR+3
>> ACHDFY	START+10, HDR+2, HDR+3
>> ACHDFY(1	ISSUEDT+3*, HDR+2
ACHDHAT	BEG+8*, END+1!
>> ACHDISDT	START+9, START+10, ISSUEDT+1, ISSUEDT+2, ISSUEDT+3, IEN+1
ACHDSU	START+1~, START+8*, HDR+3
ACHDSUB	START+1~, ISSUEDT+4, IEN+10, IEN+13, IEN+14, PRNTX+2*, PRNTX+3
>> ACHDTITL	START+7*, HDR+3
ACHDTOT	START+1~
ACHDTOT(	IEN+12, IEN+14, PRINT+2
ACHDTYPE	START+1~, ISSUEDT+4, IEN+6
ACHDUNIT	END+1!, IEN+8*, IEN+11, IEN+13
>> ACHDUSR	START+8*, HDR+3
>> ACHDX	PRINT+4, PRINT+5, PRNTX+2, PRNTX+3, CATTOT+1
>> ACHDY	PRNTX+1, PRNTX+2, PRNTX+3
>> ACHSA	ISSUEDT+4, IEN+1, IEN+2, IEN+5
>> ACHSBM	PRNTX+4
ACHSQIO	DEV+9*, END+1!
DUZ(2	ISSUEDT+1, IEN+1, IEN+2, IEN+5
IO("Q"	DEV+4, DEV+5!
IO("S"	DEV+6
IOF	PRINT+5
IOM	DEV+9
ION	DEV+9
IOST	DEV+6, DEV+9
>> POP	DEV+3
U	IEN+6, IEN+7, IEN+8, IEN+9, IEN+10, PRINT+2, PRINT+5, PRNTX+2, PRNTX+3, CATTOT+1
>> X	IEN+5, IEN+6, IEN+7, IEN+8, IEN+9, IEN+10, PRINT+1, PRINT+2*
>> Y	PRINT+2*
>> ZTDESC	DEV+9*
ZTIO	END+1!
>> ZTRTN	DEV+9*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, END+1!

Information