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

DINIT260.m

Go to the documentation of this file. 
  1. DINIT260 ;SFISC/XAK-INITIALIZE VA FILEMAN ;12/14/92  2:48 PM
  1.  ;;22.2;VA FileMan;;Jan 05, 2016;Build 42
  1.  ;;Per VA Directive 6402, this routine should not be modified.
  1.  ;;Submitted to OSEHRA 5 January 2015 by the VISTA Expertise Network.
  1.  ;;Based on Medsphere Systems Corporation's MSC FileMan 1051.
  1.  ;;Licensed under the terms of the Apache License, Version 2.0.
  1.  ;
  1.  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
  1. Q Q
  1.  ;;^DD(1.11,12,0)
  1.  ;;=DATE LAST PRINTED^D^^0;13^S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(1.11,12,3)
  1.  ;;=Enter the date that the listing of items to be archived was last printed.
  1.  ;;^DD(1.11,13,0)
  1.  ;;=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
  1.  ;;^DD(1.11,13,3)
  1.  ;;=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.
  1.  ;;^DD(1.11,14,0)
  1.  ;;=DATE/TIME ACTIVITY BEGAN^D^^0;15^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(1.11,14,3)
  1.  ;;=Date/time user began archiving action currently in progress.
  1.  ;;^DD(1.11,15,0)
  1.  ;;=USER PERFORMING ACTION^P200'^VA(200,^0;16^Q
  1.  ;;^DD(1.11,15,3)
  1.  ;;=User that initiated the archiving action.
  1.  ;;^DD(1.11,16,0)
  1.  ;;=TYPE OF ARCHIVE^S^0:ARCHIVING;1:EXTRACT;^0;17^Q
  1.  ;;^DD(1.11,16,21,0)
  1.  ;;=^^4^4^2921002^
  1.  ;;^DD(1.11,16,21,1,0)
  1.  ;;=This field indicates the archiving type for this particular archival
  1.  ;;^DD(1.11,16,21,2,0)
  1.  ;;=activity entry.  This should be 0 if the archival process is being done
  1.  ;;^DD(1.11,16,21,3,0)
  1.  ;;=under the Archiving options; or should be 1 if the archival process is
  1.  ;;^DD(1.11,16,21,4,0)
  1.  ;;=being done under the Extract Tool options.
  1.  ;;^DD(1.11,17,0)
  1.  ;;=DESTINATION FILE^P1'^DIC(^0;18^Q
  1.  ;;^DD(1.11,17,21,0)
  1.  ;;=^^2^2^2921002^
  1.  ;;^DD(1.11,17,21,1,0)
  1.  ;;=This field holds the number of the destination file for this archival
  1.  ;;^DD(1.11,17,21,2,0)
  1.  ;;=activity.
  1.  ;;^DD(1.11,18,0)
  1.  ;;=ARCHIVE DEVICE LABEL^F^^0;19^K:$L(X)>45!($L(X)<2) X
  1.  ;;^DD(1.11,18,3)
  1.  ;;=Answer must be 2-45 characters in length.
  1.  ;;^DD(1.11,18,21,0)
  1.  ;;=^^2^2^2921002^
  1.  ;;^DD(1.11,18,21,1,0)
  1.  ;;=This field holds the label information that identifies your archival
  1.  ;;^DD(1.11,18,21,2,0)
  1.  ;;=medium.
  1.  ;;^DD(1.11,30,0)
  1.  ;;=SUBFILE NUMBER^F^^1;1^K:+X'=X X
  1.  ;;^DD(1.11,30,3)
  1.  ;;=Type the number of a sub-file data dictionary.
  1.  ;;^DD(1.11,31,0)
  1.  ;;=SUBFILE SUBSCRIPTS^F^^1;2^K:$L(X)>50!($L(X)<3) X
  1.  ;;^DD(1.11,31,3)
  1.  ;;=Answer must be 3-50 characters in length.
  1.  ;;^DD(1.11,32,0)
  1.  ;;=SUBFILE SCREEN^1.1132A^^S;0
  1.  ;;^DD(1.11,100,0)
  1.  ;;=DATA^1.113^^D;0
  1.  ;;^DD(1.113,0)
  1.  ;;=DATA SUB-FIELD^^.01^1
  1.  ;;^DD(1.113,0,"NM","DATA")
  1.  ;;=
  1.  ;;^DD(1.113,0,"UP")
  1.  ;;=1.11
  1.  ;;^DD(1.113,.01,0)
  1.  ;;=DATA^WL^^0;1^Q
  1.  ;;^DD(1.1132,0)
  1.  ;;=SUBFILE SCREEN SUB-FIELD^^1^2
  1.  ;;^DD(1.1132,0,"NM","SUBFILE SCREEN")
  1.  ;;=
  1.  ;;^DD(1.1132,0,"UP")
  1.  ;;=1.11
  1.  ;;^DD(1.1132,.01,0)
  1.  ;;=SUBSCRIPT^F^^0;1^K:$L(X)>10!($L(X)<1) X
  1.  ;;^DD(1.1132,.01,3)
  1.  ;;=Answer must be 1-10 characters in length.
  1.  ;;^DD(1.1132,1,0)
  1.  ;;=CODE^K^^1;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(1.1132,1,3)
  1.  ;;=This is Standard MUMPS code.
  1.  ;;^DD(1.1132,1,9)
  1.  ;;=@
  1.  ;;^DD(1.11,200,0)
  1.  ;;=DESTINATION FILE ENTRIES^1.14^^EX;0
  1.  ;;^DD(1.14,0)
  1.  ;;=DESTINATION FILE ENTRIES SUB-FIELD^^.01^1
  1.  ;;^DD(1.14,0,"NM","DESTINATION FILE ENTRIES")
  1.  ;;=
  1.  ;;^DD(1.14,0,"UP")
  1.  ;;=1.11
  1.  ;;^DD(1.14,.01,0)
  1.  ;;=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
  1.  ;;^DD(1.14,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(1.14,.01,1,1,0)
  1.  ;;=1.14^B
  1.  ;;^DD(1.14,.01,1,1,1)
  1.  ;;=S ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)=""
  1.  ;;^DD(1.14,.01,1,1,2)
  1.  ;;=K ^DIAR(1.11,DA(1),"EX","B",$E(X,1,30),DA)
  1.  ;;^DD(1.14,.01,3)
  1.  ;;=Type a Number between 0 and 999999999, 0 Decimal Digits
  1.  ;;^DD(1.14,.01,21,0)
  1.  ;;=^^2^2^2921208^
  1.  ;;^DD(1.14,.01,21,1,0)
  1.  ;;=This field holds the internal entry number of the record created in the
  1.  ;;^DD(1.14,.01,21,3,0)
  1.  ;;=destination file.