Routine: ACHSPCC5

Package	Total	Call Graph
Contract Health Management Information System	3	($$AOP,$$LOC,$$PB,NOW,RTRN)^ACHS LINES^ACHSFU ^ACHSVAR
IHS VA Utilities	3	$$DIR^XBDIR VIEWR^XBLM EN^XBVK
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package

Total

Call Graph

Contract Health Management Information System

($$AOP,$$LOC,$$PB,NOW,RTRN)^ACHS LINES^ACHSFU ^ACHSVAR

IHS VA Utilities

$$DIR^XBDIR VIEWR^XBLM EN^XBVK

Kernel

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSAREA DHR LIST ACHSPCC4

Package

Total

Caller Graph

Contract Health Management Information System

ACHSAREA DHR LIST ACHSPCC4

Name	Comments	DBIA/ICR reference
SITENAME	;
END	;
LEND	;
H2	;
FMT	;
H1	;
DEV	;
START	;EP - TaskMan.
L2	;
L3	;
K	;

External References

Name	Field # of Occurrence
^%ZIS	DEV+5
HOME^%ZIS	ACHSPCC5+5, DEV+7
^%ZISC	DEV+10, K+2, END+3
^%ZTLOAD	DEV+15
$$AOP^ACHS	DEV+11
$$LOC^ACHS	ACHSPCC5+6
$$PB^ACHS	DEV+1
NOW^ACHS	ACHSPCC5+5, START+2
RTRN^ACHS	L3+4, LEND+3, LEND+7
LINES^ACHSFU	ACHSPCC5+5
^ACHSVAR	K+2, END+1
$$DIR^XBDIR	ACHSPCC5+3, FMT+1
VIEWR^XBLM	DEV+3
EN^XBVK	DEV+3, K+2, END+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7,!!,"No data in ^ACHSPCC.",$$DIR^XBDIR("E","Press RETURN...") Line Location: ACHSPCC5+3
Function Call: WRITE	Prompt: @IOF,!,ACHS(""),!,"",?27,"CHS DATA TRANSMITTED TO ",ACHSCCTR,?78,"",!,"",?40-(($L(ACHSTIME)+6)\2),"as of ",ACHSTIME,?78,"",!,"",?40-(($L(ACHS("SITE"))+4)\2),"for ",ACHS("SITE"),?78,"",!,ACHS(""),! Line Location: ACHSPCC5+8
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+10
Function Call: WRITE	Prompt: X,! Line Location: L3+8
Function Call: WRITE	Prompt: !,"DOCUMENT NUMBER : ",$E(X,17),"-",$E(X,18,20),"-",$E(X,21,25),!?2,"EFFECTIVE DATE (MMDDYY): ",$E(X,2,3),"-",$E(X,4,5),"-",$E(X,6,7),?40,"COMMON ACCOUNTING NUMBER : ",$E(X,41,47) Line Location: L3+11
Function Call: WRITE	Prompt: !?8,"DESTINATION CODE : ",$E(X,8,12),?47,"OBJECT CLASS CODE : ",$E(X,48,49),".",$E(X,50,51) Line Location: L3+12
Function Call: WRITE	Prompt: !?16,"REF CODE : ",$E(X,13,15),?46,"IHS PAYMENT AMOUNT : ",+$E(X,52,61),".",$E(X,62,63) Line Location: L3+13
Function Call: WRITE	Prompt: !?13,"FISCAL YEAR : ",$E(X,40),?48,"FED/NON-FED CODE : ",$E(X,64),! Line Location: L3+14
Function Call: WRITE	Prompt: !!,"DHRs : ",ACHSTDHR,!!,"TOTAL RECORDS = ",ACHSRCT Line Location: LEND+2
Function Call: WRITE	Prompt: !!,"DHR record layout:",!!!?5,"1",?8,"RECORD TYPE (2)",!?5,"2",?8,"EFFECTIVE DATE (MMDDYY)",!?5,"8",?8,"DESTINATION CODE",!?4,"13",?8,"323, 324, OR 325" Line Location: LEND+4
Function Call: WRITE	Prompt: !?4,"16",?8,"DOCUMENT NUMBER",!?4,"26",?8,"If '05024', repeat 13-25, else blanks",!?4,"39",?8,"constant=1",!?4,"40",?8,"FISCAL YEAR",!?4,"41",?8,"COMMON ACCOUNTING NUMBER",!?4,"48",?8,"OBJECT CLASS CODE",!?4,"52",?8,"IHS PAYMENT AMOUNT" Line Location: LEND+5
Function Call: WRITE	Prompt: !?4,"64",?8,"FED/NON-FED CODE",!?4,"65",?8,"blanks" Line Location: LEND+6
Function Call: WRITE	Prompt: @IOF Line Location: LEND+8
Function Call: WRITE	Prompt: @IOF,!,ACHSAST,!,"",?25,"CHS DHR DATA TRANSMITTED TO ",ACHSCCTR,?67,"Page ",$J(ACHSPG,3),?78,"",!,"",?40-(($L(ACHSTIME)+6)\2),"as of ",ACHSTIME,?78,"",!,"",?40-(($L(ACHS("SITE"))+4)\2),"for ",ACHS("SITE"),?78,"",!,ACHSAST,!!! Line Location: H1+2
Function Call: WRITE	Prompt: ?4,"+",?9,"1",?14,"+",?19,"2",?24,"+",?29,"3",?34,"+",?39,"4",?44,"+",?49,"5",?54,"+",?59,"6",?64,"+",?69,"7",?74,"+" Line Location: H2+1
Routine Call	%ZIS Line Location: ACHSPCC5+5 DEV+7
Routine Call	%ZIS Line Location: DEV+5

