Routine: ASUUHDG

Information

ASUUHDG ; IHS/ITSC/LMH - SAMS MENU HEADINGS ;

Source file <ASUUHDG.m>

Package	Total	Call Graph
Supply	3	($$STR,AC,HOME,KILL,RV,WRITE)^ASUUHDG PAZ^ASUURHDR ^ASUVAR
IHS VA Utilities	2	^XBCLS ^XBKVAR
Kernel	2	HOME^%ZIS ENS^%ZISS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Supply	87	ASU000MENU ASU001MENU ASU002DISS - 02 ASU004DISS - 04 ASU005DISS - 05 ASU006DISS - 06 ASU00KDISS - 0K ASU00MDISS - 0M ASU00NDISS - 0N ASU00ODISS - 0O ASU010MENU ASU012SDUE - 12 ASU014TDUE - 14 ASU015TDUE - 15 ASU016TDUE - 16 ASU01KSDUE - 1K ASU01MTDUE - 1M ASU01NTDUE - 1N ASU01OTDUE - 1O ASU020MENU ASU022SRCT - 22 ASU024TRCT - 24 ASU025TRCT - 25 ASU026TRCT - 26 ASU02KSRCT - 2K ASU02MTRCT - 2M ASU02NTRCT - 2N ASU02OTRCT - 2O ASU0PURG ASU121SOLR ASU123POLR ASU125LIRM ASU179STAS ASU194RINV ASU35ASCL ASU508BLST ASU5100SRS ASU5101DRP ASU5107DRP ASU5108DRP ASU5109DRP ASU5110DRA ASU5110DRP ASU5111DRP ASU5113DRP ASU5173DRP ASU5270DRP ASU5271DRP ASU5272DRP ASU527SDRP ASU610BLSH ASU612NOIS ASU615REPT ASU616REPT ASU617REPT ASU618REPT ASU623REPT ASU624REPT ASU670MTHS ASU674IBAL ASU675IBAS ASU677IASS ASUCODAY ASUCOMTH ASUCOYER ASUL07ET ASULARST ASURD01P ASURD13P ASURM75P ASURMBSP ASURO26P ASURO80P ASURQ81P ASURQ82P ASUUHDG ASUUPLOG ASUV0NT ASUV1PL ASUV1PN ASUV2RL ASUV2RN ASUV3AL ASUV3AN ASUV4AL ASUV5FS ASUVOLRV

Name	Comments	DBIA/ICR reference
HDG	;EP ; ----- TEXT OF THE MENU HEADING -----
AC	;EP ; ----- WRITES WARNING MESSAGE IF FILEMAN ACCESS CODE NOT RIGHT -----
EN	;EP ; ----- ENTRY POINT CALLED BY ENTRY ACTION FIELD -----
WRITE(ASUUTXT,ASUUCTR,ASUU)
LOWCASE(X,Y)	;
HDR(ASUUM)
RV	;EP ; ----- WRITES WARNING MESSAGE IF REVERSE VIDEO NOT DEFINED -----
RVTXT	;EP ; ----- TEXT FOR REVERSE VIDEO WARNING MESSAGE -----
SETT	;EP;
SETU	;EP;
KILL	;EP ; ----- CLEAN UP VARIABLES -----
STR(ASUUX,ASUU)
HOME	;EP ; ----- SETS HOME DEVICE IO VARIABLES -----
SETY(X,ASUU)	;EP;
PAWS	;EP ; ----- GIVE USER CHANCE TO ESCAPE -----
ACTXT	;EP ; ----- TEXT FOR FM ACCESS CODE WARNING MESSAGE -----
CLS	;EP ;FORM FEED OR CLEAR SCREEN

