BRNFMC.m

BRNFMC ; IHS/PHXAO/TMJ - DISCLOSURE FILEMAN CALLS ; 

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

 ;

DIC ; EP - CALL ^DIC

 NEW BRNRNS

 S BRNRNS=1

 D ^DIC

 K D,DD,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DIPGM,DLAYGO,DO,DQ,DR,DINUM

 Q

 ;

DIE ; EP - CALL ^DIE

 NEW BRNRNS

 S BRNRNS=1

 NEW BRNDA

 S BRNDA=DA

 I DIE S DIE=^DIC(DIE,0,"GL")

 L +@(DIE_BRNDA_")"):5 I '$T W !,"Sorry, someone else is editing this record.  Try later." Q

 D ^DIE

 L -@(DIE_BRNDA_")")

 K D,D0,D1,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 K:'$G(BRNKPDA) DA

 K BRNKPDA

 Q

DIK ; EP - CALL ^DIK

 NEW BRNRNS

 S BRNRNS=1

 D ^DIK

 K DIK

 K D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 Q

 ;

DIQ ; EP - CALL ^DIQ

 D EN^DIQ

 K DIQ,DIQ2

 K D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 Q

 ;

DIQ1 ; EP - CALL ^DIQ1

 D EN^DIQ1

 K DIQ,DIQ2

 K D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 Q

 ;

FILE ; EP - CALL FILE^DICN

 NEW BRNRNS

 S BRNRNS=1

 K DD,DO

 D FILE^DICN

 K D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 Q

 ;

DDS ; EP - CALL ^DDS (ScreenMan)

 ;D:'$D(IOST(0)) HOME^%ZIS D ENS^%ZISS ;activate if you need IOINHI etc.

 K ^TMP("DDS",$J)

 D ^DDS

 K DDSFILE,DA,DR

 ;D KILL^%ZISS ;                        activate if above line activated

 Q

BRNFMC    ; IHS/PHXAO/TMJ - DISCLOSURE FILEMAN CALLS ; 

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

 +2       ;

DIC       ; EP - CALL ^DIC

 +1        NEW BRNRNS

 +2        SET BRNRNS=1

 +3        DO ^DIC

 +4        KILL D,DD,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DIPGM,DLAYGO,DO,DQ,DR,DINUM

 +5        QUIT 

 +6       ;

DIE       ; EP - CALL ^DIE

 +1        NEW BRNRNS

 +2        SET BRNRNS=1

 +3        NEW BRNDA

 +4        SET BRNDA=DA

 +5        IF DIE

               SET DIE=^DIC(DIE,0,"GL")

 +6        LOCK +@(DIE_BRNDA_")"):5

           IF '$TEST

               WRITE !,"Sorry, someone else is editing this record.  Try later."

               QUIT 

 +7        DO ^DIE

 +8        LOCK -@(DIE_BRNDA_")")

 +9        KILL D,D0,D1,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 +10       IF '$GET(BRNKPDA)

               KILL DA

 +11       KILL BRNKPDA

 +12       QUIT 

DIK       ; EP - CALL ^DIK

 +1        NEW BRNRNS

 +2        SET BRNRNS=1

 +3        DO ^DIK

 +4        KILL DIK

 +5        KILL D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 +6        QUIT 

 +7       ;

DIQ       ; EP - CALL ^DIQ

 +1        DO EN^DIQ

 +2        KILL DIQ,DIQ2

 +3        KILL D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 +4        QUIT 

 +5       ;

DIQ1      ; EP - CALL ^DIQ1

 +1        DO EN^DIQ1

 +2        KILL DIQ,DIQ2

 +3        KILL D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 +4        QUIT 

 +5       ;

FILE      ; EP - CALL FILE^DICN

 +1        NEW BRNRNS

 +2        SET BRNRNS=1

 +3        KILL DD,DO

 +4        DO FILE^DICN

 +5        KILL D,D0,D1,DA,DI,DIADD,DIC,DICR,DIE,DLAYGO,DQ,DR,DINUM

 +6        QUIT 

 +7       ;

DDS       ; EP - CALL ^DDS (ScreenMan)

 +1       ;D:'$D(IOST(0)) HOME^%ZIS D ENS^%ZISS ;activate if you need IOINHI etc.

 +2        KILL ^TMP("DDS",$JOB)

 +3        DO ^DDS

 +4        KILL DDSFILE,DA,DR

 +5       ;D KILL^%ZISS ;                        activate if above line activated

 +6        QUIT