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

DIPKI007.m

Go to the documentation of this file. 
  1. DIPKI007 ; ; 30-MAR-1999
  1.  ;;22.0;VA FileMan;;Mar 30, 1999;Build 1
  1.  ;Per VHA Directive 10-93-142, this routine should not be modified.
  1.  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
  1. Q Q
  1.  ;;^DD(9.455,.02,21,6,0)
  1.  ;;=available, then the variable would not be displayed along with other
  1.  ;;^DD(9.455,.02,21,7,0)
  1.  ;;=annotated key variables.
  1.  ;;^DD(9.455,.02,21,8,0)
  1.  ;;= 
  1.  ;;^DD(9.455,.02,"DT")
  1.  ;;=2920928
  1.  ;;^DD(9.455,1,0)
  1.  ;;=DESCRIPTION^9.456^^1;0
  1.  ;;^DD(9.455,1,21,0)
  1.  ;;=^^2^2^2851008^^
  1.  ;;^DD(9.455,1,21,1,0)
  1.  ;;=This lists information about the MUMPS variable required by this
  1.  ;;^DD(9.455,1,21,2,0)
  1.  ;;=Package.
  1.  ;;^DD(9.456,0)
  1.  ;;=DESCRIPTION SUB-FIELD^NL^.01^1
  1.  ;;^DD(9.456,0,"NM","DESCRIPTION")
  1.  ;;=
  1.  ;;^DD(9.456,0,"UP")
  1.  ;;=9.455
  1.  ;;^DD(9.456,.01,0)
  1.  ;;=DESCRIPTION^W^^0;1^Q
  1.  ;;^DD(9.456,.01,21,0)
  1.  ;;=^^2^2^2851008^^
  1.  ;;^DD(9.456,.01,21,1,0)
  1.  ;;=This describes the MUMPS variable which this Package would like
  1.  ;;^DD(9.456,.01,21,2,0)
  1.  ;;=defined prior to entry into the routines.
  1.  ;;^DD(9.456,.01,"DT")
  1.  ;;=2850228
  1.  ;;^DD(9.46,0)
  1.  ;;=*PRINT TEMPLATE SUB-FIELD^NL^2^2
  1.  ;;^DD(9.46,0,"NM","*PRINT TEMPLATE")
  1.  ;;=
  1.  ;;^DD(9.46,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.46,.01,0)
  1.  ;;=PRINT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
  1.  ;;^DD(9.46,.01,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(9.46,.01,3)
  1.  ;;=Please enter the name of a Print Template (2-50 characters).
  1.  ;;^DD(9.46,.01,21,0)
  1.  ;;=^^5^5^2921202^
  1.  ;;^DD(9.46,.01,21,1,0)
  1.  ;;=The name of a Print Template being sent with this Package.
  1.  ;;^DD(9.46,.01,21,2,0)
  1.  ;;=This multiple is used to send non-namespaced templates in an INIT.
  1.  ;;^DD(9.46,.01,21,3,0)
  1.  ;;=Namespaced templates are sent automatically and need not be listed
  1.  ;;^DD(9.46,.01,21,4,0)
  1.  ;;=separately.  Selected Fields for Export and Export templates cannot be
  1.  ;;^DD(9.46,.01,21,5,0)
  1.  ;;=sent; entering their names here will have no effect.
  1.  ;;^DD(9.46,.01,"DT")
  1.  ;;=2821117
  1.  ;;^DD(9.46,2,0)
  1.  ;;=FILE^RP1'^DIC(^0;2^Q
  1.  ;;^DD(9.46,2,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.46,2,21,1,0)
  1.  ;;=The FileMan file for this Print Template.
  1.  ;;^DD(9.46,2,"DT")
  1.  ;;=2821126
  1.  ;;^DD(9.47,0)
  1.  ;;=*INPUT TEMPLATE SUB-FIELD^NL^2^2
  1.  ;;^DD(9.47,0,"ID",2)
  1.  ;;=W "   FILE #"_$P(^(0),U,2)
  1.  ;;^DD(9.47,0,"NM","*INPUT TEMPLATE")
  1.  ;;=
  1.  ;;^DD(9.47,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.47,.01,0)
  1.  ;;=INPUT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
  1.  ;;^DD(9.47,.01,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(9.47,.01,3)
  1.  ;;=Please enter the name of an Input Template (2-50 characters).
  1.  ;;^DD(9.47,.01,21,0)
  1.  ;;=^^4^4^2920513^^^
  1.  ;;^DD(9.47,.01,21,1,0)
  1.  ;;=The name of an Input Template being sent with this Package.
  1.  ;;^DD(9.47,.01,21,2,0)
  1.  ;;=This multiple is used to send non-namespaced templates in an INIT.
  1.  ;;^DD(9.47,.01,21,3,0)
  1.  ;;=Namespaced templates are sent automatically and need not be listed
  1.  ;;^DD(9.47,.01,21,4,0)
  1.  ;;=separately.
  1.  ;;^DD(9.47,.01,"DT")
  1.  ;;=2821117
  1.  ;;^DD(9.47,2,0)
  1.  ;;=FILE^RP1'^DIC(^0;2^Q
  1.  ;;^DD(9.47,2,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.47,2,21,1,0)
  1.  ;;=The name of the FileMan file for this Input Template.
  1.  ;;^DD(9.47,2,"DT")
  1.  ;;=2821126
  1.  ;;^DD(9.48,0)
  1.  ;;=*SORT TEMPLATE SUB-FIELD^NL^2^2
  1.  ;;^DD(9.48,0,"NM","*SORT TEMPLATE")
  1.  ;;=
  1.  ;;^DD(9.48,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.48,.01,0)
  1.  ;;=SORT TEMPLATE^MF^^0;1^K:$L(X)>50!($L(X)<2) X
  1.  ;;^DD(9.48,.01,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(9.48,.01,3)
  1.  ;;=Please enter the name of a Sort Template (2-50 characters).
  1.  ;;^DD(9.48,.01,21,0)
  1.  ;;=^^4^4^2920513^^^
  1.  ;;^DD(9.48,.01,21,1,0)
  1.  ;;=The name of a Sort Template being sent with this Package.
  1.  ;;^DD(9.48,.01,21,2,0)
  1.  ;;=This multiple is used to send non-namespaced templates in an INIT.
  1.  ;;^DD(9.48,.01,21,3,0)
  1.  ;;=Namespaced templates are sent automatically and need not be listed
  1.  ;;^DD(9.48,.01,21,4,0)
  1.  ;;=separately.
  1.  ;;^DD(9.48,.01,"DT")
  1.  ;;=2821117
  1.  ;;^DD(9.48,2,0)
  1.  ;;=FILE^RP1'^DIC(^0;2^Q
  1.  ;;^DD(9.48,2,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.48,2,21,1,0)
  1.  ;;=The FileMan file for this Sort Template.
  1.  ;;^DD(9.485,0)
  1.  ;;=*SCREEN TEMPLATE (FORM) SUB-FIELD^^2^2
  1.  ;;^DD(9.485,0,"DT")
  1.  ;;=2910320
  1.  ;;^DD(9.485,0,"NM","*SCREEN TEMPLATE (FORM)")
  1.  ;;=
  1.  ;;^DD(9.485,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.485,.01,0)
  1.  ;;=SCREEN TEMPLATE (FORM)^MF^^0;1^K:$L(X)>50!($L(X)<2) X
  1.  ;;^DD(9.485,.01,1,0)
  1.  ;;=^.1^^0
  1.  ;;^DD(9.485,.01,3)
  1.  ;;=Please enter the name of a Screen Template (Form), (2-50 characters).
  1.  ;;^DD(9.485,.01,21,0)
  1.  ;;=^^2^2^2920513^^^^
  1.  ;;^DD(9.485,.01,21,1,0)
  1.  ;;=The name of a Screen Template (from the FORM file) associated with
  1.  ;;^DD(9.485,.01,21,2,0)
  1.  ;;=this Package.
  1.  ;;^DD(9.485,.01,23,0)
  1.  ;;=^^3^3^2910320^^^^
  1.  ;;^DD(9.485,.01,23,1,0)
  1.  ;;=This list is originally created by the user for building an INIT, and allows
  1.  ;;^DD(9.485,.01,23,2,0)
  1.  ;;=the user to send FORMS on an INIT that are outside the Package namespace.
  1.  ;;^DD(9.485,.01,23,3,0)
  1.  ;;=All BLOCKS associated with the FORMS are also sent automatically.
  1.  ;;^DD(9.485,.01,"DT")
  1.  ;;=2910320
  1.  ;;^DD(9.485,2,0)
  1.  ;;=FILE^RP1'^DIC(^0;2^Q
  1.  ;;^DD(9.485,2,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.485,2,21,1,0)
  1.  ;;=The name of the FileMan file for this Screen Template (FORM).
  1.  ;;^DD(9.485,2,23,0)
  1.  ;;=^^1^1^2910320^
  1.  ;;^DD(9.485,2,23,1,0)
  1.  ;;=This field must match the PRIMARY FILE field on the FORM file.
  1.  ;;^DD(9.485,2,"DT")
  1.  ;;=2910320
  1.  ;;^DD(9.49,0)
  1.  ;;=VERSION SUB-FIELD^NL^1105^10
  1.  ;;^DD(9.49,0,"DT")
  1.  ;;=2940607
  1.  ;;^DD(9.49,0,"ID",1)
  1.  ;;=W:$D(^("0")) "   ",$E($P(^("0"),U,2),4,5)_"-"_$E($P(^("0"),U,2),6,7)_"-"_$E($P(^("0"),U,2),2,3)
  1.  ;;^DD(9.49,0,"IX","B",9.49,.01)
  1.  ;;=
  1.  ;;^DD(9.49,0,"NM","VERSION")
  1.  ;;=
  1.  ;;^DD(9.49,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.49,.01,0)
  1.  ;;=VERSION^FX^^0;1^K:'(X?1.3N.1".".2N.1A.2N)!(X>999)!(X'>0) X
  1.  ;;^DD(9.49,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.49,.01,1,1,0)
  1.  ;;=9.49^B
  1.  ;;^DD(9.49,.01,1,1,1)
  1.  ;;=S ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.49,.01,1,1,2)
  1.  ;;=K ^DIC(9.4,DA(1),22,"B",$E(X,1,30),DA)
  1.  ;;^DD(9.49,.01,3)
  1.  ;;=Please enter the Version Number of this release.  This can be either the old method (1.0, 16.04, etc.) or the new (17T1, 6.0V2, etc.).
  1.  ;;^DD(9.49,.01,21,0)
  1.  ;;=^^2^2^2930415^^^^
  1.  ;;^DD(9.49,.01,21,1,0)
  1.  ;;=The version number of this Package.  This number is updated automatically
  1.  ;;^DD(9.49,.01,21,2,0)
  1.  ;;=when an INIT is built for this package.
  1.  ;;^DD(9.49,.01,"DT")
  1.  ;;=2910322
  1.  ;;^DD(9.49,1,0)
  1.  ;;=DATE DISTRIBUTED^D^^0;2^S %DT="E" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(9.49,1,21,0)
  1.  ;;=^^2^2^2911209^^^
  1.  ;;^DD(9.49,1,21,1,0)
  1.  ;;=The date this release was distributed.  This field is updated automatically
  1.  ;;^DD(9.49,1,21,2,0)
  1.  ;;=when an INIT is built for this package.
  1.  ;;^DD(9.49,1,"DT")
  1.  ;;=2840227
  1.  ;;^DD(9.49,2,0)
  1.  ;;=DATE INSTALLED AT THIS SITE^D^^0;3^S %DT="ET" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(9.49,2,21,0)
  1.  ;;=^^2^2^2911209^^^
  1.  ;;^DD(9.49,2,21,1,0)
  1.  ;;=The date this release was installed at this site.  This field is updated