Routine: BRNADDM

Information

BRNADDM ; IHS/OIT/LJF - ADD MULTIPLE PATIENTS UNDER ONE REQUEST

Source file <BRNADDM.m>

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

Name	Comments	DBIA/ICR reference
DATE
PATS	; loop through patients, stuff common data and ask individual data
ADDPAT	; add new disclosure for this patient

Name	Field # of Occurrence
$$DOD^AUPNPAT	PATS+7
$$FACOK^BRNU	DATE+2
$$READ^BRNU	DATE, DATE+4, DATE+5, DATE+7, DATE+8, DATE+9, DATE+11, PATS+5, PATS+9, PATS+11
PAUSE^BRNU	ADDPAT+6
FILE^DICN	ADDPAT+3
^DIE	PATS+16
$$GET1^DIQ	ADDPAT+10
Y^DIQ	DATE+10

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option allows you to enter multiple patients under one request." Line Location: BRNADDM+4
Function Call: WRITE	Prompt: !,"You will be asked the requesting information once and then the " Line Location: BRNADDM+5
Function Call: WRITE	Prompt: !,"specific information for each patient.",! Line Location: BRNADDM+6
Function Call: WRITE	Prompt: !," MUST BE BEFORE YOUR DIVISION'S INACTIVATION DATE ",! Line Location: DATE+2
Function Call: WRITE	Prompt: !!,"This patient is deceased." Line Location: PATS+8
Function Call: WRITE	Prompt: ! Line Location: PATS+17
Function Call: WRITE	Prompt: !,"Error creating DISCLOSURE.",!,"Notify programmer.",! Line Location: ADDPAT+5
Function Call: WRITE	Prompt: !!,"DISCLOSURE NUMBER: ",$$GET1^DIQ(90264,BRNRIEN,.02) Line Location: ADDPAT+10
Routine Call	DIE Line Location: PATS+16

FileNo	Call Tags
^BRNREC - [#90264]	Classic Fileman Calls, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(90264	DATE+10

Name	Line Occurrences
ADDPAT	PATS+13
DATE	DATE+2

Name	Field # of Occurrence
BRNDFN	PATS+1~, PATS+3, PATS+5*, PATS+7, ADDPAT+2
BRNMETH	BRNADDM+8~, DATE+7*
BRNOTHER	BRNADDM+8~, DATE+5*
BRNPARTY	BRNADDM+8~, DATE+8*
BRNPRIOR	BRNADDM+8~, DATE+11*
BRNPUR	BRNADDM+8~, DATE+9, DATE+10
BRNQUIT	BRNADDM+8~, PATS+2, PATS+7, PATS+9, PATS+13, ADDPAT+7*
BRNRDATE	BRNADDM+8~, DATE*, DATE+1, DATE+2, ADDPAT+2
BRNRIEN	PATS+1~, PATS+15, ADDPAT+9*, ADDPAT+10
BRNTYPE	BRNADDM+8~, DATE+4*, DATE+5
C	DATE+10*!
DA	PATS+15*, PATS+16!
DD	ADDPAT+1~
DIC	ADDPAT+1~, ADDPAT+2*
DIC("DR"	ADDPAT+2*
DIC(0	ADDPAT+2*
DIE	PATS+15*, PATS+16!
DIE("NO^"	PATS+15*, PATS+16!
DLAYGO	ADDPAT+1~, ADDPAT+2*
DO	ADDPAT+1~
DR	PATS+15*, PATS+16!
FIRST	PATS+1~, PATS+2, PATS+4
>> PROMPT	PATS+4*, PATS+5
U	DATE+4, DATE+7, DATE+8, DATE+9, DATE+10, DATE+11
>> X	ADDPAT+2*
Y	DATE+10*!, ADDPAT+1~, ADDPAT+4, ADDPAT+9