Routine: ACHSOCSP

Package	Total	Call Graph
Contract Health Management Information System	3	($$LOC,ERPT,RTRN)^ACHS BRPT^ACHSFU ^ACHSVAR
Kernel	2	($$FMTE,$$HTE)^XLFDT $$REPEAT^XLFSTR
IHS VA Utilities	1	EN^XBVK

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSOCSC

Entry Points

Name	Comments	DBIA/ICR reference
P1A	;
SUBTOTL	;
P1	;
END	;Close device, kill variables, quit
HEADER	;Prints heading
TOTAL	;
HEADER1	;
NODATA	;

External References

Name	Field # of Occurrence
$$LOC^ACHS	HEADER+5
ERPT^ACHS	END+2
RTRN^ACHS	P1A+17, TOTAL+5, NODATA+3
BRPT^ACHSFU	ACHSOCSP+5
^ACHSVAR	END+2
EN^XBVK	END+2
$$FMTE^XLFDT	HEADER+9
$$HTE^XLFDT	HEADER+3
$$REPEAT^XLFSTR	P1A+3, SUBTOTL+1, TOTAL+1, HEADER+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(ACHSOCD,1,30),$J($FN(ACHSDOCS,","),10),$J($FN(ACHSOBS,",",2),16),$J($FN(ACHSPMS,",",2),16),$J($FN(ACHSWKL,","),8) Line Location: P1A+13
Function Call: WRITE	Prompt: !,?12,"Paid Doc(s)",?30,$J(ACHSPDOC,10),?45,"Blankets/Special Doc(s): ",ACHSBLKT,! Line Location: P1A+15
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("-",80),!,"SUBTOTAL",$$REPEAT^XLFSTR(" ",22),$J($FN(ACHSDST,","),10),$J("$"_$FN(ACHSOBST,",",2),16),$J("$"_$FN(ACHSPMST,",",2),16),$J($FN(ACHSWKLD,","),8) Line Location: SUBTOTL+1
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF PAYMENT TO OBLIGATED",?54,$J($FN(X,",",2),8),"%" Line Location: SUBTOTL+3
Function Call: WRITE	Prompt: !!,"PERCENTAGE OF POSTED PAYMENTS TO OBLIGATED",?54,$J($FN(X,",",2),8),"%" Line Location: SUBTOTL+4
Function Call: WRITE	Prompt: !!,"OBLIGATED PAYMENT RECONCILE AMT",?45,$J($FN(ACHSOBX,",",2),10) Line Location: SUBTOTL+5
Function Call: WRITE	Prompt: !!,"PAYMENT ADJUSTMENT RECONCILE AMT",?45,$J($FN(ACHSZAT,",",2),10) Line Location: SUBTOTL+6
Function Call: WRITE	Prompt: !!!!,$$REPEAT^XLFSTR("=",80),!!,"TOTAL",$$REPEAT^XLFSTR(" ",25),$J($FN(ACHSDOCT,","),10),$J("$"_$FN(ACHSOBT,",",2),16),$J("$"_$FN(ACHSPMTT,",",2),16),$J($FN(ACHSWKTO,","),8),! Line Location: TOTAL+1
Function Call: WRITE	Prompt: !,"PERCENTAGE OF PAYMENT TO TOTAL OBLIGATED",?54,$J($FN(Z,",",2),8),"%" Line Location: TOTAL+2
Function Call: WRITE	Prompt: !!,"TOTAL DOCUMENTS IN PAID STATUS: ",?20,$J(ACHSPSCC,10) Line Location: TOTAL+4
Function Call: WRITE	Prompt: !!!,"NO DATA FOR SPECIFIED ",$S(ACHSFY:"FISCAL YEAR",1:"DATES"),".",!!!! Line Location: NODATA+2
Function Call: WRITE	Prompt: @IOF Line Location: HEADER+1
Function Call: WRITE	Prompt: !,"*",$P(Y,"@",1) Line Location: HEADER+4
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X Line Location: HEADER+5
Function Call: WRITE	Prompt: ?71,ACHSTIM,"",!,"User: ",ACHSUSR,?70,"Device:",IO,"*",!! Line Location: HEADER+6
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X_ACHSPAGE,! Line Location: HEADER+8
Function Call: WRITE	Prompt: ?((80/2)-($L(X)/2)),X,!,$$REPEAT^XLFSTR("*",80) Line Location: HEADER+10
Function Call: WRITE	Prompt: !!,"OBJCODE",?32,"#_DOCS_#",?46,"$_OBLIGD_$",?61,"$_PAYMENT_$ WORKLD" Line Location: HEADER1+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ACHSOCSQ"	ACHSOCSP+8, P1+1, P1A+1, P1A+4, END+4!

