ACDFMC.m

ACDFMC ;IHS/ADC/EDE/KML - CDMIS FILEMAN CALLS;

 ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 ;

DIC ; EP - CALL ^DIC

 D ^DIC

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

 Q

 ;

DIE ; EP - CALL ^DIE

 NEW ACDDA

 S ACDDA=DA

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

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

 D ^DIE

 L -@(DIE_ACDDA_")")

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

 K:'$G(ACDKPDA) DA

 K ACDKPDA

 Q

DIK ; EP - CALL ^DIK

 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

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

 Q

 ;

DIQ1 ; EP - CALL ^DIQ1

 D EN^DIQ1

 K DIQ

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

 Q

 ;

FILE ; EP - CALL FILE^DICN

 K DD,DO

 D FILE^DICN

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

 Q

ACDFMC    ;IHS/ADC/EDE/KML - CDMIS FILEMAN CALLS;

 +1       ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998

 +2       ;

DIC       ; EP - CALL ^DIC

 +1        DO ^DIC

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

 +3        QUIT 

 +4       ;

DIE       ; EP - CALL ^DIE

 +1        NEW ACDDA

 +2        SET ACDDA=DA

 +3        IF DIE

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

 +4        LOCK +@(DIE_ACDDA_")"):5

           IF '$TEST

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

               QUIT 

 +5        DO ^DIE

 +6        LOCK -@(DIE_ACDDA_")")

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

 +8        IF '$GET(ACDKPDA)

               KILL DA

 +9        KILL ACDKPDA

 +10       QUIT 

DIK       ; EP - CALL ^DIK

 +1        DO ^DIK

 +2        KILL DIK

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

 +4        QUIT 

 +5       ;

DIQ       ; EP - CALL ^DIQ

 +1        DO EN^DIQ

 +2        KILL DIQ

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

 +4        QUIT 

 +5       ;

DIQ1      ; EP - CALL ^DIQ1

 +1        DO EN^DIQ1

 +2        KILL DIQ

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

 +4        QUIT 

 +5       ;

FILE      ; EP - CALL FILE^DICN

 +1        KILL DD,DO

 +2        DO FILE^DICN

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

 +4        QUIT