Routine: BRNU

Information

BRNU ; IHS/OIT/LJF - UTILITY & FUNCTION CALLS

Source file <BRNU.m>

Package	Total	Call Graph
Kernel	5	^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMTE)^XLFDT $$REPEAT^XLFSTR
IHS Release Of Information	1	($$READ,PAUSE)^BRNU
Registration	1	DEM^VADPT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Release Of Information	26	BRN2ND BRNADD BRNADDM BRNAGE BRNAGE1 BRNAGE2 BRNCLOS BRNDTST BRNFOIA BRNMLB BRNMLOG BRNOPEN BRNP01 BRNPAGE BRNPTRQ BRNPUR BRNRU BRNRU11 BRNRU2 BRNRU3 BRNRUP1 BRNRUS BRNSUSPN BRNU BRNUSER ^BRNREC

Name	Comments	DBIA/ICR reference
PAUSE	;EP; -- ask user to press return - no form feed
FACOK(DATE)	;EP - returns 1 if DATE is before INACTIVATION DATE for ; faciliy set to user's DUZ(2)
ASKFAC(BRNFAC)	;EP; returns BRNFAC variable set to facility choice ; called using D ASKFAC^BRNU(.BRNFAC) ; If only one facility in parameter file, BRNFAC=0 ; If user selected ALL facilities, BRNFAC=0 ; Else, BRNFAC=IEN of facility parameter entry chosen ; OR if user ^ out or didn't choose, then BRNFAC=""
ZIS(X,BRNRTN,BRNDESC,BRNVAR,BRNDEV)	;EP; -- called to select device and send print
READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA)	;EP; calls reader, returns response
XTMP(N,J,D)	;EP - set xtmp 0 node
SUSPEND(IEN)	;EP; called by computed SUSPENDED DISCLOSURE field
NAMEPRT(DFN,CONVERT)	;EP; return printable name
USERFAC	;EP - checks if user's DUZ(2) matches an active facility ; in the ROI LISTING PARAMETER file
ACTIVFAC(BRN,DA)	;EP - returns 1 if facility parameter entry is active ; Called by screen on field FACILITY in ROI LISTING RECORD file

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"NO DIVISION SET - CANNOT USE ROI" Line Location: USERFAC+2
Function Call: WRITE	Prompt: !!,"Your DIVISION is NOT set to a facility defined in the ROI PARAMETERS" Line Location: USERFAC+4
Function Call: WRITE	Prompt: !,"Therefore, you CANNOT perform any DATA ENTRY FUNCTIONS until either your" Line Location: USERFAC+5
Function Call: WRITE	Prompt: !,"DIVISION is RESET OR the facility is ADDED to the ROI PARAMETERS file." Line Location: USERFAC+6
Function Call: WRITE	Prompt: !!,$$REPEAT^XLFSTR("* ",30) Line Location: USERFAC+14
Function Call: WRITE	Prompt: !,"Your DIVISION is set to a facilitiy that has been INACTIVATED in the" Line Location: USERFAC+15
Function Call: WRITE	Prompt: !,"in the ROI PARAMETER file. You will ONLY be able to ADD requests" Line Location: USERFAC+16
Function Call: WRITE	Prompt: !,"with a request date BEFORE ",$$FMTE^XLFDT(IDATE),"." Line Location: USERFAC+17
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("* ",30),! Line Location: USERFAC+18
Routine Call	DIR Line Location: READ+9 PAUSE+2
Routine Call	%ZIS Line Location: ZIS+6

Name	Line Occurrences (* Changed, ! Killed)
^BRNPARM - [#90264.2]	ACTIVFAC+2, ACTIVFAC+3, ACTIVFAC+4, ACTIVFAC+5, USERFAC+11, FACOK+4, ASKFAC+7
^BRNPARM("B"	USERFAC+3, USERFAC+11, FACOK+2, FACOK+4
^BRNPARM(0	ASKFAC+7
^BRNREC - [#90264]	SUSPEND+2, SUSPEND+3, ACTIVFAC+5
^DD("FUNC" - [#.5]	NAMEPRT+5
^XTMP(	XTMP+2*

Name	Line Occurrences
@(	ZIS+4

Name	Field # of Occurrence
%ZIS	ZIS+1!, ZIS+5*
%ZIS("B"	ZIS+5*
BRN	ACTIVFAC~, ACTIVFAC+2, ACTIVFAC+3, ACTIVFAC+4, ACTIVFAC+5
>> BRNBD	ACTIVFAC+4
BRNDESC	ZIS~, ZIS+8
BRNDEV	ZIS~, ZIS+3, ZIS+5
BRNFAC	ASKFAC~, ASKFAC+7, ASKFAC+9, ASKFAC+10, ASKFAC+11, ASKFAC+12*
BRNRTN	ZIS~, ZIS+4, ZIS+8
BRNVAR	ZIS~, ZIS+9
CONVERT	NAMEPRT~, NAMEPRT+5
D	XTMP~, XTMP+2
DA	ACTIVFAC~, ACTIVFAC+4, ACTIVFAC+5
DATE	FACOK~, FACOK+6
DEFAULT	READ~, READ+6
DFN	NAMEPRT~
DIR	READ+1~, PAUSE+1~
DIR("?"	READ+7*
DIR("A"	READ+5, READ+8, PAUSE+2*
DIR("B"	READ+6*
DIR("S"	READ+4*
DIR(0	READ+2, PAUSE+2
DIRA	READ~
DIRA(	READ+8
DIRA(1	READ+8
DIRUT	READ+1~
>> DLAYGO	READ+3*
DT	XTMP+2, SUSPEND+4, USERFAC+13
DUZ(2	USERFAC+2, USERFAC+3, USERFAC+11, FACOK+2, FACOK+4
HELP	READ~, READ+7
>> I	ZIS+9*
IDATE	USERFAC+10~, USERFAC+11, USERFAC+12, USERFAC+13, USERFAC+17, FACOK+3~, FACOK+4, FACOK+5, FACOK+6
IEN	SUSPEND~, SUSPEND+2, SUSPEND+3
IO("Q"	ZIS+4, ZIS+8!
IOP	ZIS+1!
IOST	PAUSE+1
J	ZIS+9*, XTMP~, XTMP+1, XTMP+2
N	XTMP~, XTMP+1, XTMP+2
>> POP	ZIS+4
PROMPT	READ~, READ+5
SCREEN	READ~, READ+4
START	SUSPEND+1~, SUSPEND+2*, SUSPEND+4
STOP	SUSPEND+1~, SUSPEND+3*, SUSPEND+4
TYPE	READ~, READ+2, READ+3
U	READ+3, SUSPEND+2, SUSPEND+3, ACTIVFAC+3, ACTIVFAC+4, ACTIVFAC+5, USERFAC+11, FACOK+4, ASKFAC+9
VADM	NAMEPRT+2~
VADM(1	NAMEPRT+4
X	ZIS~, ZIS+2, ZIS+5, NAMEPRT+2~, NAMEPRT+4, NAMEPRT+6, USERFAC+10~, USERFAC+11, FACOK+3~, FACOK+4*
>> XQUIT	USERFAC+2, USERFAC+8
Y	READ+1~, READ+8, READ+10, ASKFAC+8~, ASKFAC+9, ASKFAC+10
>> ZTDESC	ZIS+8*
>> ZTDTH	ZIS+3*
ZTIO	ZIS+1!, ZIS+3*
>> ZTRTN	ZIS+8*
>> ZTSAVE(	ZIS+9*
ZTSK	ZIS+10!