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

ACDFUL1.m

Go to the documentation of this file.
  1. ACDFUL1 ;IHS/ADC/EDE/KML - IHS-SMBD/MLQ CDMIS FU LIST PART 1;
  1. ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
  1. ;;Extract date selected in ACDFUL2
  1. ;
  1. ; need an exclusive because ^ACDFUL2 calls FILE^DICN
  1. D ^XBNEW("EN^ACDFUL1:ACD*")
  1. Q
  1. ;
  1. EN ; EP - FOR EXCLUSIVE NEW
  1. S X1=ACDBEGDT,X2=-180 D C^%DTC
  1. S ACD6MO=$E(X,1,5)_"00",ACD6MOE=$E(X,1,5)_"99"
  1. S X1=ACDBEGDT,X2=-365 D C^%DTC
  1. S ACD12MO=$E(X,1,5)_"00",ACD12MOE=$E(X,1,5)_"99"
  1. S X1=ACDBEGDT,X2=-545 D C^%DTC
  1. S ACD18MO=$E(X,1,5)_"00",ACD18MOE=$E(X,1,5)_"99"
  1. S X1=ACDBEGDT,X2=-730 D C^%DTC
  1. S ACD24MO=$E(X,1,5)_"00",ACD24MOE=$E(X,1,5)_"99"
  1. W !,"Records Due for Follow Up on ",ACDBGMDY," will be extracted"
  1. D WAIT^DICD
  1. S DIK="^ACDWORK("
  1. S DA=0 F ACDIX=0:0 S DA=$O(^ACDWORK(DA)) Q:'+DA D ^DIK
  1. K ACDBEGDT,ACDIX,DA
  1. G ^ACDFUL2
  1. Q