BMCFMC.m

BMCFMC ; IHS/PHXAO/TMJ - RCIS FILEMAN CALLS ;

 ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 ;

DIC ; EP - CALL ^DIC

 NEW BMCRNS

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

 S BMCRNS=1

 NEW BMCDA

 S BMCDA=DA

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

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

 D ^DIE

 L -@(DIE_BMCDA_")")

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

 K:'$G(BMCKPDA) DA

 K BMCKPDA

 Q

DIK ; EP - CALL ^DIK

 NEW BMCRNS

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

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

BMCFMC    ; IHS/PHXAO/TMJ - RCIS FILEMAN CALLS ;

 +1       ;;4.0;REFERRED CARE INFO SYSTEM;;JAN 09, 2006

 +2       ;

DIC       ; EP - CALL ^DIC

 +1        NEW BMCRNS

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

 +2        SET BMCRNS=1

 +3        NEW BMCDA

 +4        SET BMCDA=DA

 +5        IF DIE

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

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

           IF '$TEST

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

               QUIT 

 +7        DO ^DIE

 +8        LOCK -@(DIE_BMCDA_")")

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

 +10       IF '$GET(BMCKPDA)

               KILL DA

 +11       KILL BMCKPDA

 +12       QUIT 

DIK       ; EP - CALL ^DIK

 +1        NEW BMCRNS

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

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