BRNPOST1.m

BRNPOST1 ; IHS/PHXAO/TMJ - Populate the File Conversion Field ;  

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

 ;

START ;Begin $order

 W !,"I WILL NOW POPULATE THE File Conversion Field of the ROI Site Parameters File.",!

 ;

 S BRNDFN=$O(^BRNPARM("B",0))

 I BRNDFN="" D NEW

 ELSE  S BRNDFN=0 F  S BRNDFN=$O(^BRNPARM(BRNDFN)) Q:BRNDFN'=+BRNDFN  D

 .D EDIT

 D END

 Q

 ;

NEW ; -- create new entry in ROI Site Parameters File

 Q:$D(^BRNPARM("B"))  ;Quit if Record Exists

 D ^XBFMK K DIADD,DINUM

 S X=DUZ(2),DIC="^BRNPARM(",DIC(0)="L",DLAYGO=90264.2

 S DIC("DR")=".04////"_1

 S DIC("DR")=".02////"_0

 D FILE^DICN D ^XBFMK K DIADD,DINUM

 Q

 ;

EDIT ;FIX THE PROBLEM

 ;

 Q:$P($G(^BRNPARM(BRNDFN,0)),U,4)=1

 S DA=BRNDFN,DIE="^BRNPARM(",DR=".04////"_1 D ^DIE K DIE

 Q

END ;END OF ROUTINE

 K BRNDFN,BRNDOC,BRNPTR

 W !,"END OF THE POPULATION OF THE CONVERSION DOCUMENTATION ",!

 Q

BRNPOST1  ; IHS/PHXAO/TMJ - Populate the File Conversion Field ;  

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

 +2       ;

START     ;Begin $order

 +1        WRITE !,"I WILL NOW POPULATE THE File Conversion Field of the ROI Site Parameters File.",!

 +2       ;

 +3        SET BRNDFN=$ORDER(^BRNPARM("B",0))

 +4        IF BRNDFN=""

               DO NEW

 +5       IF '$TEST

               SET BRNDFN=0

               FOR 

                   SET BRNDFN=$ORDER(^BRNPARM(BRNDFN))

                   IF BRNDFN'=+BRNDFN

                       QUIT 

                   Begin DoDot:1

 +6                    DO EDIT

                   End DoDot:1

 +7        DO END

 +8        QUIT 

 +9       ;

NEW       ; -- create new entry in ROI Site Parameters File

 +1       ;Quit if Record Exists

           IF $DATA(^BRNPARM("B"))

               QUIT 

 +2        DO ^XBFMK

           KILL DIADD,DINUM

 +3        SET X=DUZ(2)

           SET DIC="^BRNPARM("

           SET DIC(0)="L"

           SET DLAYGO=90264.2

 +4        SET DIC("DR")=".04////"_1

 +5        SET DIC("DR")=".02////"_0

 +6        DO FILE^DICN

           DO ^XBFMK

           KILL DIADD,DINUM

 +7        QUIT 

 +8       ;

EDIT      ;FIX THE PROBLEM

 +1       ;

 +2        IF $PIECE($GET(^BRNPARM(BRNDFN,0)),U,4)=1

               QUIT 

 +3        SET DA=BRNDFN

           SET DIE="^BRNPARM("

           SET DR=".04////"_1

           DO ^DIE

           KILL DIE

 +4        QUIT 

END       ;END OF ROUTINE

 +1        KILL BRNDFN,BRNDOC,BRNPTR

 +2        WRITE !,"END OF THE POPULATION OF THE CONVERSION DOCUMENTATION ",!

 +3        QUIT