Routine: ACHSRR

Information

ACHSRR ; IHS/ITSC/PMF - RE-PRINT CHS FORMS ; [ 10/16/2001 8:16 AM ]

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Contract Health Management Information System	5	($$DATE,$$DOC)^ACHS READ^ACHSFU B1^ACHSRP ^ACHSUD ^ACHSVAR
IHS VA Utilities	3	$$DIR^XBDIR $$EXTSET^XBFUNC EN^XBVK
Kernel	1	$$FMTE^XLFDT
VA Fileman	1	C^%DTC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSRR

Entry Points

Name	Comments	DBIA/ICR reference
DATES	; Select range of Dates of P.O.'s to print.
B	;
END	;
B0	;
H1	;EP - From DIR via HELP^ACHS().
A0	;; Select;
A3	;
BATPRT	; Batch Reprint.
A5	;
A4	;
A7	;
A6	;
C3	;
A8	;
C1	;
C2	;
CEND	;
B1	;

External References

Name	Field # of Occurrence
C^%DTC	BATPRT+4
$$DATE^ACHS	DATES+1, DATES+2
$$DOC^ACHS	B0+2
READ^ACHSFU	A5+4, A6+2, C3+7, CEND+1, CEND+3
B1^ACHSRP	A3+9, CEND+10
^ACHSUD	A3+2
^ACHSVAR	END+3
$$DIR^XBDIR	A0+13, A4+4, B+1
$$EXTSET^XBFUNC	A4+19
EN^XBVK	END+3
$$FMTE^XLFDT	A4+11, C3+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,"----------------------------------------------------",!?10,"TRANS",?30,"TRANS",!?11,"NUM",?19,"D A T E",?30,"TYPE",?40,"AMOUNT",!?10,"----------------------------------------------------",!! Line Location: A4+3
Function Call: WRITE	Prompt: ?10,$J(ACHSIC,3) Line Location: A4+9
Function Call: WRITE	Prompt: ?17,$$FMTE^XLFDT($P($G(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",T,0)),U)) Line Location: A4+11
Function Call: WRITE	Prompt: ?32,$P($G(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",T,0)),U,2) Line Location: A4+13
Function Call: WRITE	Prompt: $P($G(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",T,0)),U,5) Line Location: A4+15
Function Call: WRITE	Prompt: ?35,$J($FN($P($G(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",T,0)),U,4),",",2),11) Line Location: A4+17
Function Call: WRITE	Prompt: " <",$$EXTSET^XBFUNC(9002080.02,1,$P($G(^ACHSF(DUZ(2),"D",ACHSDIEN,"T",T,0)),U,2)),">",! Line Location: A4+19
Function Call: WRITE	Prompt: !!?10,"Print which transaction? (1-",ACHSIC,") " Line Location: A5+3
Function Call: WRITE	Prompt: !!?10,"Print which other transaction? (1-",ACHSIC,") " Line Location: A6+1
Function Call: WRITE	Prompt: !?10,*7,"Invalid entry - try again." Line Location: A7+3
Function Call: WRITE	Prompt: !!,"Enter the transaction number for the transaction you wish to print.",!! Line Location: A8+1
Function Call: WRITE	Prompt: !!?10,"---------------------------------------------------------",!?10,"ITM #",?19,"D A T E",?30,"FIRST DOC #",?45,"LAST DOC #",?60,"# DOC'S",!?10,"---------------------------------------------------------",!! Line Location: C3+6
Function Call: WRITE	Prompt: !?20,"Enter '^' to CANCEL " Line Location: C3+7
Function Call: WRITE	Prompt: ! Line Location: C3+7
Function Call: WRITE	Prompt: ?10,$J(ACHSIC,3),?17,$$FMTE^XLFDT($P($G(^ACHS(7,ACHSRR,0)),U,2)),?30,$P(ACHSWORK(ACHSIC),U,2),?45,$P(ACHSWORK(ACHSIC),U,3),?61,$J($P(ACHSWORK(ACHSIC),U,4),3),! Line Location: C3+9
Function Call: WRITE	Prompt: !!,"No 'Batches' on File for Reprinting ",!,"Press RETURN..." Line Location: CEND+1
Function Call: WRITE	Prompt: !!?10,"ENTER ITEM # : " Line Location: CEND+2
Function Call: WRITE	Prompt: " Invalid Selection -- TRY AGAIN",*7 Line Location: CEND+5
Function Call: WRITE	Prompt: !!,"Enter Item Number of 'BATCH' of Documents you wish to REPRINT " Line Location: CEND+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(7 - [#9002067]	B1+1, B1+3, B1+5!, B1+6!, B1+7!, B1+8*, C2+1, C3+1, C3+2, C3+4 , C3+8, C3+9, CEND+9
^ACHSF - [#9002080]	A4+1, A4+11, A4+13, A4+15, A4+17, A4+19, BATPRT+3, CEND+9
^TMP("ACHSDUZ2"	END+2*, END+4
^TMP("ACHSRR"	A0+9!, A3+5, A3+9, B0+4, CEND+9

Label References

Name	Line Occurrences
A0	A0+12, A3+5, CEND+7, CEND+11
A3	A7+1, B+2, B+4
A4	A4+1, A4+20
A5	A4+1, A4+6, A7+3
A6	A7+3, A7+5, A8+2
A7	A5+5
A8	A7+1
ACHSRR	CEND+1, CEND+7
B	A5+1
B0	A7+4, B+3
B1	B1+3
BATPRT	A0+15
C1	B1+2
C2	C3+2
C3	C3+2, C3+10
CEND	C2+2, C3+7, CEND+5, CEND+6
END	A0+14, A3+4, A3+9, A4+5, CEND+4

Naked Globals

Name	Field # of Occurrence
^(	A4+1, C3+4
^($J	END+4!
^(0	BATPRT+3, CEND+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	C3+3, C3+4, C3+8, END+1!
>> ACHS	A0+11, A0+12, A0+13, B1+3, C3+4
>> ACHS(	A0+11*
>> ACHS("PASS"	A5+2, A7+3, B0+3
>> ACHSALL	A0+8*
>> ACHSBDT	DATES+1*
>> ACHSDIEN	A3+5, A3+9, A4+1, A4+11, A4+13, A4+15, A4+17, A4+19, B0+4
>> ACHSDUZ2	END+2, END+4*
>> ACHSEDT	DATES+2*
>> ACHSIC	A3+10, A4+2, A4+3, A4+4, A4+7, A4+9, A5+1, A5+3, A6+1, A7+3 , C1+1, C3+5, C3+6, C3+7, C3+8, C3+9, CEND+1, CEND+5, CEND+7
>> ACHSKDT	BATPRT+5*, B1+3
>> ACHSREG	A0+8*
>> ACHSRPNT	A0+8*
>> ACHSRR	BATPRT+5, B1+3, B1+5, B1+6, B1+7, C1+1, C3+1, C3+2, C3+4, C3+8 , C3+9, CEND+8*, CEND+9
>> ACHSTOS	B0+2, B0+4, CEND+9
ACHSWORK	A3+11!, C1+2!
ACHSWORK(	A4+7, B0+1, C3+8, C3+9, CEND+5, CEND+8
>> ACHSXD	CEND+9*
>> ACHSXDT	B1+3*, B1+6
>> ACHSXS	CEND+9*
>> ACHSXT	B0+1, B0+4, CEND+9
DT	BATPRT+1
DTOUT	A0+14, A4+5, A7+1, B+2, C3+7, CEND+4, END+1!
DUOUT	A0+14, A3+4, A4+6, A7+1, B+2, C3+7, CEND+4, END+1!
DUZ(2	A4+1, A4+11, A4+13, A4+15, A4+17, A4+19, B0+4, BATPRT+3
R	BATPRT+5, B1+1, B1+2, B1+3, C1+1, C2+1, C2+2, C3+1, CEND+9*, END+1!
T	A3+10, A4+1, A4+7, A4+11, A4+13, A4+15, A4+17, A4+19, END+1!
U	A4+1, A4+11, A4+13, A4+15, A4+17, A4+19, BATPRT+3, B1+3, B1+5, B1+8 , C3+8, C3+9, CEND+8, CEND+9
X	BATPRT+5, END+1!
>> X1	BATPRT+1*
>> X2	BATPRT+3*
>> Y	A0+13, A0+15, A7+1, A7+2, A7+3, B+1*, B+2, B0+1, CEND+4, CEND+5 , CEND+6, CEND+7, CEND+8

Marked Items

Name	Field # of Occurrence
$T(A0	A0+12
$T(A0+ACHS	A0+11

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSRR

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items