Routine: ACRFAS

Information

ACRFAS ;IHS/OIRM/DSD/THL,AEF - UTILITY TO SET UP AREA SYSTEMS DATA; [ 09/22/2005 9:44 AM ]

Source file <ACRFAS.m>

Package	Total	Call Graph
Commitment Register	4	(DDS,DIC,DIE,DIR,FILE)^ACRFDIC $$NAME2^ACRFUTL1 PAUSE^ACRFWARN ^ACRPDHR

Package	Total	Caller Graph
Commitment Register	2	ACRFDRCL ACRFTVA

Name	Comments	DBIA/ICR reference
SYSCHK	;EP;TO ENSURE AREA SETUP IS COMPLETE
25	;;HQ TELECOMMUNICATIONS....;;7
26	;;HQ DIV ADMIN SERVICES....;;8
27	;;AREA TELECOMMUNICATION...;;2
20	;;AREA PROPERTY MANAGEMENT.;;3
AREA	;EP;TO SELECT AREA SETUP
44	;;DIR HQ OPERATIONS........;;15
28	;;HQ PROPERTY MANAGEMENT...;;9
DHR1
1	;;AREA CONTRACT OFFICER....;;4
EN1	;
EN
SC1
DHR	;EP;TO DISPLAY AND EDIT SYSTEMS DHR INTERFACE INFO
MD	;MISSING DATA HEADINGS
15	;;AREA FINANCE OFFICER.....;;5
16	;;AREA INFO SYSTEMS COORD..;;1
18	;;HQ OIRM..................;;6
31	;;AREA PROPERTY CLEARANCE..;;11
30	;;AREA ADP SECURITY OFFICER;;10
35	;;AREA SUPPLY OFFICER......;;14
34	;;AREA M&M OFFICER.........;;12
EXIT
SUPER	;ENTER NAMES OF AREA CONTRACT OFFICER AND PURCHASING SUPERVISOR

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: EN1+1
Function Call: WRITE	Prompt: !?20,"AREA SYSTEM SETUP" Line Location: EN1+2
Function Call: WRITE	Prompt: ! Line Location: EN1+3
Function Call: WRITE	Prompt: @IOF Line Location: DHR1+0
Function Call: WRITE	Prompt: !?20,"DHR INTERFACE SUMMARY" Line Location: DHR1+1
Function Call: WRITE	Prompt: !! Line Location: DHR1+2
Function Call: WRITE	Prompt: ! Line Location: DHR1+8
Function Call: WRITE	Prompt: ! Line Location: DHR1+17
Function Call: WRITE	Prompt: !!,7,7,@ACRON,$P($T(MD+ACRI),";;",2),@ACROF," data is missing." Line Location: SC1+0
Function Call: WRITE	Prompt: ! Line Location: AREA+6

Name	Line Occurrences (* Changed, ! Killed)
^ACRAPL("AC"	EN1+29
^ACRPO(1	EN1+49, SUPER+1
^ACRPO(2	EN1+49
^ACRSYS - [#9002199.2]	EN1+6, EN1+24, SYSCHK+1, SYSCHK+3
^ACRSYS(1	AREA+5
^AUTTAREA - [#9999999.21]	AREA+5
^AUTTPRG - [#9999999.62]	EN1+51
^VA(200 - [#200]	EN1+24, EN1+29

Name	Field # of Occurrence
>> ACR	EN1+18*, EN1+22
ACRADA	EN1+6, EN1+7, EN1+11, EN1+24, EN1+37, EN1+44, SYSCHK+1, SYSCHK+3, AREA+1!, AREA+9*
>> ACRDA	EN1+16*, EN1+17, EN1+29, EN1+33, EN1+36
>> ACRDAX	EN1+28*, EN1+35, EN1+40
>> ACRI	EN1+50, EN1+51, EN1+52, EN1+53, EN1+58, EN1+61, SUPER+3, SUPER+5, SUPER+9, SYSCHK+4*
>> ACROF	SC1
>> ACRON	SC1
ACROUT	EN1+26, EN1+42, EN1+69, DHR+1, DHR+2!, AREA+8
>> ACRPC	EN1+19*, EN1+24
ACRQUIT	EN+1, EXIT!, EN1+5, EN1+16, EN1+26, EN1+43!, EN1+50, SUPER+2!, SUPER+3, DHR+1 , DHR+2!, DHR1+10, SYSCHK+5, SC1+1, AREA+8*
ACRSCREN	EN1+15!, EN1+48!, EN1+66, EN1+67!, DHR1+15, DHR1+16!
>> ACRX	SYSCHK+3*, SYSCHK+4
>> D0	DHR1+4*
>> DA	EN1+11, EN1+17, EN1+37, EN1+44, EN1+61, SUPER+12, DHR1+11*
>> DIC	EN1+8, EN1+20, EN1+31, EN1+54, SUPER+7, AREA+2
>> DIC("A"	EN1+22, SUPER+9, AREA+4*
>> DIC("B"	EN1+24, AREA+5
>> DIC("DR"	EN1+33*
>> DIC(0	EN1+9, EN1+21, EN1+32, EN1+55, SUPER+8, AREA+3
>> DIE	EN1+12, EN1+38, EN1+45, EN1+62, SUPER+13, DHR1+12
>> DINUM	EN1+53*
DIP	DHR1+3~
>> DIR("A"	DHR1+7*
>> DIR(0	DHR1+6*
>> DR	EN1+13, EN1+39, EN1+40, EN1+46, EN1+63, SUPER+14, DHR1+13*
DXS	DHR1+3~
IOF	EN1+1, DHR1
U	EN1+24, SUPER+1, SYSCHK+4, AREA+5
>> X	EN1+7, EN1+30, EN1+36, EN1+39, EN1+52
>> Y	EN1+27, EN1+28, EN1+29, EN1+30, SUPER+11, SUPER+12, DHR1+10, AREA+8, AREA+9

Name	Field # of Occurrence
$T(@DA	EN1+18, EN1+19
$T(MD+ACRI	SC1