Routine: AMHVU

Information

AMHVU ; IHS/CMI/LAB - VIEW RECORD UTILITY CALLS ;

Source file <AMHVU.m>

Package	Total	Caller Graph
Mental Health Social Services	4	AMHLEP1 AMHVAGL AMHVRL AMHVRL2

Name	Comments	DBIA/ICR reference
VALMSG()	;EP; called to reset message line
PKGCK(RTN,MSG)	;EP; -- called to check if rtn and package are installed
RETURN	;EP; -- ask user to press ENTER
MSG(DATA,PRE,POST,BEEP)	;EP; -- writes line to device
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
KEYCK(KEY,USER,MSG)	;EP; -- called to check is user has key
VALMSG3()	;EP; called to reset message line
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA)	;EP; calls reader, returns response
VALMSG2()	;EP; called to reset message line
INTRO	;EP; displays intro text to view reocrd
VALMSG4()	;EP; called to reset message line
CONFID(X)	;EP; -- SUBRTN to return confidential message
LMKILL	;EP; -- kills IO and VALM variables used by List Manager

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: MSG+2
Function Call: WRITE	Prompt: DATA Line Location: MSG+3
Function Call: WRITE	Prompt: ! Line Location: MSG+4
Function Call: WRITE	Prompt: $C(7) Line Location: MSG+5
Routine Call	DIR Line Location: READ+8

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	PKGCK+2
^XUSEC(	KEYCK+1

Name	Field # of Occurrence
BEEP	MSG~, MSG+5
D	PAD~, PAD+2
DATA	MSG~, MSG+3
DEFAULT	READ~, READ+5
DIR	READ+1~
DIR("?"	READ+6*
DIR("A"	READ+4, READ+7
DIR("B"	READ+5*
DIR("S"	READ+3*
DIR(0	READ+2*
DIRA	READ~
DIRA(	READ+7
DIRA(1	READ+7
HELP	READ~, READ+6
I	MSG+1~, MSG+2, MSG+4, MSG+5*
IOST	RETURN+1
KEY	KEYCK~, KEYCK+1
L	PAD~, PAD+2
MSG	PKGCK~, PKGCK+3, PKGCK+4, KEYCK~, KEYCK+2
N	SP~, SP+1
POST	MSG~, MSG+4
PRE	MSG~, MSG+2
PROMPT	READ~, READ+4
RTN	PKGCK~, PKGCK+2
SCREEN	READ~, READ+3
TYPE	READ~, READ+2
USER	KEYCK~, KEYCK+1
VALMBCK	LMKILL+2!
VALMCC	LMKILL+2!
VALMHDR	LMKILL+2!
VALMIOXY	LMKILL+2!
VALMSGR	LMKILL+2!
VALMWD	LMKILL+2!
X	CONFID~, CONFID+1, READ+1~, PKGCK+1~, PKGCK+2*
Y	RETURN+2~, READ+1~, READ+7, READ+9