Annotation of freem_fileman/DINIT25.m, revision 1.1
1.1 ! snw 1: DINIT25 ;SFISC/XAK-INITIALIZE VA FILEMAN ;3/16/94 11:26 AM
! 2: ;;21.0;VA FileMan;;Dec 28, 1994
! 3: ;Per VHA Directive 10-93-142, this routine should not be modified.
! 4: F I=1:2 S X=$T(Q+I) G ^DINIT250:X="" S Y=$E($T(Q+I+1),5,999),X=$E(X,4,999),@X=Y
! 5: Q Q
! 6: ;;^DD(.41,0)
! 7: ;;=FILEGRAM/EXTR FILE SUB-FIELD^^13^13
! 8: ;;^DD(.41,0,"NM","FILEGRAM/EXTR FILE")
! 9: ;;=
! 10: ;;^DD(.41,0,"UP")
! 11: ;;=.4
! 12: ;;^DD(.41,.001,0)
! 13: ;;=ORDER^NJ4,0^^ ^K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
! 14: ;;^DD(.41,.001,3)
! 15: ;;=Type a Number between 1 and 9999, 0 Decimal Digits
! 16: ;;^DD(.41,.01,0)
! 17: ;;=FILEGRAM/EXTR FILE^NJ16,4^^0;1^K:+X'=X!(X>99999999999)!(X<2)!(X?.E1"."5N.N) X
! 18: ;;^DD(.41,.01,1,0)
! 19: ;;=^.1
! 20: ;;^DD(.41,.01,1,1,0)
! 21: ;;=.41^B
! 22: ;;^DD(.41,.01,1,1,1)
! 23: ;;=S ^DIPT(DA(1),1,"B",$E(X,1,30),DA)=""
! 24: ;;^DD(.41,.01,1,1,2)
! 25: ;;=K ^DIPT(DA(1),1,"B",$E(X,1,30),DA)
! 26: ;;^DD(.41,.01,3)
! 27: ;;=Type a Number between 2 and 99999999999, 4 Decimal Digits
! 28: ;;^DD(.41,.02,0)
! 29: ;;=LEVEL^RNJ2,0^^0;2^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
! 30: ;;^DD(.41,.02,3)
! 31: ;;=Type a Number between 1 and 99, 0 Decimal Digits
! 32: ;;^DD(.41,.03,0)
! 33: ;;=PARENT^NJ14,4^^0;3^K:+X'=X!(X>999999999)!(X<2)!(X?.E1"."5N.N) X
! 34: ;;^DD(.41,.03,3)
! 35: ;;=Type a Number between 2 and 999999999, 4 Decimal Digits
! 36: ;;^DD(.41,.04,0)
! 37: ;;=LINK TYPE^S^1:DINUM;2:DIRECT POINTER;3:MULTIPLE;4:BACKPOINTER^0;4^Q
! 38: ;;^DD(.41,.05,0)
! 39: ;;=USER RESPONSE TO GET HERE^F^^0;5^K:$L(X)>30!($L(X)<1) X
! 40: ;;^DD(.41,.05,3)
! 41: ;;=Answer must be 1-30 characters in length.
! 42: ;;^DD(.41,.06,0)
! 43: ;;=DATE LAST STORED^D^^0;6^S %DT="EX" D ^%DT S X=Y K:Y<1 X
! 44: ;;^DD(.41,.07,0)
! 45: ;;=CROSS-REFERENCE^F^^0;7^K:$L(X)>30!($L(X)<1) X
! 46: ;;^DD(.41,.07,3)
! 47: ;;=Answer must be 1-30 characters in length.
! 48: ;;^DD(.41,.07,21,0)
! 49: ;;=^^1^1^2900405^
! 50: ;;^DD(.41,.07,21,1,0)
! 51: ;;=This field holds the X-ref to use in a backpointer.
! 52: ;;^DD(.41,.08,0)
! 53: ;;=ALL FIELDS IN FILE^S^1:YES;^0;8^Q
! 54: ;;^DD(.41,10,0)
! 55: ;;=FIELD NUMBER^.411A^^F;0
! 56: ;;^DD(.41,11,0)
! 57: ;;=DESTINATION FILE^NJ16,6^^0;9^K:+X'=X!(X>999999999)!(X<2)!(X?.E1"."7N.N) X
! 58: ;;^DD(.41,11,3)
! 59: ;;=Type a Number between 2 and 999999999, 6 Decimal Digits
! 60: ;;^DD(.41,11,21,0)
! 61: ;;=^^1^1^2921002^
! 62: ;;^DD(.41,11,21,1,0)
! 63: ;;=This field holds the number of the destination file or the destination subfile.
! 64: ;;^DD(.41,12,0)
! 65: ;;=DESTINATION FILE PARENT^NJ16,6^^0;10^K:+X'=X!(X>999999999)!(X<2)!(X?.E1"."7N.N) X
! 66: ;;^DD(.41,12,3)
! 67: ;;=Type a Number between 2 and 999999999, 6 Decimal Digits
! 68: ;;^DD(.41,12,21,0)
! 69: ;;=^^2^2^2921002^
! 70: ;;^DD(.41,12,21,1,0)
! 71: ;;=This field holds the number of the parent file or subfile of the
! 72: ;;^DD(.41,12,21,2,0)
! 73: ;;=DESTINATION FILE.
! 74: ;;^DD(.41,13,0)
! 75: ;;=DESTINATION FILE LOCATION^F^^0;11^K:$L(X)>30!($L(X)<1) X
! 76: ;;^DD(.41,13,3)
! 77: ;;=Answer must be 1-30 characters in length.
! 78: ;;^DD(.41,13,21,0)
! 79: ;;=^^1^1^2921002^
! 80: ;;^DD(.41,13,21,1,0)
! 81: ;;=This field holds the node and piece location of the DESTINATION FILE.
! 82: ;;^DD(.411,0)
! 83: ;;=FIELD NUMBER SUB-FIELD^^4^5
! 84: ;;^DD(.411,0,"NM","FIELD NUMBER")
! 85: ;;=
! 86: ;;^DD(.411,0,"UP")
! 87: ;;=.41
! 88: ;;^DD(.411,.001,0)
! 89: ;;=FIELD ORDER^NJ8,0^^ ^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
! 90: ;;^DD(.411,.001,3)
! 91: ;;=Type a Number between 1 and 99999999, 0 Decimal Digits
! 92: ;;^DD(.411,.01,0)
! 93: ;;=FIELD NUMBER^NJ14,4^^0;1^K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"."5N.N) X
! 94: ;;^DD(.411,.01,1,0)
! 95: ;;=^.1^^0
! 96: ;;^DD(.411,.01,3)
! 97: ;;=Type a Number between .001 and 999999999, 4 Decimal Digits
! 98: ;;^DD(.411,1,0)
! 99: ;;=CAPTION^CJ30^^ ; ^S %=+^DIPT(D0,1,D1,0),X=$S('%:"",$D(^DD(%,+^DIPT(D0,1,D1,"F",D2,0),0)):$P(^(0),U),1:"")
! 100: ;;^DD(.411,1,9)
! 101: ;;=^
! 102: ;;^DD(.411,1,9.01)
! 103: ;;=
! 104: ;;^DD(.411,1,9.1)
! 105: ;;=S %=+^DIPT(D0,1,D1,0),X=$S('%:"",$D(^DD(%,+^DIPT(D0,1,D1,"F",D2,0),0)):$P(^(0),U),1:"")
! 106: ;;^DD(.411,3,0)
! 107: ;;=DESTINATION FIELD NUMBER^NJ14,4^^0;3^K:+X'=X!(X>999999999)!(X<.001)!(X?.E1"."5N.N) X
! 108: ;;^DD(.411,3,3)
! 109: ;;=Type a Number between .001 and 999999999, 4 Decimal Digits
! 110: ;;^DD(.411,3,21,0)
! 111: ;;=^^2^2^2921002^
! 112: ;;^DD(.411,3,21,1,0)
! 113: ;;=This field holds the number of the field in the destination file
! 114: ;;^DD(.411,3,21,2,0)
! 115: ;;=that will contain the extracted data from FIELD NUMBER in the source file.
! 116: ;;^DD(.411,4,0)
! 117: ;;=DESTINATION FIELD LOCATION^F^^0;4^K:$L(X)>30!($L(X)<3) X
! 118: ;;^DD(.411,4,3)
! 119: ;;=Answer must be 3-30 characters in length.
! 120: ;;^DD(.411,4,21,0)
! 121: ;;=^^3^3^2921002^
! 122: ;;^DD(.411,4,21,1,0)
! 123: ;;=This field holds the node and piece location of the DESTINATION FIELD
! 124: ;;^DD(.411,4,21,2,0)
! 125: ;;=NUMBER. This is used at the time extract data is moved to the destination
! 126: ;;^DD(.411,4,21,3,0)
! 127: ;;=file.
! 128: ;;^DD(.411,5,0)
! 129: ;;= EXTERNAL FORMAT^S^1:MOVE EXTERNAL FORMAT TO DESTINATION FILE;^0;5^Q
! 130: ;;^DD(.411,5,3)
! 131: ;;=Enter 1 if external format of data should be moved to destination file.
! 132: ;;^DD(.411,5,21,0)
! 133: ;;=^^3^3^2921208^
! 134: ;;^DD(.411,5,21,1,0)
! 135: ;;=This code is used to determine if the external form of the data in the
! 136: ;;^DD(.411,5,21,2,0)
! 137: ;;=source file should be moved to the destination file. If null, the
! 138: ;;^DD(.411,5,21,3,0)
! 139: ;;=internal format of the data is moved.
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to DINIT25.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem_fileman