Name	Line Occurrences
Function Call: WRITE	Prompt: 7,7 Line Location: AC+2
Function Call: WRITE	Prompt: @IOF Line Location: RV+2
Function Call: WRITE	Prompt: 7,7 Line Location: RV+3
Function Call: WRITE	Prompt: @IOF Line Location: HDR+14
Function Call: WRITE	Prompt: !,"************* WARNING: UNAUTHORIZED USE IS A FEDERAL CRIME **************",! Line Location: WRITE+7
Function Call: WRITE	Prompt: !?$S(ASUUCTR:(IOM-$L($$STR^ASUUHDG(ASUUX,.ASUU)))\2,1:0),$$STR^ASUUHDG(ASUUX,.ASUU) Line Location: WRITE+10
Function Call: WRITE	Prompt: @(ASUK(ASUK("PTR"),"IOF")) Line Location: CLS+5
Routine Call	%ZIS Line Location: HOME+1
Routine Call	DIR Line Location: PAWS+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	HOME+2
^DIC(9.4 - [#9.4]	HDR+6, HDR+7
^VA(200 - [#200]	HDR+11

Name	Line Occurrences
LOWCASE	SETT+4
SETY	SETU+6

Name	Field # of Occurrence
>> ACROF	HOME+3*, RV+1
>> ACRON	HOME+3*, RV+1
>> ACRTRM	HOME+2*, HOME+3
>> ASUF("WARN"	WRITE+7*
>> ASUK(	CLS+5
>> ASUK("HDG"	HDR+5!, HDR+7, HDR+8, HDR+9, HDR+10, HDR+12, HDR+13, SETU+1, SETU+2, SETU+3 , SETU+4
>> ASUK("PTR"	CLS+4, CLS+5
>> ASUL(1	HDR+8, HDR+9
>> ASUL(11	SETT+4, SETU+5
>> ASUL(2	HDR+10
ASUU	RV+4!, RV+6, RV+8!, HDR+15, HDR+16!, WRITE~, WRITE+10, SETU+6, SETY~, SETY+2 , KILL+1!, STR~
ASUU(	STR+7
ASUU(1	RV+5, HDR+7, SETU+1*
ASUU(2	HDR+8, HDR+9, SETU+2*
ASUU(3	HDR+10, SETU+3
ASUU(4	HDR+12, SETU+4
ASUU(5	HDR+13, SETU+5
ASUUCTR	WRITE~, WRITE+10, KILL+1!
ASUUI	WRITE+8*, KILL+1!
ASUUM	HDR~, HDR+13
>> ASUUOUT	EN+4, EN+6, PAWS+3
ASUUTXT	WRITE~, KILL+1!
ASUUX	WRITE+9, WRITE+10, KILL+1!, STR~, STR+6, STR+7, STR+8
DIR	PAWS+2!
DIR(0	PAWS+2*
>> DIROUT	EN+3
>> DTOUT	EN+3, HDR+9
>> DUOUT	EN+3, HDR+9
DUZ	HDR+11
DUZ(0	AC+1
IOF	RV+2, HDR+14, CLS+1, CLS+2
IOM	WRITE+10
IOST	PAWS+1
IOST(0	HOME+2
U	HOME+3, HDR+7, HDR+11, SETT+2, SETU+5
X	SETT+1~, SETT+2, SETT+4, SETT+5, LOWCASE~, LOWCASE+1, SETY~
XQUIT	EN+2!, EN+6*
>> XQY0	SETT+2, SETU+5
Y	HDR+5~, HDR+6, HDR+7, HDR+11, HDR+12, SETT+4, SETT+5, LOWCASE~, LOWCASE+4, LOWCASE+5 , SETY+1, SETY+2, PAWS+3
Z	LOWCASE+1~*
Z(1	LOWCASE+1*, LOWCASE+2, LOWCASE+5
Z(2	LOWCASE+2*, LOWCASE+3
Z(3	LOWCASE+3*, LOWCASE+5

Name	Field # of Occurrence
$T(@ASUUTXT+ASUUI	WRITE+8, WRITE+9
$T(HDG+X	SETY+1