Routine: ACHSRPF1

Package	Total	Call Graph
Contract Health Management Information System	3	$$PARM^ACHS ^ACHSRPFU PRT^ACHSUDF
VA Fileman	2	C^%DTC $$GET1^DIQ
IHS VA Utilities	1	$$EXTSET^XBFUNC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSRPF

Entry Points

Name	Comments	DBIA/ICR reference
UNDEF(X)	;
END	; ; Removed following line so we keep ^TMP("ACHSPO",$J around for printing
EXT1	;
I	;;Emergent/Acutely Urg
PROC1	; Set Referral Procedure Narrative into print vars for Universal Form.
DOCP	;
ST	;
II	;;Preventive Services
INIT	; Initialize local vars for existing document data.
DIAG1	; Set Referral Diagnosis Narrative into print vars for Universal Form.
IV	;;Chr Tert/Exten Svc ;
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+76
$$PARM^ACHS	ST+5, ST+6, INIT+22
^ACHSRPFU	ST+9
PRT^ACHSUDF	INIT+87
$$GET1^DIQ	INIT+23, INIT+25, INIT+67, INIT+68
$$EXTSET^XBFUNC	INIT+36

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHS(7 - [#9002067]	DOCP+4, DOCP+7, DOCP+8, DOCP+9, DOCP+10, DOCP+11
^ACHSF - [#9002080]	ST+2, ST+4, INIT+5, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+66, REF+6 , PROC1+1, DIAG1+1
^ACHSF("PQ"	DOCP+12!
^AUTTLOC - [#9999999.06]	INIT+42
^AUTTVNDR - [#9999999.11]	INIT+33, INIT+36
^DD("DD"	INIT+24, INIT+26
^DD(9002080.01	REF+4
^DIC(16 - [#16]	REF+14
^DIC(6 - [#6]	REF+13
^TMP("ACHSRR"	DOCP+1!
^VA(200 - [#200]	REF+11

Label References

Name	Line Occurrences
$$UNDEF	INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+23 , INIT+24, INIT+25, INIT+26, INIT+30, INIT+31, INIT+34, INIT+35, INIT+41, INIT+67, INIT+68 , INIT+69, INIT+70, INIT+74, INIT+78, INIT+79, INIT+81, INIT+83, INIT+85, REF+7, REF+9 , REF+13, REF+14, REF+15
DIAG1	PROC1+1
END	ST+2, DOCP+1
EXT1	DIAG1+1
INIT	ST+8
KILLNULS	INIT+2
REF	ST+8

Naked Globals

Name	Field # of Occurrence
^(0	INIT+36

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	END+3!
A(7	INIT+86*
>> ACHS	KILLNULS+1*
>> ACHS200	REF+4*, REF+11, REF+12
>> ACHS7DA	DOCP+4, DOCP+7, DOCP+8, DOCP+9, DOCP+10, DOCP+11
>> ACHSADTE	INIT+26*
>> ACHSAGRP	INIT+31*, INIT+33
>> ACHSARCO	INIT+5*
>> ACHSASIG	INIT+25*
>> ACHSBLAN	INIT+20*, INIT+66
ACHSBLKF	INIT+63!, INIT+66*, REF+1
>> ACHSBLT	INIT+66*
>> ACHSCAN	INIT+13*
>> ACHSCONP	INIT+12*
>> ACHSCOPT	INIT+18*
>> ACHSDCR	INIT+22*
>> ACHSDES	INIT+85*, INIT+86
>> ACHSDEST	INIT+21*
>> ACHSDIEN	ST+2, ST+4, DOCP+1, DOCP+7, DOCP+10, DOCP+12, INIT+6, INIT+7, INIT+8, INIT+9 , INIT+10, INIT+66, REF+6, PROC1+1, DIAG1+1
>> ACHSDOC0	INIT+6*, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20 , INIT+21, INIT+22, INIT+23, INIT+24, INIT+25, INIT+26, INIT+30, INIT+31, INIT+38, INIT+41 , INIT+67, INIT+68
>> ACHSDOC1	INIT+7*, INIT+29, INIT+76, INIT+81, INIT+85
>> ACHSDOC2	INIT+8*, INIT+83
>> ACHSDOC3	INIT+9*, INIT+61, INIT+74, INIT+75, INIT+79, REF+7, REF+9
>> ACHSDOS	INIT+45*
>> ACHSDS	INIT+36*
ACHSDX	REF+2, DIAG1+1, DIAG1+2, DIAG1+3, DIAG1+4, EXT1+1!
>> ACHSEDOS	INIT+72, INIT+79, INIT+80*
>> ACHSEDTE	INIT+24*
>> ACHSESDA	INIT+81*
>> ACHSESDO	INIT+69*
>> ACHSESIG	INIT+23*
>> ACHSFC	INIT+38
>> ACHSFDT	INIT+72, INIT+74, INIT+76, INIT+80
>> ACHSHON	INIT+83*
>> ACHSISIG	INIT+67*
>> ACHSLCA	INIT+47*
>> ACHSLOC0	INIT+42*
>> ACHSMPN	INIT+36*
>> ACHSMPP	INIT+29*, INIT+36
>> ACHSMRTI	INIT+35*
>> ACHSMRTO	INIT+34*
ACHSNOTF	INIT+3!, INIT+4*, INIT+6, INIT+7, INIT+8, INIT+9, INIT+10, INIT+33, INIT+42
>> ACHSOBJC	INIT+15*
>> ACHSODT	INIT+19*, INIT+52
>> ACHSORDN	DOCP+7, DOCP+8, INIT+38*
>> ACHSPATF	INIT+41*, INIT+42
>> ACHSPR18	INIT+32, INIT+33, INIT+34, INIT+35
>> ACHSPROV	INIT+30*, INIT+33, INIT+36
ACHSPX	REF+2, PROC1+1, PROC1+2, PROC1+3, PROC1+4, EXT1+1!
>> ACHSREFP	REF+13*, REF+14
>> ACHSREFT	INIT+61*
>> ACHSRPNT	DOCP+1
>> ACHSSCC	INIT+14*
>> ACHSSF	INIT+50*
>> ACHSSIG	INIT+68*
>> ACHSTDT	INIT+72, INIT+75, INIT+76, INIT+78
>> ACHSTIEN	ST+2, ST+4, DOCP+1, DOCP+7, DOCP+10, DOCP+12, INIT+10
>> ACHSTRA0	INIT+10*, INIT+45, INIT+46, INIT+47, INIT+50, INIT+55, INIT+61, INIT+69, INIT+70
>> ACHSTYP	ST+8, INIT+17*, INIT+73, INIT+76
>> ACHSTYPE	ST+4, ST+5, ST+6, INIT+46, INIT+50, INIT+53
>> ACHSTYPV	DOCP+1, DOCP+12
>> ACHSX	KILLNULS+1*
>> ACHSY	KILLNULS+1*
B	END+3!
C	END+3!
D	END+3!
>> DFN	INIT+70*
DUZ(2	ST+2, ST+4, DOCP+1, DOCP+7, DOCP+10, DOCP+12, INIT+5, INIT+6, INIT+7, INIT+8 , INIT+9, INIT+10, INIT+66, REF+6, PROC1+1, DIAG1+1
E	END+3!
E(11	INIT+54*
E(7	INIT+52, INIT+54, INIT+56, INIT+57*
F	END+3!
I	END+3!
>> M	DOCP+6*, DOCP+9
N	DOCP+5, DOCP+7, DOCP+8, DOCP+9, DOCP+10, END+3!, REF+2, PROC1+2, PROC1+3, PROC1+4* , DIAG1+2, DIAG1+3, DIAG1+4*, EXT1+1!
R	END+3!
R("D"	DIAG1+2, DIAG1+3, DIAG1+4*
R("P"	PROC1+2, PROC1+3, PROC1+4*
R(1	REF+7, REF+11, REF+13, REF+14*
R(2	REF+9, REF+15
>> S	INIT+16*, INIT+38
U	ST+4, DOCP+5, DOCP+6, DOCP+7, DOCP+9, INIT+4, INIT+5, INIT+12, INIT+13, INIT+14 , INIT+15, INIT+16, INIT+17, INIT+18, INIT+19, INIT+20, INIT+21, INIT+22, INIT+23, INIT+24 , INIT+25, INIT+26, INIT+29, INIT+30, INIT+31, INIT+34, INIT+35, INIT+36, INIT+38, INIT+41 , INIT+45, INIT+46, INIT+47, INIT+50, INIT+55, INIT+61, INIT+67, INIT+68, INIT+69, INIT+70 , INIT+74, INIT+75, INIT+76, INIT+79, INIT+81, INIT+83, INIT+85, REF+7, REF+9, REF+11 , REF+13, REF+14
X	DOCP+4, DOCP+5, DOCP+6, DOCP+9, INIT+55, INIT+56, INIT+57, INIT+76~, REF+2, PROC1+4 , DIAG1+4*, EXT1+1!, UNDEF~, UNDEF+2, UNDEF+3
X1	INIT+76~*
X2	INIT+76~*
>> Y	INIT+24, INIT+26

Marked Items

Name	Field # of Occurrence
$T(@R(1)	REF+15

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSRPF1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items