BDPFMC.m

BDPFMC ; IHS/CMI/TMJ - BDP FILEMAN CALLS ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;

DIC ; EP - CALL ^DIC

 NEW BDPRNS

 S BDPRNS=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 BDPRNS

 S BDPRNS=1

 NEW BDPDA

 S BDPDA=DA

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

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

 D ^DIE

 L -@(DIE_BDPDA_")")

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

 K:'$G(BDPKPDA) DA

 K BDPKPDA

 Q

DIK ; EP - CALL ^DIK

 NEW BDPRNS

 S BDPRNS=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 BDPRNS

 S BDPRNS=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

 ;

BDPFMC    ; IHS/CMI/TMJ - BDP FILEMAN CALLS ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;

DIC       ; EP - CALL ^DIC

 +1        NEW BDPRNS

 +2        SET BDPRNS=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 BDPRNS

 +2        SET BDPRNS=1

 +3        NEW BDPDA

 +4        SET BDPDA=DA

 +5        IF DIE

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

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

           IF '$TEST

               IF '$GET(BDPQUIET)

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

               QUIT 

 +7        DO ^DIE

 +8        LOCK -@(DIE_BDPDA_")")

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

 +10       IF '$GET(BDPKPDA)

               KILL DA

 +11       KILL BDPKPDA

 +12       QUIT 

DIK       ; EP - CALL ^DIK

 +1        NEW BDPRNS

 +2        SET BDPRNS=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 BDPRNS

 +2        SET BDPRNS=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 

 +7       ;