Name	Line Occurrences (* Changed, ! Killed)
^ACHSPCC(	L2+1, L3+1, L3+5
^ACHSPCC(0	ACHSPCC5+3, ACHSPCC5+6, START+1
^AUTTLOC - [#9999999.06]	DEV+12
^AUTTLOC("C"	SITENAME+1
^DIC(4 - [#4]	SITENAME+1

Name	Line Occurrences
DEV	DEV+10, DEV+16
END	FMT+2, L3+4
H1	START+4, L2+3, L3+4, LEND+3
H2	L3+8, L3+9, LEND+1
K	DEV+2, DEV+3, DEV+7
L2	L3+2
L3	L3+6, L3+10, L3+16
LEND	L2+2
SITENAME	START+2, L2+3
START	DEV+8

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DEV+1, DEV+2, DEV+3, DEV+14
%ZIS	DEV+4*, DEV+6!
>> ACHS("*"	ACHSPCC5+6, ACHSPCC5+8, DEV+13
>> ACHS("R"	ACHSPCC5+6, START+1, L2+3*, SITENAME+1
>> ACHS("SITE"	ACHSPCC5+6, ACHSPCC5+8, H1+2, SITENAME+1
>> ACHSAST	ACHSPCC5+6, DEV+13, H1+2
>> ACHSCAP	FMT+3*, L3+8, L3+9, L3+10, H2+2
>> ACHSCCTR	ACHSPCC5+4*, ACHSPCC5+8, H1+2
>> ACHSFDHR	START+1, L2+3, L3+7*, L3+9
>> ACHSIO	ACHSPCC5+6*
>> ACHSPG	START+1, H1+1, H1+2
>> ACHSR	START+1, L2+1, L2+2, L2+3, L3+1, L3+5
>> ACHSRAW	FMT+3*, L3+8, L3+9, L3+15
>> ACHSRCT	START+1, L3+3, LEND+2
>> ACHSRR	START+1, L3+1, L3+2, L3+5
>> ACHSTDHR	START+1, L3+7, LEND+2
>> ACHSTIME	ACHSPCC5+8, H1+2
DTOUT	FMT+2, DEV+2, L3+4, END+2!
DUOUT	FMT+2, DEV+2, L3+4, END+2!
DUZ(2	DEV+12
IO	ACHSPCC5+6, START+3
IO("Q"	DEV+8, DEV+9!
IO("S"	DEV+10
IO(0	ACHSPCC5+7
IOF	ACHSPCC5+8, LEND+8, H1+2
IOSL	L3+4
IOST	DEV+10
>> POP	DEV+7
U	DEV+2, DEV+12, SITENAME+1
X	DEV+11, DEV+12, L3+5, L3+6, L3+8, L3+11, L3+12, L3+13, L3+14, END+2!
Y	FMT+1*, FMT+3, END+2!
ZTDESC	DEV+12*, K+1!
ZTRTN	DEV+12*, K+1!
>> ZTSAVE(	DEV+14*
ZTSK	DEV+16, K+1!

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSPCC5

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: