Routine: BRNPTN

Information

BRNPTN ; IHS/PHXAO/TMJ - ROI CUMMULATIVE PATIENT HX FOR CHART ;

Source file <BRNPTN.m>

Package	Total	Call Graph
VA Fileman	3	^DIC EN1^DIP ^DIR

Package	Total	Caller Graph
IHS Release Of Information	2	BRN GS PATIENT BRN GS PATIENT ACCOUNTING

Name	Comments	DBIA/ICR reference
PRINT	;PRINT CUMMULATIVE PATIENT RECORD OF ALL DISCLOSURES
END	;
CKDIS	; IHS/OIT/GAB PATCH 4 - FIX UNDEF ERROR WHEN THERE ARE NO DISCLOSURES
RETURN	; /IHS/GAB ADDED PATCH #4 ; Press return to continue
SERVICE	;PICK PATIENT NAME ENTRY

Name	Line Occurrences
Function Call: WRITE	Prompt: !!! Line Location: SERVICE+1
Function Call: WRITE	Prompt: ! Line Location: PRINT+1
Function Call: WRITE	Prompt: !!,?20,"****** NO EXISTING DISCLOSURES FOR THIS PATIENT *" Line Location: CKDIS+2
Function Call: WRITE	Prompt: ! Line Location: RETURN+2
Routine Call	DIC Line Location: SERVICE+2
Routine Call	DIR Line Location: RETURN+5

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

Name	Line Occurrences (* Changed, ! Killed)
^BRNREC("AA"	CKDIS+2

Name	Field # of Occurrence
B	END+1!
BRNPTN	SERVICE+3*, SERVICE+4, PRINT+3, CKDIS+2, END+1!
>> BY	PRINT+2*
DD0	END+1!
DHIT	PRINT+4!
>> DIC	SERVICE+2, PRINT+2
>> DIC("A"	SERVICE+2*
>> DIC(0	SERVICE+2*
DIOBEG	PRINT+4!
DIOEND	PRINT+4!
DIR	RETURN+6!
DIR("A"	RETURN+4*
DIR(0	RETURN+3*
>> FLDS	PRINT+2*
>> FR	PRINT+3*
>> L	PRINT+2*
>> NODIS	SERVICE+6, CKDIS+1, CKDIS+2
>> TO	PRINT+3*
X	END+1!
>> Y	SERVICE+3