Routine: ACHSRP2

Information

ACHSRP2 ; IHS/ITSC/PMF - PRINT CHS FORMS - INIT NAMED VARS, CALL FORM ROUTINE ; [ 01/21/2005 3:50 PM ]

Package	Total	Call Graph
Contract Health Management Information System	6	$$PARM^ACHS SB1^ACHSRP1 ^ACHSRP3 ^ACHSRP3D ^ACHSRPU PRT^ACHSUDF
VA Fileman	2	C^%DTC $$GET1^DIQ
IHS VA Utilities	1	$$EXTSET^XBFUNC

Package

Total

Call Graph

Contract Health Management Information System

$$PARM^ACHS SB1^ACHSRP1 ^ACHSRP3 ^ACHSRP3D ^ACHSRPU PRT^ACHSUDF

VA Fileman

C^%DTC $$GET1^DIQ

IHS VA Utilities

$$EXTSET^XBFUNC

Package	Total	Caller Graph
Contract Health Management Information System	5	ACHSAJ ACHSBUG3 ACHSPAM ACHSRP1 ACHSUSC

Package

Total

Caller Graph

Contract Health Management Information System

ACHSAJ ACHSBUG3 ACHSPAM ACHSRP1 ACHSUSC

Entry Points

Name	Comments	DBIA/ICR reference
UNDEF(X)	;
END	;
EXT1	;
I	;;Emergent/Acutely Urg
PROC	; Set Referral Procedure Narrative into print vars for regular Form.
PROC1	; Set Referral Procedure Narrative into print vars for Universal Form.
EXT	;
IV	;;Chr Tert/Exten Svc
II	;;Preventive Sevices
INIT	;EP - Initialize local vars to existing document data.
DIAG1	; Set Referral Diagnosis Narrative into print vars for Universal Form.
DIAG	; Set Referral Diagnosis Narrative into print vars for regular Form.
KILLNULS	;
III	;;Prim/Sec Services
REF	; Set Referral Physician and Medical Priority into print vars.
REFCOD	;

External References

