DIPKI005 ; ; 30-MAR-1999
;;22.0;VA FileMan;;Mar 30, 1999;Build 1
;Per VHA Directive 10-93-142, this routine should not be modified.
Q:'DIFQ(9.4) F I=1:2 S X=$T(Q+I) Q:X="" S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E S @X=Y
Q Q
;;^DD(9.42,.01,21,1,0)
;;=This multiple is used for documentation purposes only and does
;;^DD(9.42,.01,21,2,0)
;;=not control anything during the INIT process. It is used to document
;;^DD(9.42,.01,21,3,0)
;;=the routines that are included in this Package.
;;^DD(9.42,.01,22)
;;=
;;^DD(9.42,.01,"DT")
;;=2850211
;;^DD(9.43,0)
;;=*GLOBAL SUB-FIELD^NL^5^3
;;^DD(9.43,0,"DT")
;;=2910827
;;^DD(9.43,0,"IX","B",9.43,.01)
;;=
;;^DD(9.43,0,"NM","*GLOBAL")
;;=
;;^DD(9.43,0,"UP")
;;=9.4
;;^DD(9.43,.01,0)
;;=GLOBAL^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>15!($L(X)<1) X
;;^DD(9.43,.01,1,0)
;;=^.1
;;^DD(9.43,.01,1,1,0)
;;=9.43^B
;;^DD(9.43,.01,1,1,1)
;;=S ^DIC(9.4,DA(1),3,"B",X,DA)=""
;;^DD(9.43,.01,1,1,2)
;;=K ^DIC(9.4,DA(1),3,"B",X,DA)
;;^DD(9.43,.01,3)
;;=Enter name of global used in this package. Answer must be 1-15 characters in length. (Used for documentation only.)
;;^DD(9.43,.01,21,0)
;;=^^2^2^2920513^^^
;;^DD(9.43,.01,21,1,0)
;;=The name of a global which is part of this Package. Used for documentation
;;^DD(9.43,.01,21,2,0)
;;=only.
;;^DD(9.43,.01,"DT")
;;=2910827
;;^DD(9.43,4,0)
;;=DESCRIPTION^9.431^^4;0
;;^DD(9.43,4,21,0)
;;=^^1^1^2920513^^
;;^DD(9.43,4,21,1,0)
;;=This is a description of the global and how it is used by the Package.
;;^DD(9.43,5,0)
;;=JOURNALLING^S^M:mandatory!;O:optional--not required;N:not recommended;^5;1^Q
;;^DD(9.43,5,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.43,5,21,1,0)
;;=Advises whether or not to Journal this global.
;;^DD(9.43,5,"DT")
;;=2850228
;;^DD(9.431,0)
;;=DESCRIPTION SUB-FIELD^NL^.01^1
;;^DD(9.431,0,"NM","DESCRIPTION")
;;=
;;^DD(9.431,0,"UP")
;;=9.43
;;^DD(9.431,.01,0)
;;=DESCRIPTION^W^^0;1^Q
;;^DD(9.431,.01,21,0)
;;=^^1^1^2920513^^^
;;^DD(9.431,.01,21,1,0)
;;=This is a description of the global and how it is used by the Package.
;;^DD(9.431,.01,"DT")
;;=2850228
;;^DD(9.432,0)
;;=*EXCLUDED NAME SPACE SUB-FIELD^NL^.01^1
;;^DD(9.432,0,"NM","*EXCLUDED NAME SPACE")
;;=
;;^DD(9.432,0,"UP")
;;=9.4
;;^DD(9.432,.01,0)
;;=EXCLUDED NAME SPACE^MFX^^0;1^K:$L(X)>7!($L(X)<2)!'(X?1U1UN.UN) X
;;^DD(9.432,.01,3)
;;=Please enter the prefix of the excluded name space (2-7 characters).
;;^DD(9.432,.01,4)
;;=W !,?5,"When DIFROM builds '",$P(^DIC(9.4,D0,0),"^",2),"INIT',",!?5,"OPTIONS, FUNCTIONS, SECURITY KEYS, and BULLETINS beginning with",!?5,"these characters WON'T be included.",!
;;^DD(9.432,.01,21,0)
;;=^^2^2^2851008^
;;^DD(9.432,.01,21,1,0)
;;=This specifies a sub-set of the Package's namespace which is not to
;;^DD(9.432,.01,21,2,0)
;;=be exported by the DIFROM routines.
;;^DD(9.432,.01,"DT")
;;=2841128
;;^DD(9.44,0)
;;=*FILE SUB-FIELD^NL^223^9
;;^DD(9.44,0,"DT")
;;=2890928
;;^DD(9.44,0,"IX","B",9.44,.01)
;;=
;;^DD(9.44,0,"NM","*FILE")
;;=
;;^DD(9.44,0,"UP")
;;=9.4
;;^DD(9.44,.01,0)
;;=FILE^M*P1'^DIC(^0;1^S DIC("S")="I Y>1.9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(9.44,.01,.1)
;;=REQUIRED FILES FOR THIS PACKAGE
;;^DD(9.44,.01,1,0)
;;=^.1
;;^DD(9.44,.01,1,1,0)
;;=9.44^B
;;^DD(9.44,.01,1,1,1)
;;=S ^DIC(9.4,DA(1),4,"B",X,DA)=""
;;^DD(9.44,.01,1,1,2)
;;=K ^DIC(9.4,DA(1),4,"B",X,DA)
;;^DD(9.44,.01,1,2,0)
;;=9.4^AR
;;^DD(9.44,.01,1,2,1)
;;=S ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)=""
;;^DD(9.44,.01,1,2,2)
;;=K ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)
;;^DD(9.44,.01,3)
;;=Please enter the name of a FILE that is known to VA FileMan.
;;^DD(9.44,.01,12)
;;=Select a file which is used by this package.
;;^DD(9.44,.01,12.1)
;;=S DIC("S")="I Y>1.9999"
;;^DD(9.44,.01,21,0)
;;=^^2^2^2920513^^^^
;;^DD(9.44,.01,21,1,0)
;;=The name of a VA FileMan file which you wish to transport with
;;^DD(9.44,.01,21,2,0)
;;=this package. This may be any file whose number is 2 or greater.
;;^DD(9.44,.01,"DT")
;;=2890928
;;^DD(9.44,2,0)
;;=FIELD^9.45A^^1;0
;;^DD(9.44,2,21,0)
;;=^^3^3^2920513^^^
;;^DD(9.44,2,21,1,0)
;;=The names of the FileMan Fields required by this Package. Enter data
;;^DD(9.44,2,21,2,0)
;;=here ONLY if you wish to send just selected fields from a Data Dictionary
;;^DD(9.44,2,21,3,0)
;;=instead of the entire DD (i.e., a partial DD).
;;^DD(9.44,222.1,0)
;;=UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q
;;^DD(9.44,222.1,21,0)
;;=^^8^8^2920513^^^^
;;^DD(9.44,222.1,21,1,0)
;;=YES means that the Data Dictionary for this file should be updated when
;;^DD(9.44,222.1,21,2,0)
;;=this version of the package is installed.
;;^DD(9.44,222.1,21,3,0)
;;=
;;^DD(9.44,222.1,21,4,0)
;;=NO means that this Data Dictionary has not changed since the last version,
;;^DD(9.44,222.1,21,5,0)
;;=and therefore, need not be updated.
;;^DD(9.44,222.1,21,6,0)
;;=
;;^DD(9.44,222.1,21,7,0)
;;=If the Data Dictionary does not exist on the recipient system, then this
;;^DD(9.44,222.1,21,8,0)
;;=field does not apply. The DD will be put in place.
;;^DD(9.44,222.1,"DT")
;;=2890627
;;^DD(9.44,222.2,0)
;;=ASSIGN A VERSION NUMBER^S^y:YES;n:NO;^222;2^Q
;;^DD(9.44,222.2,3)
;;=
;;^DD(9.44,222.2,21,0)
;;=^^5^5^2920513^^^^
;;^DD(9.44,222.2,21,1,0)
;;=YES means that you want to set ^DD(file#,0,"VR") to the version
;;^DD(9.44,222.2,21,2,0)
;;=number of this package when the init is finished.
;;^DD(9.44,222.2,21,3,0)
;;=
;;^DD(9.44,222.2,21,4,0)
;;=NO means that you intend for the version number to remain as it is.
;;^DD(9.44,222.2,21,5,0)
;;=This may mean that this DD has no version number at all.
;;^DD(9.44,222.4,0)
;;=MAY USER OVERRIDE DD UPDATE^S^y:YES;n:NO;^222;4^Q
;;^DD(9.44,222.4,3)
;;=
;;^DD(9.44,222.4,21,0)
;;=^^5^5^2920513^^^^
;;^DD(9.44,222.4,21,1,0)
;;=YES means that the user may decide at installation time whether or not
;;^DD(9.44,222.4,21,2,0)
;;=to update the data dictionary for this file.
;;^DD(9.44,222.4,21,3,0)
;;=
;;^DD(9.44,222.4,21,4,0)
;;=NO means that the developer building the INIT is determining if the
;;^DD(9.44,222.4,21,5,0)
;;=data dictionary is to be updated.
;;^DD(9.44,222.7,0)
;;=DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q
;;^DD(9.44,222.7,2)
;;=DATA COMES WITH FILE
;;^DD(9.44,222.7,21,0)
;;=^^4^4^2920513^^^^
;;^DD(9.44,222.7,21,1,0)
;;=YES means that the data should be included in the initialization
;;^DD(9.44,222.7,21,2,0)
;;=routines.
;;^DD(9.44,222.7,21,3,0)
;;=
;;^DD(9.44,222.7,21,4,0)
;;=NO means that the data should be left out.
;;^DD(9.44,222.7,"DT")
;;=2940502
;;^DD(9.44,222.8,0)
;;=MERGE OR OVERWRITE SITE'S DATA^S^m:MERGE;o:OVERWRITE;^222;8^Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDIPKI005 7004 printed Apr 09, 2024@21:56:59 Page 2
DIPKI005 ; ; 30-MAR-1999
+1 ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
+2 ;Per VHA Directive 10-93-142, this routine should not be modified.
+3 if 'DIFQ(9.4)
QUIT
FOR I=1:2
SET X=$TEXT(Q+I)
if X=""
QUIT
SET Y=$EXTRACT($TEXT(Q+I+1),4,999)
SET X=$EXTRACT(X,4,999)
if $ASCII(Y)=126
SET I=I+1
SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)
if $ASCII(Y)=61
SET Y=$EXTRACT(Y,2,999)
XECUTE NO
IF '$TEST
SET @X=Y
Q QUIT
+1 ;;^DD(9.42,.01,21,1,0)
+2 ;;=This multiple is used for documentation purposes only and does
+3 ;;^DD(9.42,.01,21,2,0)
+4 ;;=not control anything during the INIT process. It is used to document
+5 ;;^DD(9.42,.01,21,3,0)
+6 ;;=the routines that are included in this Package.
+7 ;;^DD(9.42,.01,22)
+8 ;;=
+9 ;;^DD(9.42,.01,"DT")
+10 ;;=2850211
+11 ;;^DD(9.43,0)
+12 ;;=*GLOBAL SUB-FIELD^NL^5^3
+13 ;;^DD(9.43,0,"DT")
+14 ;;=2910827
+15 ;;^DD(9.43,0,"IX","B",9.43,.01)
+16 ;;=
+17 ;;^DD(9.43,0,"NM","*GLOBAL")
+18 ;;=
+19 ;;^DD(9.43,0,"UP")
+20 ;;=9.4
+21 ;;^DD(9.43,.01,0)
+22 ;;=GLOBAL^MF^^0;1^K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>15!($L(X)<1) X
+23 ;;^DD(9.43,.01,1,0)
+24 ;;=^.1
+25 ;;^DD(9.43,.01,1,1,0)
+26 ;;=9.43^B
+27 ;;^DD(9.43,.01,1,1,1)
+28 ;;=S ^DIC(9.4,DA(1),3,"B",X,DA)=""
+29 ;;^DD(9.43,.01,1,1,2)
+30 ;;=K ^DIC(9.4,DA(1),3,"B",X,DA)
+31 ;;^DD(9.43,.01,3)
+32 ;;=Enter name of global used in this package. Answer must be 1-15 characters in length. (Used for documentation only.)
+33 ;;^DD(9.43,.01,21,0)
+34 ;;=^^2^2^2920513^^^
+35 ;;^DD(9.43,.01,21,1,0)
+36 ;;=The name of a global which is part of this Package. Used for documentation
+37 ;;^DD(9.43,.01,21,2,0)
+38 ;;=only.
+39 ;;^DD(9.43,.01,"DT")
+40 ;;=2910827
+41 ;;^DD(9.43,4,0)
+42 ;;=DESCRIPTION^9.431^^4;0
+43 ;;^DD(9.43,4,21,0)
+44 ;;=^^1^1^2920513^^
+45 ;;^DD(9.43,4,21,1,0)
+46 ;;=This is a description of the global and how it is used by the Package.
+47 ;;^DD(9.43,5,0)
+48 ;;=JOURNALLING^S^M:mandatory!;O:optional--not required;N:not recommended;^5;1^Q
+49 ;;^DD(9.43,5,21,0)
+50 ;;=^^1^1^2920513^^^
+51 ;;^DD(9.43,5,21,1,0)
+52 ;;=Advises whether or not to Journal this global.
+53 ;;^DD(9.43,5,"DT")
+54 ;;=2850228
+55 ;;^DD(9.431,0)
+56 ;;=DESCRIPTION SUB-FIELD^NL^.01^1
+57 ;;^DD(9.431,0,"NM","DESCRIPTION")
+58 ;;=
+59 ;;^DD(9.431,0,"UP")
+60 ;;=9.43
+61 ;;^DD(9.431,.01,0)
+62 ;;=DESCRIPTION^W^^0;1^Q
+63 ;;^DD(9.431,.01,21,0)
+64 ;;=^^1^1^2920513^^^
+65 ;;^DD(9.431,.01,21,1,0)
+66 ;;=This is a description of the global and how it is used by the Package.
+67 ;;^DD(9.431,.01,"DT")
+68 ;;=2850228
+69 ;;^DD(9.432,0)
+70 ;;=*EXCLUDED NAME SPACE SUB-FIELD^NL^.01^1
+71 ;;^DD(9.432,0,"NM","*EXCLUDED NAME SPACE")
+72 ;;=
+73 ;;^DD(9.432,0,"UP")
+74 ;;=9.4
+75 ;;^DD(9.432,.01,0)
+76 ;;=EXCLUDED NAME SPACE^MFX^^0;1^K:$L(X)>7!($L(X)<2)!'(X?1U1UN.UN) X
+77 ;;^DD(9.432,.01,3)
+78 ;;=Please enter the prefix of the excluded name space (2-7 characters).
+79 ;;^DD(9.432,.01,4)
+80 ;;=W !,?5,"When DIFROM builds '",$P(^DIC(9.4,D0,0),"^",2),"INIT',",!?5,"OPTIONS, FUNCTIONS, SECURITY KEYS, and BULLETINS beginning with",!?5,"these characters WON'T be included.",!
+81 ;;^DD(9.432,.01,21,0)
+82 ;;=^^2^2^2851008^
+83 ;;^DD(9.432,.01,21,1,0)
+84 ;;=This specifies a sub-set of the Package's namespace which is not to
+85 ;;^DD(9.432,.01,21,2,0)
+86 ;;=be exported by the DIFROM routines.
+87 ;;^DD(9.432,.01,"DT")
+88 ;;=2841128
+89 ;;^DD(9.44,0)
+90 ;;=*FILE SUB-FIELD^NL^223^9
+91 ;;^DD(9.44,0,"DT")
+92 ;;=2890928
+93 ;;^DD(9.44,0,"IX","B",9.44,.01)
+94 ;;=
+95 ;;^DD(9.44,0,"NM","*FILE")
+96 ;;=
+97 ;;^DD(9.44,0,"UP")
+98 ;;=9.4
+99 ;;^DD(9.44,.01,0)
+100 ;;=FILE^M*P1'^DIC(^0;1^S DIC("S")="I Y>1.9999" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+101 ;;^DD(9.44,.01,.1)
+102 ;;=REQUIRED FILES FOR THIS PACKAGE
+103 ;;^DD(9.44,.01,1,0)
+104 ;;=^.1
+105 ;;^DD(9.44,.01,1,1,0)
+106 ;;=9.44^B
+107 ;;^DD(9.44,.01,1,1,1)
+108 ;;=S ^DIC(9.4,DA(1),4,"B",X,DA)=""
+109 ;;^DD(9.44,.01,1,1,2)
+110 ;;=K ^DIC(9.4,DA(1),4,"B",X,DA)
+111 ;;^DD(9.44,.01,1,2,0)
+112 ;;=9.4^AR
+113 ;;^DD(9.44,.01,1,2,1)
+114 ;;=S ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)=""
+115 ;;^DD(9.44,.01,1,2,2)
+116 ;;=K ^DIC(9.4,"AR",$E(X,1,30),DA(1),DA)
+117 ;;^DD(9.44,.01,3)
+118 ;;=Please enter the name of a FILE that is known to VA FileMan.
+119 ;;^DD(9.44,.01,12)
+120 ;;=Select a file which is used by this package.
+121 ;;^DD(9.44,.01,12.1)
+122 ;;=S DIC("S")="I Y>1.9999"
+123 ;;^DD(9.44,.01,21,0)
+124 ;;=^^2^2^2920513^^^^
+125 ;;^DD(9.44,.01,21,1,0)
+126 ;;=The name of a VA FileMan file which you wish to transport with
+127 ;;^DD(9.44,.01,21,2,0)
+128 ;;=this package. This may be any file whose number is 2 or greater.
+129 ;;^DD(9.44,.01,"DT")
+130 ;;=2890928
+131 ;;^DD(9.44,2,0)
+132 ;;=FIELD^9.45A^^1;0
+133 ;;^DD(9.44,2,21,0)
+134 ;;=^^3^3^2920513^^^
+135 ;;^DD(9.44,2,21,1,0)
+136 ;;=The names of the FileMan Fields required by this Package. Enter data
+137 ;;^DD(9.44,2,21,2,0)
+138 ;;=here ONLY if you wish to send just selected fields from a Data Dictionary
+139 ;;^DD(9.44,2,21,3,0)
+140 ;;=instead of the entire DD (i.e., a partial DD).
+141 ;;^DD(9.44,222.1,0)
+142 ;;=UPDATE THE DATA DICTIONARY^S^y:YES;n:NO;^222;1^Q
+143 ;;^DD(9.44,222.1,21,0)
+144 ;;=^^8^8^2920513^^^^
+145 ;;^DD(9.44,222.1,21,1,0)
+146 ;;=YES means that the Data Dictionary for this file should be updated when
+147 ;;^DD(9.44,222.1,21,2,0)
+148 ;;=this version of the package is installed.
+149 ;;^DD(9.44,222.1,21,3,0)
+150 ;;=
+151 ;;^DD(9.44,222.1,21,4,0)
+152 ;;=NO means that this Data Dictionary has not changed since the last version,
+153 ;;^DD(9.44,222.1,21,5,0)
+154 ;;=and therefore, need not be updated.
+155 ;;^DD(9.44,222.1,21,6,0)
+156 ;;=
+157 ;;^DD(9.44,222.1,21,7,0)
+158 ;;=If the Data Dictionary does not exist on the recipient system, then this
+159 ;;^DD(9.44,222.1,21,8,0)
+160 ;;=field does not apply. The DD will be put in place.
+161 ;;^DD(9.44,222.1,"DT")
+162 ;;=2890627
+163 ;;^DD(9.44,222.2,0)
+164 ;;=ASSIGN A VERSION NUMBER^S^y:YES;n:NO;^222;2^Q
+165 ;;^DD(9.44,222.2,3)
+166 ;;=
+167 ;;^DD(9.44,222.2,21,0)
+168 ;;=^^5^5^2920513^^^^
+169 ;;^DD(9.44,222.2,21,1,0)
+170 ;;=YES means that you want to set ^DD(file#,0,"VR") to the version
+171 ;;^DD(9.44,222.2,21,2,0)
+172 ;;=number of this package when the init is finished.
+173 ;;^DD(9.44,222.2,21,3,0)
+174 ;;=
+175 ;;^DD(9.44,222.2,21,4,0)
+176 ;;=NO means that you intend for the version number to remain as it is.
+177 ;;^DD(9.44,222.2,21,5,0)
+178 ;;=This may mean that this DD has no version number at all.
+179 ;;^DD(9.44,222.4,0)
+180 ;;=MAY USER OVERRIDE DD UPDATE^S^y:YES;n:NO;^222;4^Q
+181 ;;^DD(9.44,222.4,3)
+182 ;;=
+183 ;;^DD(9.44,222.4,21,0)
+184 ;;=^^5^5^2920513^^^^
+185 ;;^DD(9.44,222.4,21,1,0)
+186 ;;=YES means that the user may decide at installation time whether or not
+187 ;;^DD(9.44,222.4,21,2,0)
+188 ;;=to update the data dictionary for this file.
+189 ;;^DD(9.44,222.4,21,3,0)
+190 ;;=
+191 ;;^DD(9.44,222.4,21,4,0)
+192 ;;=NO means that the developer building the INIT is determining if the
+193 ;;^DD(9.44,222.4,21,5,0)
+194 ;;=data dictionary is to be updated.
+195 ;;^DD(9.44,222.7,0)
+196 ;;=DATA COMES WITH FILE^S^y:YES;n:NO;^222;7^Q
+197 ;;^DD(9.44,222.7,2)
+198 ;;=DATA COMES WITH FILE
+199 ;;^DD(9.44,222.7,21,0)
+200 ;;=^^4^4^2920513^^^^
+201 ;;^DD(9.44,222.7,21,1,0)
+202 ;;=YES means that the data should be included in the initialization
+203 ;;^DD(9.44,222.7,21,2,0)
+204 ;;=routines.
+205 ;;^DD(9.44,222.7,21,3,0)
+206 ;;=
+207 ;;^DD(9.44,222.7,21,4,0)
+208 ;;=NO means that the data should be left out.
+209 ;;^DD(9.44,222.7,"DT")
+210 ;;=2940502
+211 ;;^DD(9.44,222.8,0)
+212 ;;=MERGE OR OVERWRITE SITE'S DATA^S^m:MERGE;o:OVERWRITE;^222;8^Q
