Routine: BRNADD

Call Graph

Package	Total	Call Graph
IHS Release Of Information	6	(EOP,HDR,PAUSE)^BRN (DIC,FILE)^BRNFMC ^BRNKILL START^BRNLKI1 ^BRNREF ($$FACOK,PAUSE)^BRNU
VA Fileman	3	^DIE ^DIK ^DIR
IHS Patient	1	$$DOD^AUPNPAT
IHS VA Utilities	1	$$VAL^XBDIQ1

Package	Total	Caller Graph
IHS Release Of Information	1	BRN DE ADD NEW RECORD

Name	Comments	DBIA/ICR reference
RECVAR	;Get Record Variables
DATE	; GET DATE OF DISCLOSURE
PATIENT	; GET PATIENT
REFDISP	;Display if Patient has existing Disclosures
EDIT	; EDIT DISCLOSURE RECORD JUST ADDED
NEXT	;2ND $O
START	;
ADD	; ADD NEW DISCLOSURE RECORD
PATIENT2	; ASK FOR PATIENT UNTIL USER SELECTS OR QUITS
EOJ	; END OF JOB
ASK	;Ask to Continue
MAIN	;
DELETE	; DELETE DISCLOSURE JUST ADDED BECAUSE OPERATOR DIDN'T FINISH
GETDATE	;Do Get Date if no existing Disclosures

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATIENT2+7
Function Call: WRITE	Prompt: ! Line Location: PATIENT2+9
Function Call: WRITE	Prompt: !! Line Location: ASK+2
Function Call: WRITE	Prompt: !!,?25,"********************",! Line Location: REFDISP+1
Function Call: WRITE	Prompt: ?25,"LAST 4 DISCLOSURES",!,?25,"********************",! Line Location: REFDISP+2
Function Call: WRITE	Prompt: !,?20,"--NO EXISTING DISCLOSURES--",! Line Location: REFDISP+3
Function Call: WRITE	Prompt: ! Line Location: DATE+1
Function Call: WRITE	Prompt: !," MUST BE BEFORE YOUR DIVISION'S INACTIVATION DATE ",! Line Location: DATE+6
Function Call: WRITE	Prompt: !,"Error creating DISCLOSURE.",!,"Notify programmer.",! Line Location: ADD+6
Function Call: WRITE	Prompt: !!,"DISCLOSURE NUMBER: ",$$VAL^XBDIQ1(90264,BRNRIEN,.02) Line Location: ADD+9
Function Call: WRITE	Prompt: !!,"INCOMPLETE DISCLOSURE BEING DELETED!",!! Line Location: DELETE+1
Routine Call	DIE Line Location: EDIT+1
Routine Call	DIR Line Location: PATIENT2+8 ASK+2 DATE+4

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^BRNREC - [#90264]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^BRNREC("AA"	REFDISP+3, REFDISP+6, NEXT+2
^DPT - [#2]	PATIENT2+4

Name	Field # of Occurrence
BRNDFN	PATIENT+1, PATIENT2+4*, PATIENT2+6!, REFDISP+3, REFDISP+6, NEXT+2, ADD+4
>> BRNDT	REFDISP+5, REFDISP+6, NEXT+2, NEXT+3
>> BRNLOOK	MAIN+2*
>> BRNMODE	MAIN+2*
>> BRNQ	START+1, MAIN+1, MAIN+5, MAIN+7, MAIN+10, GETDATE+2, GETDATE+4, PATIENT+1, PATIENT2+1, PATIENT2+5* , ASK+1, ASK+3, ASK+4, REFDISP+3, REFDISP+4, DATE+2, DATE+8, ADD+2, ADD+10
>> BRNRDATE	DATE+7*, ADD+4
>> BRNREC("PAT N	AME" , PATIENT2+4*, PATIENT2+6!
>> BRNREC("REF D	ATE" , DATE+7*
>> BRNRIEN	NEXT+1, NEXT+2, NEXT+4, ADD+8*, ADD+9, EDIT+1, RECVAR+2, DELETE+2
>> BRNRR	ADD+1*, ADD+3
DA	PATIENT2+8!, ASK+2!, DATE+4!, EDIT+1!, DELETE+2
>> DIC	PATIENT2+2, ADD+4
>> DIC("DR"	ADD+4*
>> DIC(0	PATIENT2+2, ADD+4
DIE	EDIT+1*!
DIE("NO^"	EDIT+1*!
>> DIK	DELETE+2*
DIR	PATIENT2+8!, ASK+2!, DATE+4!
DIR("A"	PATIENT2+8, ASK+2
DIR("B"	PATIENT2+8, ASK+2, DATE+4*
DIR(0	PATIENT2+8, ASK+2, DATE+4*
>> DIRUT	ASK+3, DATE+5
>> DLAYGO	ADD+4*
DR	EDIT+1*!
>> I	REFDISP+6, NEXT+6
U	PATIENT2+4
>> X	ADD+4*
>> Y	PATIENT2+3, PATIENT2+4, PATIENT2+6, ASK+4, DATE+6, DATE+7, ADD+6, ADD+8, RECVAR+2*
>> Y(0	DATE+7