Routine: BRNPTR

Package	Total	Caller Graph
IHS Release Of Information	1	BRN PT CUMMULATIVE RECORD

Entry Points

Name	Comments	DBIA/ICR reference
BEGIN	;Begin $ORDER
GETDIS	;Get this Patient's Disclosure Records
HEADER	;Print the Header for Display
EOJ	;End of Job
GETPAT	;Get Patient Name
GETANS	;Ask if User wants to Print Suspended Disclosures
START	;Get Patient
PRINT	;Print the Disclosure Records

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No PATIENT Selected!" Line Location: START+3
Function Call: WRITE	Prompt: ! Line Location: GETDIS+4
Function Call: WRITE	Prompt: ?5,BRNCT_")",?12,BRNDN,?23,BRNDTP,?37,BRNPTYP,?62,BRNTYP,?73,BRNST,! Line Location: BEGIN+18
Function Call: WRITE	Prompt: !,?5,"NO DISCLOSURE RECORDS TO PRINT FOR THIS PATIENT",! Line Location: BEGIN+19
Function Call: WRITE	Prompt: !!,?5,"CUMMULATIVE DISCLOSURE RECORDS FOR: "_$P($G(^DPT(BRNPAT,0)),U),! Line Location: HEADER+1
Function Call: WRITE	Prompt: ?5,"HEALTH RECORD #: " Line Location: HEADER+2
Function Call: WRITE	Prompt: ?25,$$HRN^AUPNPAT(BRNPAT,DUZ(2),2),! Line Location: HEADER+2
Function Call: WRITE	Prompt: ?5,"DISPLAY DATE: "_$$FMTE^XLFDT(DT,"1P") Line Location: HEADER+3
Function Call: WRITE	Prompt: !!,?3,"Number",?12,"DISC #",?23,"DT REC'D",?37,"REQUESTING PARTY",?60,"TYPE",?70,"STATUS",! Line Location: HEADER+5
Function Call: WRITE	Prompt: ?3,"____________________________________________________________________________",! Line Location: HEADER+6
Routine Call	DIC Line Location: GETPAT+1
Routine Call	DIR Line Location: GETANS+2
Routine Call	%ZIS Line Location: GETDIS+4

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

Name	Line Occurrences (* Changed, ! Killed)
^BRNREC - [#90264]	BEGIN+3, BEGIN+4, BEGIN+10, BEGIN+11, BEGIN+13, BEGIN+16, BEGIN+17
^BRNREC("E"	BEGIN+1
^BRNTREQ - [#90264.1]	BEGIN+14
^DPT - [#2]	HEADER+1

Name	Field # of Occurrence
%	EOJ+1!
%DT	EOJ+1!
%X	EOJ+1!
%Y	EOJ+1!
>> %ZIS	GETDIS+4*
BRNANS	START+4, GETANS+5, BEGIN+6, EOJ+2!
BRNCT	GETDIS+3, BEGIN+9, BEGIN+18, BEGIN+19, EOJ+2!
BRNDIS	EOJ+2!
BRNDN	BEGIN+10*, BEGIN+18, EOJ+2!
BRNDT	BEGIN+11*, BEGIN+12, EOJ+2!
BRNDTP	BEGIN+12*, BEGIN+18, EOJ+2!
BRNIEN	BEGIN+1*, BEGIN+3, BEGIN+4, BEGIN+10, BEGIN+11, BEGIN+13, BEGIN+16, BEGIN+17, EOJ+2!
BRNPAT	START+1, START+3, GETPAT+3, GETDIS+2, BEGIN+1, HEADER+1, HEADER+2, EOJ+2!
BRNPTY	BEGIN+13*, BEGIN+14, EOJ+2!
BRNPTYP	BEGIN+14, BEGIN+15, BEGIN+18, EOJ+2!
BRNQ	START+4, START+6, GETANS+3, EOJ+2!
BRNQUIT	BEGIN+2, BEGIN+7, BEGIN+8, EOJ+2!
BRNSEDT	BEGIN+4*, BEGIN+7, EOJ+2!
BRNSSDT	BEGIN+3*, BEGIN+5, BEGIN+7, EOJ+2!
BRNST	BEGIN+17*, BEGIN+18, EOJ+2!
BRNTYP	BEGIN+16*, BEGIN+18, EOJ+2!
DA	GETANS+2!
DIC	GETPAT+1*!
DIC(0	GETPAT+1*
DIR	GETANS+2!
DIR("A"	GETANS+2*
DIR("B"	GETANS+2*
DIR(0	GETANS+2*
>> DIRUT	GETANS+3
DT	BEGIN+7, HEADER+3
DUZ(2	HEADER+2
IO("Q"	GETDIS+4!
IOP	GETDIS+4!
U	BEGIN+3, BEGIN+4, BEGIN+10, BEGIN+11, BEGIN+13, BEGIN+14, BEGIN+16, BEGIN+17, HEADER+1
>> Y	GETPAT+2, GETPAT+3, GETANS+5