DINIT26.m

DINIT26 ;SFISC/XAK-INITIALIZE VA FILEMAN ;9/9/94  14:16

 ;;22.0;VA FileMan;;Mar 30, 1999

 ;Per VHA Directive 10-93-142, this routine should not be modified.

 F I=1:2 S X=$T(Q+I) G ^DINIT260:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y

Q Q

 ;;^DIC(1.11,0,"GL")

 ;;=^DIAR(1.11,

 ;;^DIC("B","ARCHIVAL ACTIVITY",1.11)

 ;;=

 ;;^DIC(1.11,"%D",0)

 ;;=^^1^1^2930712^

 ;;^DIC(1.11,"%D",1,0)

 ;;=This file stores information and status of data archiving activities.

 ;;^DD(1.11,0)

 ;;=FIELD^^16^23

 ;;^DD(1.11,0,"DT")

 ;;=2920514

 ;;^DD(1.11,0,"ID",1)

 ;;=W "   ",$O(^DD(+$P(^(0),U,2),0,"NM",0)),$E(^DIAR(1.11,Y,0),0)

 ;;^DD(1.11,0,"ID",4)

 ;;=W ?40,$E($P(^(0),U,5),4,5)_"-"_$E($P(^(0),U,5),6,7)_"-"_$E($P(^(0),U,5),2,3)

 ;;^DD(1.11,0,"ID",7)

 ;;=W "   ",$P($P($C(59)_$S($D(^DD(1.11,7,0)):$P(^(0),U,3),1:0),$C(59)_$P(^DIAR(1.11,Y,0),U,8)_":",2),$C(59),1)

 ;;^DD(1.11,0,"ID",8)

 ;;=S %I=Y,Y=$S('$D(^(0)):"",$D(^VA(200,+$P(^(0),U,9),0))#2:$P(^(0),U,1),1:""),C=$P($G(^DD(200,.01,0)),U,2) D:C]"" Y^DIQ:Y]"" W "   SELECTOR:",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I

 ;;^DD(1.11,0,"ID",16)

 ;;=W "   ",@("$P($P($C(59)_$S($D(^DD(1.11,16,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,17)_"":"",2),$C(59),1)")

 ;;^DD(1.11,0,"NM","ARCHIVAL ACTIVITY")

 ;;=

 ;;^DD(1.11,.01,0)

 ;;=ARCHIVE NUMBER^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X

 ;;^DD(1.11,.01,1,0)

 ;;=^.1

 ;;^DD(1.11,.01,1,1,0)

 ;;=1.11^B

 ;;^DD(1.11,.01,1,1,1)

 ;;=S ^DIAR(1.11,"B",$E(X,1,30),DA)=""

 ;;^DD(1.11,.01,1,1,2)

 ;;=K ^DIAR(1.11,"B",$E(X,1,30),DA)

 ;;^DD(1.11,.01,3)

 ;;=Type a Number between 1 and 9999999, 0 Decimal Digits

 ;;^DD(1.11,1,0)

 ;;=FILE^RP1'^DIC(^0;2^Q

 ;;^DD(1.11,1,1,0)

 ;;=^.1

 ;;^DD(1.11,1,1,1,0)

 ;;=1.11^C

 ;;^DD(1.11,1,1,1,1)

 ;;=S ^DIAR(1.11,"C",$E(X,1,30),DA)=""

 ;;^DD(1.11,1,1,1,2)

 ;;=K ^DIAR(1.11,"C",$E(X,1,30),DA)

 ;;^DD(1.11,1,3)

 ;;=Enter the file that this archival activity will effect.

 ;;^DD(1.11,2,0)

 ;;=SEARCH TEMPLATE^RP.401^DIBT(^0;3^Q

 ;;^DD(1.11,2,3)

 ;;=Enter the name of the sort/search template that you wish to use.

 ;;^DD(1.11,3,0)

 ;;=PRINT TEMPLATE^R*P.4'X^DIPT(^0;4^S DIC("S")="I $P(^(0),U,8)="_$S($D(DIAX):2,1:1)_",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)",DIC(0)="QE",D="F"_+$P(^DIAR(1.11,DA,0),U,2) D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

 ;;^DD(1.11,3,3)

 ;;=Enter the name of the FILEGRAM OR EXTRACT print template that you wish to use.

 ;;^DD(1.11,3,12)

 ;;=Select a print template in Filegram or Extract Format.

 ;;^DD(1.11,3,12.1)

 ;;=S DIC("S")="I $P(^(0),U,8)="_$S($D(DIAX):2,1:1)_",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)"

 ;;^DD(1.11,3,"DT")

 ;;=2920514

 ;;^DD(1.11,4,0)

 ;;=SELECT DATE^RD^^0;5^S %DT="ET" D ^%DT S X=Y K:Y<1 X

 ;;^DD(1.11,4,3)

 ;;=Enter the select date of this archival activity.

 ;;^DD(1.11,5,0)

 ;;=ARCHIVER^P200'^VA(200,^0;6^Q

 ;;^DD(1.11,5,3)

 ;;=Enter the name of the user that is doing the archiving.

 ;;^DD(1.11,6,0)

 ;;=NUMBER OF ITEMS TO ARCHIVE^RNJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X

 ;;^DD(1.11,6,3)

 ;;=Type a Number between 0 and 9999999, 0 Decimal Digits

 ;;^DD(1.11,7,0)

 ;;=ARCHIVAL STATUS^S^1:SELECTED;2:EDITED;4:ARCHIVED (TEMPORARY);5:ARCHIVED (PERMANENT);6:UPDATED DESTINATION FILE;90:PURGED;^0;8^Q

 ;;^DD(1.11,7,"DT")

 ;;=2920511

 ;;^DD(1.11,8,0)

 ;;=SELECTOR^P200'^VA(200,^0;9^Q

 ;;^DD(1.11,9,0)

 ;;=PURGER^P200'^VA(200,^0;10^Q

 ;;^DD(1.11,10,0)

 ;;=ARCHIVE DATE^D^^0;11^S %DT="E" D ^%DT S X=Y K:Y<1 X

 ;;^DD(1.11,11,0)

 ;;=PURGE DATE^D^^0;12^S %DT="E" D ^%DT S X=Y K:Y<1 X

DINIT26   ;SFISC/XAK-INITIALIZE VA FILEMAN ;9/9/94  14:16

 +1       ;;22.0;VA FileMan;;Mar 30, 1999

 +2       ;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   GOTO ^DINIT260

               SET Y=$EXTRACT($TEXT(Q+I+1),5,999)

               SET X=$EXTRACT(X,4,999)

               SET @X=Y

Q          QUIT 

 +1       ;;^DIC(1.11,0,"GL")

 +2       ;;=^DIAR(1.11,

 +3       ;;^DIC("B","ARCHIVAL ACTIVITY",1.11)

 +4       ;;=

 +5       ;;^DIC(1.11,"%D",0)

 +6       ;;=^^1^1^2930712^

 +7       ;;^DIC(1.11,"%D",1,0)

 +8       ;;=This file stores information and status of data archiving activities.

 +9       ;;^DD(1.11,0)

 +10      ;;=FIELD^^16^23

 +11      ;;^DD(1.11,0,"DT")

 +12      ;;=2920514

 +13      ;;^DD(1.11,0,"ID",1)

 +14      ;;=W "   ",$O(^DD(+$P(^(0),U,2),0,"NM",0)),$E(^DIAR(1.11,Y,0),0)

 +15      ;;^DD(1.11,0,"ID",4)

 +16      ;;=W ?40,$E($P(^(0),U,5),4,5)_"-"_$E($P(^(0),U,5),6,7)_"-"_$E($P(^(0),U,5),2,3)

 +17      ;;^DD(1.11,0,"ID",7)

 +18      ;;=W "   ",$P($P($C(59)_$S($D(^DD(1.11,7,0)):$P(^(0),U,3),1:0),$C(59)_$P(^DIAR(1.11,Y,0),U,8)_":",2),$C(59),1)

 +19      ;;^DD(1.11,0,"ID",8)

 +20      ;;=S %I=Y,Y=$S('$D(^(0)):"",$D(^VA(200,+$P(^(0),U,9),0))#2:$P(^(0),U,1),1:""),C=$P($G(^DD(200,.01,0)),U,2) D:C]"" Y^DIQ:Y]"" W "   SELECTOR:",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I

 +21      ;;^DD(1.11,0,"ID",16)

 +22      ;;=W "   ",@("$P($P($C(59)_$S($D(^DD(1.11,16,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(0),U,17)_"":"",2),$C(59),1)")

 +23      ;;^DD(1.11,0,"NM","ARCHIVAL ACTIVITY")

 +24      ;;=

 +25      ;;^DD(1.11,.01,0)

 +26      ;;=ARCHIVE NUMBER^RNJ7,0^^0;1^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X

 +27      ;;^DD(1.11,.01,1,0)

 +28      ;;=^.1

 +29      ;;^DD(1.11,.01,1,1,0)

 +30      ;;=1.11^B

 +31      ;;^DD(1.11,.01,1,1,1)

 +32      ;;=S ^DIAR(1.11,"B",$E(X,1,30),DA)=""

 +33      ;;^DD(1.11,.01,1,1,2)

 +34      ;;=K ^DIAR(1.11,"B",$E(X,1,30),DA)

 +35      ;;^DD(1.11,.01,3)

 +36      ;;=Type a Number between 1 and 9999999, 0 Decimal Digits

 +37      ;;^DD(1.11,1,0)

 +38      ;;=FILE^RP1'^DIC(^0;2^Q

 +39      ;;^DD(1.11,1,1,0)

 +40      ;;=^.1

 +41      ;;^DD(1.11,1,1,1,0)

 +42      ;;=1.11^C

 +43      ;;^DD(1.11,1,1,1,1)

 +44      ;;=S ^DIAR(1.11,"C",$E(X,1,30),DA)=""

 +45      ;;^DD(1.11,1,1,1,2)

 +46      ;;=K ^DIAR(1.11,"C",$E(X,1,30),DA)

 +47      ;;^DD(1.11,1,3)

 +48      ;;=Enter the file that this archival activity will effect.

 +49      ;;^DD(1.11,2,0)

 +50      ;;=SEARCH TEMPLATE^RP.401^DIBT(^0;3^Q

 +51      ;;^DD(1.11,2,3)

 +52      ;;=Enter the name of the sort/search template that you wish to use.

 +53      ;;^DD(1.11,3,0)

 +54      ;;=PRINT TEMPLATE^R*P.4'X^DIPT(^0;4^S DIC("S")="I $P(^(0),U,8)="_$S($D(DIAX):2,1:1)_",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)",DIC(0)="QE",D="F"_+$P(^DIAR(1.11,DA,0),U,2) D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X

 +55      ;;^DD(1.11,3,3)

 +56      ;;=Enter the name of the FILEGRAM OR EXTRACT print template that you wish to use.

 +57      ;;^DD(1.11,3,12)

 +58      ;;=Select a print template in Filegram or Extract Format.

 +59      ;;^DD(1.11,3,12.1)

 +60      ;;=S DIC("S")="I $P(^(0),U,8)="_$S($D(DIAX):2,1:1)_",$P(^(0),U,4)=$P(^DIAR(1.11,DA,0),U,2)"

 +61      ;;^DD(1.11,3,"DT")

 +62      ;;=2920514

 +63      ;;^DD(1.11,4,0)

 +64      ;;=SELECT DATE^RD^^0;5^S %DT="ET" D ^%DT S X=Y K:Y<1 X

 +65      ;;^DD(1.11,4,3)

 +66      ;;=Enter the select date of this archival activity.

 +67      ;;^DD(1.11,5,0)

 +68      ;;=ARCHIVER^P200'^VA(200,^0;6^Q

 +69      ;;^DD(1.11,5,3)

 +70      ;;=Enter the name of the user that is doing the archiving.

 +71      ;;^DD(1.11,6,0)

 +72      ;;=NUMBER OF ITEMS TO ARCHIVE^RNJ7,0^^0;7^K:+X'=X!(X>9999999)!(X<0)!(X?.E1"."1N.N) X

 +73      ;;^DD(1.11,6,3)

 +74      ;;=Type a Number between 0 and 9999999, 0 Decimal Digits

 +75      ;;^DD(1.11,7,0)

 +76      ;;=ARCHIVAL STATUS^S^1:SELECTED;2:EDITED;4:ARCHIVED (TEMPORARY);5:ARCHIVED (PERMANENT);6:UPDATED DESTINATION FILE;90:PURGED;^0;8^Q

 +77      ;;^DD(1.11,7,"DT")

 +78      ;;=2920511

 +79      ;;^DD(1.11,8,0)

 +80      ;;=SELECTOR^P200'^VA(200,^0;9^Q

 +81      ;;^DD(1.11,9,0)

 +82      ;;=PURGER^P200'^VA(200,^0;10^Q

 +83      ;;^DD(1.11,10,0)

 +84      ;;=ARCHIVE DATE^D^^0;11^S %DT="E" D ^%DT S X=Y K:Y<1 X

 +85      ;;^DD(1.11,11,0)

 +86      ;;=PURGE DATE^D^^0;12^S %DT="E" D ^%DT S X=Y K:Y<1 X