Name	Field # of Occurrence
C^%DTC	INIT+91
$$PARM^ACHS	ACHSRP2+15, ACHSRP2+18, ACHSRP2+19, ACHSRP2+21, PROC+1
SB1^ACHSRP1	ACHSRP2+16
^ACHSRP3	ACHSRP2+22
^ACHSRP3D	ACHSRP2+23
^ACHSRPU	ACHSRP2+18, ACHSRP2+19
PRT^ACHSUDF	INIT+102
$$GET1^DIQ	INIT+28, INIT+30, INIT+80, INIT+81
$$EXTSET^XBFUNC	INIT+43

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(7 - [#9002067]	ACHSRP2+27, ACHSRP2+30, ACHSRP2+33, ACHSRP2+34, ACHSRP2+35, ACHSRP2+36, ACHSRP2+37
^ACHSF - [#9002080]	ACHSRP2+10, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+77, REF+6, PROC+2, PROC+3 , DIAG+1, DIAG+2, PROC1+1, DIAG1+1
^ACHSF("PQ"	ACHSRP2+38!
^AUTTLOC - [#9999999.06]	ACHSRP2+18, INIT+50
^AUTTVNDR - [#9999999.11]	INIT+37, INIT+41, INIT+42
^DD("DD"	INIT+29, INIT+31
^DD(9002080.01	REF+4
^DIC(16 - [#16]	REF+15
^DIC(6 - [#6]	REF+14
^TMP("ACHSRR"	ACHSRP2+26!
^VA(200 - [#200]	REF+11

Label References

Name	Line Occurrences
$$UNDEF	INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+26 , INIT+28, INIT+29, INIT+30, INIT+31, INIT+34, INIT+35, INIT+38, INIT+39, INIT+49, INIT+80 , INIT+81, INIT+82, INIT+83, INIT+87, INIT+93, INIT+94, INIT+96, INIT+98, INIT+100, REF+7 , REF+9, REF+14, REF+15, REF+16
DIAG	PROC+2
DIAG1	PROC1+1
END	ACHSRP2+10, ACHSRP2+26
EXT	DIAG+1
EXT1	DIAG1+1
INIT	ACHSRP2+15
KILLNULS	INIT+3
PROC1	PROC+1
REF	ACHSRP2+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	END+1!
A(7	INIT+101*
>> ACHS	KILLNULS+1*
>> ACHS200	REF+4*, REF+11, REF+13
>> ACHS7DA	ACHSRP2+27, ACHSRP2+30, ACHSRP2+33, ACHSRP2+34, ACHSRP2+35, ACHSRP2+36, ACHSRP2+37
>> ACHSADTE	INIT+31*
>> ACHSAGRP	INIT+35*, INIT+37
>> ACHSASIG	INIT+30*
>> ACHSBLAN	INIT+24*, INIT+77
ACHSBLKF	INIT+74!, INIT+77*, REF+1
>> ACHSBLT	INIT+77*
>> ACHSCAN	INIT+17*
>> ACHSCONP	INIT+13*
>> ACHSCOPT	INIT+22*
>> ACHSCPY	ACHSRP2+18
>> ACHSDCR	INIT+26*
>> ACHSDES	INIT+100*, INIT+101
>> ACHSDEST	INIT+25*
>> ACHSDIEN	ACHSRP2+10, ACHSRP2+26, ACHSRP2+33, ACHSRP2+36, ACHSRP2+38, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10 , INIT+77, REF+6, PROC+2, PROC+3, DIAG+1, DIAG+2, PROC1+1, DIAG1+1
>> ACHSDOC0	INIT+6*, INIT+13, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24 , INIT+25, INIT+26, INIT+28, INIT+29, INIT+30, INIT+31, INIT+34, INIT+35, INIT+46, INIT+49 , INIT+80, INIT+81
>> ACHSDOC1	INIT+7*, INIT+15, INIT+91, INIT+96, INIT+100
>> ACHSDOC2	INIT+8*, INIT+98
>> ACHSDOC3	INIT+9*, INIT+72, INIT+87, INIT+88, INIT+94, REF+7, REF+9
>> ACHSDOS	INIT+53*
ACHSDS	END+3!, INIT+42, INIT+43
ACHSDX	REF+2, DIAG+2, DIAG+3, DIAG+4, DIAG+5, EXT+1!, DIAG1+1*, DIAG1+2, DIAG1+3, DIAG1+4 , EXT1+1!
>> ACHSEDOS	INIT+85, INIT+94, INIT+95*
>> ACHSEDTE	INIT+29*
>> ACHSESDA	INIT+96*
>> ACHSESDO	INIT+82*
>> ACHSESIG	INIT+28*
>> ACHSFC	INIT+46
>> ACHSFDT	INIT+85, INIT+87, INIT+91, INIT+95
>> ACHSHON	INIT+98*
ACHSIPRM	END+1!
>> ACHSISIG	INIT+80*
>> ACHSL	ACHSRP2+18*
>> ACHSLCA	INIT+55*
>> ACHSLOC0	INIT+50*
ACHSMPN	END+3!, INIT+41*
ACHSMPP	END+3!, INIT+15*, INIT+41, INIT+42, INIT+43
>> ACHSMRTI	INIT+39*
>> ACHSMRTO	INIT+38*
ACHSNOTF	INIT+4!, INIT+5*, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+37, INIT+50
>> ACHSOBJC	INIT+19*
>> ACHSODT	INIT+23*, INIT+63
>> ACHSORDN	ACHSRP2+33, ACHSRP2+34, INIT+46*
>> ACHSPATF	INIT+49*, INIT+50
>> ACHSPR18	INIT+36, INIT+37, INIT+38, INIT+39
>> ACHSPROV	INIT+34*, INIT+37, INIT+41, INIT+42
ACHSPX	REF+2, PROC+3, PROC+5, PROC+6, PROC+7, EXT+1!, PROC1+1*, PROC1+2, PROC1+3, PROC1+4 , EXT1+1!
>> ACHSREFP	REF+14*, REF+15
>> ACHSREFT	INIT+72*
>> ACHSRPNT	ACHSRP2+26
>> ACHSSCC	INIT+18*
>> ACHSSF	INIT+58, INIT+61
>> ACHSSIG	INIT+81*
>> ACHSTDT	INIT+85, INIT+88, INIT+91, INIT+93
>> ACHSTIEN	ACHSRP2+10, ACHSRP2+26, ACHSRP2+33, ACHSRP2+36, ACHSRP2+38, INIT+10
>> ACHSTRA0	INIT+10*, INIT+53, INIT+54, INIT+55, INIT+58, INIT+61, INIT+66, INIT+72, INIT+82, INIT+83
>> ACHSTYP	ACHSRP2+15, INIT+21*, INIT+86, INIT+91
>> ACHSTYPE	INIT+54*, INIT+64
>> ACHSTYPV	ACHSRP2+22, ACHSRP2+26, ACHSRP2+38
>> ACHSX	KILLNULS+1*
>> ACHSY	KILLNULS+1*
B	END+1!
C	END+1!
D	END+1!
>> DFN	INIT+83*
DUZ(2	ACHSRP2+10, ACHSRP2+18, ACHSRP2+26, ACHSRP2+33, ACHSRP2+36, ACHSRP2+38, INIT+6, INIT+7, INIT+8, INIT+9 , INIT+10, INIT+77, REF+6, PROC+2, PROC+3, DIAG+1, DIAG+2, PROC1+1, DIAG1+1
E	END+1!
E(11	INIT+65*
E(7	INIT+63, INIT+65, INIT+67, INIT+68*
F	END+1!
I	END+1!
>> M	ACHSRP2+32*, ACHSRP2+35
N	ACHSRP2+31, ACHSRP2+33, ACHSRP2+34, ACHSRP2+35, ACHSRP2+36, END+1!, REF+2, PROC+5, PROC+6, PROC+7* , DIAG+3, DIAG+4, DIAG+5, EXT+1!, PROC1+2, PROC1+3, PROC1+4, DIAG1+2, DIAG1+3, DIAG1+4* , EXT1+1!
R	END+1!
R("D"	DIAG+3, DIAG+4, DIAG+5, DIAG1+2, DIAG1+3, DIAG1+4
R("P"	PROC+5, PROC+6, PROC+7, PROC1+2, PROC1+3, PROC1+4
R(1	REF+7, REF+11, REF+14, REF+15*
R(2	REF+9, REF+16
>> S	INIT+20*, INIT+46
U	ACHSRP2+18, ACHSRP2+31, ACHSRP2+32, ACHSRP2+33, ACHSRP2+35, INIT+5, INIT+13, INIT+15, INIT+17, INIT+18 , INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+26, INIT+28, INIT+29 , INIT+30, INIT+31, INIT+34, INIT+35, INIT+38, INIT+39, INIT+41, INIT+42, INIT+46, INIT+49 , INIT+53, INIT+54, INIT+55, INIT+58, INIT+61, INIT+66, INIT+72, INIT+80, INIT+81, INIT+82 , INIT+83, INIT+87, INIT+88, INIT+91, INIT+94, INIT+96, INIT+98, INIT+100, REF+7, REF+9 , REF+11, REF+14, REF+15
X	ACHSRP2+30, ACHSRP2+31, ACHSRP2+32, ACHSRP2+35, INIT+66, INIT+67, INIT+68, INIT+91~, REF+2, PROC+7 , DIAG+5, EXT+1!, PROC1+4, DIAG1+4*, EXT1+1!, UNDEF~, UNDEF+1, UNDEF+2
X1	INIT+91~*
X2	INIT+91~*
>> Y	INIT+29, INIT+31

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSRP2

Information

Source Information

Call Graph

Call Graph Total: 9