ACGSDIC.m

ACGSDIC ;IHS/OIRM/DSD/THL,AEF - FILEMAN INTERFACE UTILITY; [ 03/27/2000   2:22 PM ]

 ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 ;;FILEMAN INTERFACE UTILITY WHICH IS THE ONLY PLACE WITHIN THE

 ;;PACKAGE FROM WHICH FILEMAN IS CALLED

DIC ;EP;

 K DTOUT,DUOUT,ACGQUIT,ACGOUT

 D ^DIC

 S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""

 K DIC,DA,DD,DR,DINUM,D

 Q

MIX ;EP;

 K DTOUT,DUOUT,ACGQUIT,ACGOUT

 D MIX^DIC1

 S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""

 K DIC,DA,DD,DR,DINUM,D

 Q

IX ;EP;

 K DTOUT,DUOUT,ACGQUIT,ACGOUT

 D IX^DIC

 S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""

 K DIC,DA,DD,DR,DINUM,D

 Q

DIE ;EP;

 Q:'DA

 K DTOUT,DUOUT,ACGQUIT,ACGOUT

 L +@(DIE_DA_")"):4

 I '$T S ACGQUIT="" I $D(IOST),$E(IOST,1,2)="C-" W !!,"Entry being edited by another user.  Please try Later.",!

 Q:$D(ACGQUIT)

 S ACGDIEDA=DA

 I DIE="^ACGS(",DR'["1099///" S DR="1099////"_DT_";"_DR

 D ^DIE

 L -@(DIE_ACGDIEDA_")"):0

 I $D(DTOUT)!$D(DUOUT) S (ACGQUIT,ACGOUT)=""

 K DIE,DIC,DA,DR

 Q

FILE ;EP;

 K DD,DO,DTOUT,DUOUT,ACGQUIT,ACGOUT

 D FILE^DICN

 S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""

 K DIC,DA,DD,DR,DINUM

 Q

DIR ;EP;

 K DTOUT,DUOUT,ACGQUIT,ACGOUT

 D ^DIR

 S ACGY=Y

 S:$D(DIRUT)!$D(DIROUT) ACGQUIT=""

 S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""

 K DIR,DIRUT,DIROUT,DUOUT,DTOUT

 Q

DIK ;EP;

 K DTOUT,DUOUT,ACGQUIT,ACGOUT

 D ^DIK

 K DIK,DA

 Q

IX1 ;EP;

 K DTOUT,DUOUT,ACGQUIT,ACGOUT

 D IX1^DIK

 K DIK,DA

 Q

ACGSDIC   ;IHS/OIRM/DSD/THL,AEF - FILEMAN INTERFACE UTILITY; [ 03/27/2000   2:22 PM ]

 +1       ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000

 +2       ;;FILEMAN INTERFACE UTILITY WHICH IS THE ONLY PLACE WITHIN THE

 +3       ;;PACKAGE FROM WHICH FILEMAN IS CALLED

DIC       ;EP;

 +1        KILL DTOUT,DUOUT,ACGQUIT,ACGOUT

 +2        DO ^DIC

 +3        IF $DATA(DTOUT)!$DATA(DUOUT)!(X="^^")

               SET (ACGQUIT,ACGOUT)=""

 +4        KILL DIC,DA,DD,DR,DINUM,D

 +5        QUIT 

MIX       ;EP;

 +1        KILL DTOUT,DUOUT,ACGQUIT,ACGOUT

 +2        DO MIX^DIC1

 +3        IF $DATA(DTOUT)!$DATA(DUOUT)!(X="^^")

               SET (ACGQUIT,ACGOUT)=""

 +4        KILL DIC,DA,DD,DR,DINUM,D

 +5        QUIT 

IX        ;EP;

 +1        KILL DTOUT,DUOUT,ACGQUIT,ACGOUT

 +2        DO IX^DIC

 +3        IF $DATA(DTOUT)!$DATA(DUOUT)!(X="^^")

               SET (ACGQUIT,ACGOUT)=""

 +4        KILL DIC,DA,DD,DR,DINUM,D

 +5        QUIT 

DIE       ;EP;

 +1        IF 'DA

               QUIT 

 +2        KILL DTOUT,DUOUT,ACGQUIT,ACGOUT

 +3        LOCK +@(DIE_DA_")"):4

 +4        IF '$TEST

               SET ACGQUIT=""

               IF $DATA(IOST)

                   IF $EXTRACT(IOST,1,2)="C-"

                       WRITE !!,"Entry being edited by another user.  Please try Later.",!

 +5        IF $DATA(ACGQUIT)

               QUIT 

 +6        SET ACGDIEDA=DA

 +7        IF DIE="^ACGS("

               IF DR'["1099///"

                   SET DR="1099////"_DT_";"_DR

 +8        DO ^DIE

 +9        LOCK -@(DIE_ACGDIEDA_")"):0

 +10       IF $DATA(DTOUT)!$DATA(DUOUT)

               SET (ACGQUIT,ACGOUT)=""

 +11       KILL DIE,DIC,DA,DR

 +12       QUIT 

FILE      ;EP;

 +1        KILL DD,DO,DTOUT,DUOUT,ACGQUIT,ACGOUT

 +2        DO FILE^DICN

 +3        IF $DATA(DTOUT)!$DATA(DUOUT)!(X="^^")

               SET (ACGQUIT,ACGOUT)=""

 +4        KILL DIC,DA,DD,DR,DINUM

 +5        QUIT 

DIR       ;EP;

 +1        KILL DTOUT,DUOUT,ACGQUIT,ACGOUT

 +2        DO ^DIR

 +3        SET ACGY=Y

 +4        IF $DATA(DIRUT)!$DATA(DIROUT)

               SET ACGQUIT=""

 +5        IF $DATA(DTOUT)!$DATA(DUOUT)!(X="^^")

               SET (ACGQUIT,ACGOUT)=""

 +6        KILL DIR,DIRUT,DIROUT,DUOUT,DTOUT

 +7        QUIT 

DIK       ;EP;

 +1        KILL DTOUT,DUOUT,ACGQUIT,ACGOUT

 +2        DO ^DIK

 +3        KILL DIK,DA

 +4        QUIT 

IX1       ;EP;

 +1        KILL DTOUT,DUOUT,ACGQUIT,ACGOUT

 +2        DO IX1^DIK

 +3        KILL DIK,DA

 +4        QUIT