Label References

Name	Line Occurrences
END	ACHSOCSP+8, P1A+17
HEADER	P1+3, P1A+17, NODATA+1
HEADER1	P1+3, P1A+17
NODATA	ACHSOCSP+8
P1	P1A+2
P1A	P1A+18
SUBTOTL	P1A+2
TOTAL	P1+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHSBDT	HEADER+9
>> ACHSBLKT	P1A+11, P1A+12, P1A+15
>> ACHSBM	ACHSOCSP+6*, P1A+17
>> ACHSDOC	ACHSOCSP+6, ACHSOCSP+7
>> ACHSDOCS	ACHSOCSP+7, P1A+5, P1A+13, P1A+16
>> ACHSDOCT	ACHSOCSP+7, SUBTOTL+8, TOTAL+1
>> ACHSDST	ACHSOCSP+7, P1A+16, SUBTOTL+1, SUBTOTL+8, SUBTOTL+10*
>> ACHSEDT	HEADER+9
>> ACHSFAC	ACHSOCSP+9, P1+1, P1+2, P1A+1, P1A+4
>> ACHSFY	NODATA+2, HEADER+9
>> ACHSOB	ACHSOCSP+6, ACHSOCSP+7
>> ACHSOBS	ACHSOCSP+7, P1A+6, P1A+13, P1A+16
>> ACHSOBST	ACHSOCSP+7, P1A+16, SUBTOTL+1, SUBTOTL+4, SUBTOTL+8, SUBTOTL+10*
>> ACHSOBT	ACHSOCSP+7, SUBTOTL+8, TOTAL+1, TOTAL+2
>> ACHSOBX	SUBTOTL+5, SUBTOTL+8
>> ACHSOC	P1+4, P1A+1, P1A+2, P1A+3, P1A+4
>> ACHSOCD	P1A+3*, P1A+13
>> ACHSPAGE	ACHSOCSP+7, P1A+17, SUBTOTL+10, HEADER+2*, HEADER+8
>> ACHSPAY	ACHSOCSP+6*
>> ACHSPDOC	P1A+10*, P1A+15
>> ACHSPMS	ACHSOCSP+7, P1A+7, P1A+13, P1A+16
>> ACHSPMST	ACHSOCSP+7, P1A+16, SUBTOTL+1, SUBTOTL+4, SUBTOTL+8, SUBTOTL+10*
>> ACHSPMT	ACHSOCSP+7*
>> ACHSPMTT	ACHSOCSP+7, SUBTOTL+8, TOTAL+1, TOTAL+2
>> ACHSPSCC	TOTAL+4
>> ACHSQUIT	P1A+17
>> ACHSTIM	HEADER+3*, HEADER+6
>> ACHSUSR	HEADER+6
>> ACHSWKL	P1A+8*, P1A+13, P1A+16
>> ACHSWKLD	ACHSOCSP+7, P1A+16, SUBTOTL+1, SUBTOTL+8, SUBTOTL+10*
>> ACHSWKTO	ACHSOCSP+7, SUBTOTL+8, TOTAL+1
>> ACHSZAT	SUBTOTL+6, SUBTOTL+8
DIR	END+4!
I	END+3!
IO	HEADER+6
IOF	HEADER+1
IOSL	ACHSOCSP+6
U	P1A+3, P1A+5, P1A+6, P1A+7, P1A+8, P1A+10, P1A+11
X	P1A+4, P1A+5, P1A+6, P1A+7, P1A+8, P1A+10, P1A+11, SUBTOTL+4, END+3!, HEADER+5* , HEADER+7, HEADER+8, HEADER+9, HEADER+10
X2	END+4!
>> Y	HEADER+3*, HEADER+4
Z	TOTAL+2*, END+4!
>> ZTQUEUED	END+1
>> ZTREQ	END+1*

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSOCSP

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: