- 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