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

DINIT270.m

Go to the documentation of this file. 
  1. DINIT270 ;SFISC/DPC-LOAD OF FOREIGN FORMAT DD (CONT) ;1/4/94  13:37
  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 ^DINIT271:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
  1. Q Q
  1.  ;;^DD(.44,7,21,5,0)
  1.  ;;=If 0 is entered, the user will be prompted for maximum length when
  1.  ;;^DD(.44,7,21,6,0)
  1.  ;;=creating the EXPORT template.  If nothing is entered, the default will be
  1.  ;;^DD(.44,7,21,7,0)
  1.  ;;=80.
  1.  ;;^DD(.44,7,"DT")
  1.  ;;=2921026
  1.  ;;^DD(.44,8,0)
  1.  ;;=QUOTE NON-NUMERIC FIELDS?^S^1:YES;0:NO;^0;10^Q
  1.  ;;^DD(.44,8,3)
  1.  ;;=Enter '1' for YES or '0' for NO.
  1.  ;;^DD(.44,8,21,0)
  1.  ;;=^^7^7^2921013^
  1.  ;;^DD(.44,8,21,1,0)
  1.  ;;=If you want the values of fields that have a data type other than numeric
  1.  ;;^DD(.44,8,21,2,0)
  1.  ;;=to be surrounded by quotation marks ("), set this field to YES.
  1.  ;;^DD(.44,8,21,3,0)
  1.  ;;= 
  1.  ;;^DD(.44,8,21,4,0)
  1.  ;;=NOTE:  Only numeric fields in the home file (including multiples) are
  1.  ;;^DD(.44,8,21,5,0)
  1.  ;;=automatically considered to have a numeric data type.  If you want the
  1.  ;;^DD(.44,8,21,6,0)
  1.  ;;=user to indicate which fields should be numeric, answer YES to the PROMPT
  1.  ;;^DD(.44,8,21,7,0)
  1.  ;;=FOR DATA TYPE? field.
  1.  ;;^DD(.44,8,"DT")
  1.  ;;=2921013
  1.  ;;^DD(.44,9,0)
  1.  ;;=PROMPT FOR DATA TYPE?^S^1:YES;0:NO;^0;11^Q
  1.  ;;^DD(.44,9,3)
  1.  ;;=Enter '1' for YES, '0' for NO.
  1.  ;;^DD(.44,9,21,0)
  1.  ;;=^^3^3^2921013^
  1.  ;;^DD(.44,9,21,1,0)
  1.  ;;=Answer YES if you want the user to be prompted for the data type of the
  1.  ;;^DD(.44,9,21,2,0)
  1.  ;;=various fields at the time that an export template is being created.
  1.  ;;^DD(.44,9,21,3,0)
  1.  ;;=Otherwise, the data types will be automatically  derived.
  1.  ;;^DD(.44,9,"DT")
  1.  ;;=2921013
  1.  ;;^DD(.44,10,0)
  1.  ;;=SEND LAST FIELD DELIMITER?^S^0:NO;1:YES;^0;12^Q
  1.  ;;^DD(.44,10,3)
  1.  ;;=Enter '1' for YES, '0' for NO.
  1.  ;;^DD(.44,10,21,0)
  1.  ;;=^^3^3^2921028^
  1.  ;;^DD(.44,10,21,1,0)
  1.  ;;=Enter NO if you do not want a field delimiter to be output after the last
  1.  ;;^DD(.44,10,21,2,0)
  1.  ;;=field in a record.  Enter YES if you do want a final field delimiter
  1.  ;;^DD(.44,10,21,3,0)
  1.  ;;=output.
  1.  ;;^DD(.44,10,"DT")
  1.  ;;=2921028
  1.  ;;^DD(.44,20,0)
  1.  ;;=FILE HEADER^FX^^1;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""" K:DUZ(0)'="@" X D:$D(X) ^DIM
  1.  ;;^DD(.44,20,3)
  1.  ;;=Answer must be standard MUMPS code or a literal string in quotes.
  1.  ;;^DD(.44,20,21,0)
  1.  ;;=^^7^7^2921001^
  1.  ;;^DD(.44,20,21,1,0)
  1.  ;;=Use this field to produce output preceding the exported records.  This
  1.  ;;^DD(.44,20,21,2,0)
  1.  ;;=will become part of your exported data.
  1.  ;;^DD(.44,20,21,3,0)
  1.  ;;= 
  1.  ;;^DD(.44,20,21,4,0)
  1.  ;;=Enter either a literal string enclosed in quotation marks ("like this") or
  1.  ;;^DD(.44,20,21,5,0)
  1.  ;;=MUMPS code that will WRITE the desired output when XECUTED.  For example:
  1.  ;;^DD(.44,20,21,6,0)
  1.  ;;= 
  1.  ;;^DD(.44,20,21,7,0)
  1.  ;;=       W "EXPORT CREATED BY USER NUMBER: "_$G(DUZ)
  1.  ;;^DD(.44,20,"DT")
  1.  ;;=2921028
  1.  ;;^DD(.44,25,0)
  1.  ;;=FILE TRAILER^FX^^2;E1,245^K:$L(X)>245!($L(X)<1) X I $E($G(X))'="""" K:DUZ(0)'="@" X D:$D(X) ^DIM
  1.  ;;^DD(.44,25,3)
  1.  ;;=Answer must be standard MUMPS code or a literal string in quotes.
  1.  ;;^DD(.44,25,21,0)
  1.  ;;=^^7^7^2921001^
  1.  ;;^DD(.44,25,21,1,0)
  1.  ;;=Use this field to produce output following the the exported records.  This
  1.  ;;^DD(.44,25,21,2,0)
  1.  ;;=will become part of your exported data.
  1.  ;;^DD(.44,25,21,3,0)
  1.  ;;= 
  1.  ;;^DD(.44,25,21,4,0)
  1.  ;;=Enter either a literal string enclosed in quotation marks ("like this") or
  1.  ;;^DD(.44,25,21,5,0)
  1.  ;;=MUMPS code that will WRITE the desired output when XECUTED.  For example:
  1.  ;;^DD(.44,25,21,6,0)
  1.  ;;= 
  1.  ;;^DD(.44,25,21,7,0)
  1.  ;;=       W "EXPORT CREATED BY USER NUMBER: "_$G(DUZ)
  1.  ;;^DD(.44,25,"DT")
  1.  ;;=2921028
  1.  ;;^DD(.44,27,0)
  1.  ;;=DATE FORMAT^K^^6;E1,245^K:$L(X)>245 X D:$D(X) ^DIM
  1.  ;;^DD(.44,27,3)
  1.  ;;=This is Standard MUMPS code.
  1.  ;;^DD(.44,27,9)
  1.  ;;=@
  1.  ;;^DD(.44,27,21,0)
  1.  ;;=^^6^6^2920923^
  1.  ;;^DD(.44,27,21,1,0)
  1.  ;;=If you want dates output in VA FileMan's standard external date/time
  1.  ;;^DD(.44,27,21,2,0)
  1.  ;;=format, make NO entry in this field.
  1.  ;;^DD(.44,27,21,3,0)
  1.  ;;= 
  1.  ;;^DD(.44,27,21,4,0)
  1.  ;;=If you want another format, enter MUMPS code here. The variable X will
  1.  ;;^DD(.44,27,21,5,0)
  1.  ;;=contain the date/time in VA FileMan's internal format.  The MUMPS code
  1.  ;;^DD(.44,27,21,6,0)
  1.  ;;=should SET Y to the date/time in the format you desire.
  1.  ;;^DD(.44,27,"DT")
  1.  ;;=2920923
  1.  ;;^DD(.44,30,0)
  1.  ;;=DESCRIPTION^.447^^3;0
  1.  ;;^DD(.44,30,21,0)
  1.  ;;=^^1^1^2920917^
  1.  ;;^DD(.44,30,21,1,0)
  1.  ;;=A description of the foreign format.
  1.  ;;^DD(.44,31,0)
  1.  ;;=USAGE NOTES^.448^^4;0
  1.  ;;^DD(.44,31,21,0)
  1.  ;;=^^2^2^2920917^
  1.  ;;^DD(.44,31,21,1,0)
  1.  ;;=Information about the use of the format; for example, which commands on
  1.  ;;^DD(.44,31,21,2,0)
  1.  ;;=the foreign system should be used to load the file.