DINIT260 ;SFISC/XAK-INITIALIZE VA FILEMAN ;12/14/92 2:48 PM
;;22.2;VA FileMan;;Jan 05, 2016;Build 42
;;Per VA Directive 6402, this routine should not be modified.
;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
;;Licensed under the terms of the Apache License, Version 2.0.
;
F I=1:2 S X=$T(Q+I) G ^DINIT27:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
Q Q
;;^DD(1.11,12,0)
;;=DATE LAST PRINTED^D^^0;13^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
;;^DD(1.11,12,3)
;;=Enter the date that the listing of items to be archived was last printed.
;;^DD(1.11,13,0)
;;=ARCHIVING ACTION IN PROGRESS^S^1:SELECTION;2:EDITING;4:ARCHIVING (TEMPORARY);5:ARCHIVING (PERMANENT);6:UPDATING DESTINATION FILE;90:PURGING;99:CANCELLING;^0;14^Q
;;^DD(1.11,13,3)
;;=Entry will be made here by system when user begins performing some action to this ARCHIVAL ACTIVITY and will be deleted when action is complete, to lock out other users.
;;^DD(1.11,14,0)
;;=DATE/TIME ACTIVITY BEGAN^D^^0;15^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(1.11,14,3)
;;=Date/time user began archiving action currently in progress.
;;^DD(1.11,15,0)
;;=USER PERFORMING ACTION^P200'^VA(200,^0;16^Q
;;^DD(1.11,15,3)
;;=User that initiated the archiving action.
;;^DD(1.11,16,0)
;;=TYPE OF ARCHIVE^S^0:ARCHIVING;1:EXTRACT;^0;17^Q
;;^DD(1.11,16,21,0)
;;=^^4^4^2921002^
;;^DD(1.11,16,21,1,0)
;;=This field indicates the archiving type for this particular archival
;;^DD(1.11,16,21,2,0)
;;=activity entry. This should be 0 if the archival process is being done
;;^DD(1.11,16,21,3,0)
;;=under the Archiving options; or should be 1 if the archival process is
;;^DD(1.11,16,21,4,0)
;;=being done under the Extract Tool options.
;;^DD(1.11,17,0)
;;=DESTINATION FILE^P1'^DIC(^0;18^Q
;;^DD(1.11,17,21,0)
;;=^^2^2^2921002^
;;^DD(1.11,17,21,1,0)
;;=This field holds the number of the destination file for this archival
;;^DD(1.11,17,21,2,0)
;;=activity.
;;^DD(1.11,18,0)
;;=ARCHIVE DEVICE LABEL^F^^0;19^K:$L(X)>45!($L(X)<2) X
;;^DD(1.11,18,3)
;;=Answer must be 2-45 characters in length.
;;^DD(1.11,18,21,0)
;;=^^2^2^2921002^
;;^DD(1.11,18,21,1,0)
;;=This field holds the label information that identifies your archival
;;^DD(1.11,18,21,2,0)
;;=medium.
;;^DD(1.11,30,0)
;;=SUBFILE NUMBER^F^^1;1^K:+X'=X X
;;^DD(1.11,30,3)
;;=Type the number of a sub-file data dictionary.
;;^DD(1.11,31,0)
;;=SUBFILE SUBSCRIPTS^F^^1;2^K:$L(X)>50!($L(X)<3) X
;;^DD(1.11,31,3)
;;=Answer must be 3-50 characters in length.
;;^DD(1.11,32,0)
;;=SUBFILE SCREEN^1.1132A^^S;0
;;^DD(1.11,100,0)
;;=DATA^1.113^^D;0
;;^DD(1.113,0)
;;=DATA SUB-FIELD^^.01^1
;;^DD(1.113,0,"NM","DATA")
;;=
;;^DD(1.113,0,"UP")
;;=1.11
;;^DD(1.113,.01,0)
;;=DATA^WL^^0;1^Q
;;^DD(1.1132,0)
;;=SUBFILE SCREEN SUB-FIELD^^1^2
;;^DD(1.1132,0,"NM","SUBFILE SCREEN")
;;=
;;^DD(1.1132,0,"UP")
;;=1.11
;;^DD(1.1132,.01,0)
;;=SUBSCRIPT^F^^0;1^K:$L(X)>10!($L(X)<1) X
;;^DD(1.1132,.01,3)
;;=Answer must be 1-10 characters in length.
;;^DD(1.1132,1,0)
;;=CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
;;^DD(1.1132,1,3)
;;=This is Standard MUMPS code.
;;^DD(1.1132,1,9)
;;=@
;;^DD(1.11,200,0)
;;=DESTINATION FILE ENTRIES^1.14^^EX;0
;;^DD(1.14,0)
;;=DESTINATION FILE ENTRIES SUB-FIELD^^.01^1
;;^DD(1.14,0,"NM","DESTINATION FILE ENTRIES")
;;=
;;^DD(1.14,0,"UP")
;;=1.11
;;^DD(1.14,.01,0)
;;=DESTINATION FILE ENTRIES^MNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
;;^DD(1.14,.01,1,0)
;;=^.1
;;^DD(1.14,.01,1,1,0)
;;=1.14^B
;;^DD(1.14,.01,1,1,1)
;;=S ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)=""
;;^DD(1.14,.01,1,1,2)
;;=K ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)
;;^DD(1.14,.01,3)
;;=Type a Number between 0 and 999999999, 0 Decimal Digits
;;^DD(1.14,.01,21,0)
;;=^^2^2^2921208^
;;^DD(1.14,.01,21,1,0)
;;=This field holds the internal entry number of the record created in the
;;^DD(1.14,.01,21,3,0)
;;=destination file.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDINIT260 4123 printed Dec 13, 2024@02:50:56 Page 2
DINIT260 ;SFISC/XAK-INITIALIZE VA FILEMAN ;12/14/92 2:48 PM
+1 ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
+4 ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
+5 ;;Licensed under the terms of the Apache License, Version 2.0.
+6 ;
+7 FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
GOTO ^DINIT27
SET Y=$EXTRACT($TEXT(Q+I+1),5,999)
SET X=$EXTRACT(X,4,999)
SET @X=Y
Q QUIT
+1 ;;^DD(1.11,12,0)
+2 ;;=DATE LAST PRINTED^D^^0;13^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
+3 ;;^DD(1.11,12,3)
+4 ;;=Enter the date that the listing of items to be archived was last printed.
+5 ;;^DD(1.11,13,0)
+6 ;;=ARCHIVING ACTION IN PROGRESS^S^1:SELECTION;2:EDITING;4:ARCHIVING (TEMPORARY);5:ARCHIVING (PERMANENT);6:UPDATING DESTINATION FILE;90:PURGING;99:CANCELLING;^0;14^Q
+7 ;;^DD(1.11,13,3)
+8 ;;=Entry will be made here by system when user begins performing some action to this ARCHIVAL ACTIVITY and will be deleted when action is complete, to lock out other users.
+9 ;;^DD(1.11,14,0)
+10 ;;=DATE/TIME ACTIVITY BEGAN^D^^0;15^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+11 ;;^DD(1.11,14,3)
+12 ;;=Date/time user began archiving action currently in progress.
+13 ;;^DD(1.11,15,0)
+14 ;;=USER PERFORMING ACTION^P200'^VA(200,^0;16^Q
+15 ;;^DD(1.11,15,3)
+16 ;;=User that initiated the archiving action.
+17 ;;^DD(1.11,16,0)
+18 ;;=TYPE OF ARCHIVE^S^0:ARCHIVING;1:EXTRACT;^0;17^Q
+19 ;;^DD(1.11,16,21,0)
+20 ;;=^^4^4^2921002^
+21 ;;^DD(1.11,16,21,1,0)
+22 ;;=This field indicates the archiving type for this particular archival
+23 ;;^DD(1.11,16,21,2,0)
+24 ;;=activity entry. This should be 0 if the archival process is being done
+25 ;;^DD(1.11,16,21,3,0)
+26 ;;=under the Archiving options; or should be 1 if the archival process is
+27 ;;^DD(1.11,16,21,4,0)
+28 ;;=being done under the Extract Tool options.
+29 ;;^DD(1.11,17,0)
+30 ;;=DESTINATION FILE^P1'^DIC(^0;18^Q
+31 ;;^DD(1.11,17,21,0)
+32 ;;=^^2^2^2921002^
+33 ;;^DD(1.11,17,21,1,0)
+34 ;;=This field holds the number of the destination file for this archival
+35 ;;^DD(1.11,17,21,2,0)
+36 ;;=activity.
+37 ;;^DD(1.11,18,0)
+38 ;;=ARCHIVE DEVICE LABEL^F^^0;19^K:$L(X)>45!($L(X)<2) X
+39 ;;^DD(1.11,18,3)
+40 ;;=Answer must be 2-45 characters in length.
+41 ;;^DD(1.11,18,21,0)
+42 ;;=^^2^2^2921002^
+43 ;;^DD(1.11,18,21,1,0)
+44 ;;=This field holds the label information that identifies your archival
+45 ;;^DD(1.11,18,21,2,0)
+46 ;;=medium.
+47 ;;^DD(1.11,30,0)
+48 ;;=SUBFILE NUMBER^F^^1;1^K:+X'=X X
+49 ;;^DD(1.11,30,3)
+50 ;;=Type the number of a sub-file data dictionary.
+51 ;;^DD(1.11,31,0)
+52 ;;=SUBFILE SUBSCRIPTS^F^^1;2^K:$L(X)>50!($L(X)<3) X
+53 ;;^DD(1.11,31,3)
+54 ;;=Answer must be 3-50 characters in length.
+55 ;;^DD(1.11,32,0)
+56 ;;=SUBFILE SCREEN^1.1132A^^S;0
+57 ;;^DD(1.11,100,0)
+58 ;;=DATA^1.113^^D;0
+59 ;;^DD(1.113,0)
+60 ;;=DATA SUB-FIELD^^.01^1
+61 ;;^DD(1.113,0,"NM","DATA")
+62 ;;=
+63 ;;^DD(1.113,0,"UP")
+64 ;;=1.11
+65 ;;^DD(1.113,.01,0)
+66 ;;=DATA^WL^^0;1^Q
+67 ;;^DD(1.1132,0)
+68 ;;=SUBFILE SCREEN SUB-FIELD^^1^2
+69 ;;^DD(1.1132,0,"NM","SUBFILE SCREEN")
+70 ;;=
+71 ;;^DD(1.1132,0,"UP")
+72 ;;=1.11
+73 ;;^DD(1.1132,.01,0)
+74 ;;=SUBSCRIPT^F^^0;1^K:$L(X)>10!($L(X)<1) X
+75 ;;^DD(1.1132,.01,3)
+76 ;;=Answer must be 1-10 characters in length.
+77 ;;^DD(1.1132,1,0)
+78 ;;=CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
+79 ;;^DD(1.1132,1,3)
+80 ;;=This is Standard MUMPS code.
+81 ;;^DD(1.1132,1,9)
+82 ;;=@
+83 ;;^DD(1.11,200,0)
+84 ;;=DESTINATION FILE ENTRIES^1.14^^EX;0
+85 ;;^DD(1.14,0)
+86 ;;=DESTINATION FILE ENTRIES SUB-FIELD^^.01^1
+87 ;;^DD(1.14,0,"NM","DESTINATION FILE ENTRIES")
+88 ;;=
+89 ;;^DD(1.14,0,"UP")
+90 ;;=1.11
+91 ;;^DD(1.14,.01,0)
+92 ;;=DESTINATION FILE ENTRIES^MNJ9,0X^^0;1^K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X I $D(X) S DINUM=X
+93 ;;^DD(1.14,.01,1,0)
+94 ;;=^.1
+95 ;;^DD(1.14,.01,1,1,0)
+96 ;;=1.14^B
+97 ;;^DD(1.14,.01,1,1,1)
+98 ;;=S ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)=""
+99 ;;^DD(1.14,.01,1,1,2)
+100 ;;=K ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)
+101 ;;^DD(1.14,.01,3)
+102 ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
+103 ;;^DD(1.14,.01,21,0)
+104 ;;=^^2^2^2921208^
+105 ;;^DD(1.14,.01,21,1,0)
+106 ;;=This field holds the internal entry number of the record created in the
+107 ;;^DD(1.14,.01,21,3,0)
+108 ;;=destination file.
