Routine: USRU

Information

USRU ; SLC/PKR - Utility subroutines for USR ;1/24/00 11:03

Source file <USRU.m>

Package	Total	Call Graph
VA Fileman	2	EN^DDIOL ^DIR
Kernel	1	ENDR^%ZISS

Package	Total	Caller Graph
Authorization Subscription	5	USRCLST USRHELP USRMEMBR USRRULA USRUMMBR

Name	Comments	DBIA/ICR reference
STOPX
VALID2(Y)	; USES DA TO FIND RECORD(8930.3) ; Check and verify Effective date is not greater than Expiration
VALID(Y)	; USES DA TO FIND RECORD(8930.3) ; Check to verify Expiration date is not less than Effective date
STOP(PROMPT,SCROLL)	; Call DIR at bottom of screen
READX
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN)	; Calls reader, returns response

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: STOP+3
Routine Call	DIR Line Location: READ+7 STOP+6

Name	Line Occurrences (* Changed, ! Killed)
^USR(8930.3 - [#8930.3]	VALID+3, VALID2+3, VALID2+4

Name	Line Occurrences
READX	READ+8
STOPX	STOP+2

Name	Field # of Occurrence
A	VALID+10, VALID2+11, VALID2+12!
A(1	VALID+6, VALID2+7
A(2	VALID+7, VALID2+8
A(3	VALID+8, VALID+9, VALID2+9, VALID2+10
>> DA	VALID+3, VALID2+3, VALID2+4
DEFAULT	READ~, READ+5
DIR	READ+1~, STOP+1~
DIR("?"	READ+6, STOP+5
DIR("A"	READ+4, STOP+4
DIR("B"	READ+5*
DIR("S"	READ+3*
DIR(0	READ+2, STOP+4
DIRUT	STOP+6!
>> DTOUT	STOP+7
HELP	READ~, READ+6
>> IORVOFF	VALID+9, VALID2+10
>> IORVON	VALID+6, VALID2+7
IOSL	STOP+3
IOST	STOP+2
PROMPT	READ~, READ+4, STOP~, STOP+4
SCREEN	READ~, READ+3
SCROLL	STOP~, STOP+3
TYPE	READ~, READ+2
U	READ+9, VALID+3, VALID2+3, VALID2+4, STOP+7
X	READ+1~, READ+8, VALID+4, VALID2+5, STOP+1~
Y	READ+1~, READ+8, READ+9, READX, VALID~, VALID+2, VALID+3, VALID2~, VALID2+2, VALID2+4 , STOP+1~, STOP+2, STOP+6, STOP+7, STOPX
Y(0	READ+9