Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACGSDIC

ACGSDIC.m

Go to the documentation of this file.
  1. ACGSDIC ;IHS/OIRM/DSD/THL,AEF - FILEMAN INTERFACE UTILITY; [ 03/27/2000 2:22 PM ]
  1. ;;2.0t1;CONTRACT INFORMATION SYSTEM;;FEB 16, 2000
  1. ;;FILEMAN INTERFACE UTILITY WHICH IS THE ONLY PLACE WITHIN THE
  1. ;;PACKAGE FROM WHICH FILEMAN IS CALLED
  1. DIC ;EP;
  1. K DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. D ^DIC
  1. S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""
  1. K DIC,DA,DD,DR,DINUM,D
  1. Q
  1. MIX ;EP;
  1. K DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. D MIX^DIC1
  1. S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""
  1. K DIC,DA,DD,DR,DINUM,D
  1. Q
  1. IX ;EP;
  1. K DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. D IX^DIC
  1. S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""
  1. K DIC,DA,DD,DR,DINUM,D
  1. Q
  1. DIE ;EP;
  1. Q:'DA
  1. K DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. L +@(DIE_DA_")"):4
  1. I '$T S ACGQUIT="" I $D(IOST),$E(IOST,1,2)="C-" W !!,"Entry being edited by another user. Please try Later.",!
  1. Q:$D(ACGQUIT)
  1. S ACGDIEDA=DA
  1. I DIE="^ACGS(",DR'["1099///" S DR="1099////"_DT_";"_DR
  1. D ^DIE
  1. L -@(DIE_ACGDIEDA_")"):0
  1. I $D(DTOUT)!$D(DUOUT) S (ACGQUIT,ACGOUT)=""
  1. K DIE,DIC,DA,DR
  1. Q
  1. FILE ;EP;
  1. K DD,DO,DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. D FILE^DICN
  1. S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""
  1. K DIC,DA,DD,DR,DINUM
  1. Q
  1. DIR ;EP;
  1. K DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. D ^DIR
  1. S ACGY=Y
  1. S:$D(DIRUT)!$D(DIROUT) ACGQUIT=""
  1. S:$D(DTOUT)!$D(DUOUT)!(X="^^") (ACGQUIT,ACGOUT)=""
  1. K DIR,DIRUT,DIROUT,DUOUT,DTOUT
  1. Q
  1. DIK ;EP;
  1. K DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. D ^DIK
  1. K DIK,DA
  1. Q
  1. IX1 ;EP;
  1. K DTOUT,DUOUT,ACGQUIT,ACGOUT
  1. D IX1^DIK
  1. K DIK,DA
  1. Q