BRNOPEN.m

BRNOPEN ; IHS/OIT/LJF - LIST OPEN DISCLOSURES 

 ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003

 ;IHS/OIT/LJF 01/23/2008 PATCH 1 Converted option from print template to routine

 ;                               Added this routine so facility could be asked

 ;

 ;

 D ASKFAC^BRNU(.BRNFAC) I BRNFAC="" Q

 I BRNFAC>0 S BRNFACN=$$GET1^DIQ(90264.2,BRNFAC,.01)

 ;

PRINT ;PRINT OPEN DISCLOSURES

 S FLDS="[CAPTIONED]",BY="FACILITY;S1,@INTERNAL(#.08)",DIC="^BRNREC(",L=0

 I BRNFAC=0 S FR="@,O",TO="ZZZ,O"

 E  S FR=BRNFACN_",O",TO=BRNFACN_",O"

 ;

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K BRNFAC,BRNFACN,FLDS,BY,FR,TO,DIC,L

 Q

BRNOPEN   ; IHS/OIT/LJF - LIST OPEN DISCLOSURES 

 +1       ;;2.0;RELEASE OF INFO SYSTEM;*1*;APR 10, 2003

 +2       ;IHS/OIT/LJF 01/23/2008 PATCH 1 Converted option from print template to routine

 +3       ;                               Added this routine so facility could be asked

 +4       ;

 +5       ;

 +6        DO ASKFAC^BRNU(.BRNFAC)

           IF BRNFAC=""

               QUIT 

 +7        IF BRNFAC>0

               SET BRNFACN=$$GET1^DIQ(90264.2,BRNFAC,.01)

 +8       ;

PRINT     ;PRINT OPEN DISCLOSURES

 +1        SET FLDS="[CAPTIONED]"

           SET BY="FACILITY;S1,@INTERNAL(#.08)"

           SET DIC="^BRNREC("

           SET L=0

 +2        IF BRNFAC=0

               SET FR="@,O"

               SET TO="ZZZ,O"

 +3       IF '$TEST

               SET FR=BRNFACN_",O"

               SET TO=BRNFACN_",O"

 +4       ;

 +5        KILL DHIT,DIOEND,DIOBEG

 +6        DO EN1^DIP

END       ;

 +1        KILL BRNFAC,BRNFACN,FLDS,BY,FR,TO,DIC,L

 +2        QUIT