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

DIPKI008.m

Go to the documentation of this file. 
  1. DIPKI008 ; ; 30-MAR-1999
  1.  ;;22.0;VA FileMan;;Mar 30, 1999
  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.49,2,21,2,0)
  1.  ;;=automatically when an INIT is installed for this package.
  1.  ;;^DD(9.49,2,"DT")
  1.  ;;=2840302
  1.  ;;^DD(9.49,3,0)
  1.  ;;=INSTALLED BY^P200'^VA(200,^0;4^Q
  1.  ;;^DD(9.49,3,21,0)
  1.  ;;=^^1^1^2940607^
  1.  ;;^DD(9.49,3,21,1,0)
  1.  ;;=This is the person who installed this version at this site.
  1.  ;;^DD(9.49,3,"DT")
  1.  ;;=2940607
  1.  ;;^DD(9.49,41,0)
  1.  ;;=DESCRIPTION OF ENHANCEMENTS^9.54^^1;0
  1.  ;;^DD(9.49,41,21,0)
  1.  ;;=^^2^2^2851008^^
  1.  ;;^DD(9.49,41,21,1,0)
  1.  ;;=This is a description of the enhancements being distributed with this
  1.  ;;^DD(9.49,41,21,2,0)
  1.  ;;=release.
  1.  ;;^DD(9.49,51,0)
  1.  ;;=*RELEASE NOTE^9.491^^R;0
  1.  ;;^DD(9.49,51,21,0)
  1.  ;;=^^2^2^2851009^^^^
  1.  ;;^DD(9.49,51,21,1,0)
  1.  ;;=These are the release notes which go along with this release of the
  1.  ;;^DD(9.49,51,21,2,0)
  1.  ;;=Package.
  1.  ;;^DD(9.49,51,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.49,61,0)
  1.  ;;=*INSTALLATION NOTES^9.4961^^I;0
  1.  ;;^DD(9.49,61,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.49,62,0)
  1.  ;;=*SYSTEM REQUIREMENTS^9.4962^^S;0
  1.  ;;^DD(9.49,62,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.49,63,0)
  1.  ;;=*PROGRAMMER NOTES^9.4963^^P;0
  1.  ;;^DD(9.49,63,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.49,1105,0)
  1.  ;;=PATCH APPLICATION HISTORY^9.4901^^PAH;0
  1.  ;;^DD(9.4901,0)
  1.  ;;=PATCH APPLICATION HISTORY SUB-FIELD^^1^4
  1.  ;;^DD(9.4901,0,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.4901,0,"IX","B",9.4901,.01)
  1.  ;;=
  1.  ;;^DD(9.4901,0,"NM","PATCH APPLICATION HISTORY")
  1.  ;;=
  1.  ;;^DD(9.4901,0,"UP")
  1.  ;;=9.49
  1.  ;;^DD(9.4901,.01,0)
  1.  ;;=PATCH APPLICATION HISTORY^MF^^0;1^K:$L(X)>15!($L(X)<8) X
  1.  ;;^DD(9.4901,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.4901,.01,1,1,0)
  1.  ;;=9.4901^B
  1.  ;;^DD(9.4901,.01,1,1,1)
  1.  ;;=S ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.4901,.01,1,1,2)
  1.  ;;=K ^DIC(9.4,DA(2),22,DA(1),"PAH","B",$E(X,1,30),DA)
  1.  ;;^DD(9.4901,.01,3)
  1.  ;;=Answer must be 8-15 characters in length.
  1.  ;;^DD(9.4901,.01,"DT")
  1.  ;;=2890426
  1.  ;;^DD(9.4901,.02,0)
  1.  ;;=DATE APPLIED^D^^0;2^S %DT="EX" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(9.4901,.02,"DT")
  1.  ;;=2890426
  1.  ;;^DD(9.4901,.03,0)
  1.  ;;=APPLIED BY^P200'^VA(200,^0;3^Q
  1.  ;;^DD(9.4901,.03,"DT")
  1.  ;;=2890426
  1.  ;;^DD(9.4901,1,0)
  1.  ;;=DESCRIPTION^9.49011^^1;0
  1.  ;;^DD(9.4901,1,21,0)
  1.  ;;=^^1^1^2940603^
  1.  ;;^DD(9.4901,1,21,1,0)
  1.  ;;=This is a description of the patch being distributed with this release.
  1.  ;;^DD(9.49011,0)
  1.  ;;=DESCRIPTION SUB-FIELD^^.01^1
  1.  ;;^DD(9.49011,0,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.49011,0,"NM","DESCRIPTION")
  1.  ;;=
  1.  ;;^DD(9.49011,0,"UP")
  1.  ;;=9.4901
  1.  ;;^DD(9.49011,.01,0)
  1.  ;;=DESCRIPTION^W^^0;1^Q
  1.  ;;^DD(9.49011,.01,"DT")
  1.  ;;=2940603
  1.  ;;^DD(9.491,0)
  1.  ;;=*RELEASE NOTE SUB-FIELD^NL^2^4
  1.  ;;^DD(9.491,0,"NM","*RELEASE NOTE")
  1.  ;;=
  1.  ;;^DD(9.491,0,"UP")
  1.  ;;=9.49
  1.  ;;^DD(9.491,.01,0)
  1.  ;;=RELEASE NOTE^MF^^0;1^K:$L(X)>80!($L(X)<3) X
  1.  ;;^DD(9.491,.01,3)
  1.  ;;=Please enter a description (3-80 characters).
  1.  ;;^DD(9.491,.01,21,0)
  1.  ;;=^^1^1^2851008^^
  1.  ;;^DD(9.491,.01,21,1,0)
  1.  ;;=This is a description of a particular enhancement.
  1.  ;;^DD(9.491,.01,"DT")
  1.  ;;=2850123
  1.  ;;^DD(9.491,.02,0)
  1.  ;;=WHERE CHANGE OCCURRED^F^^0;2^K:$L(X)>80!($L(X)<3) X
  1.  ;;^DD(9.491,.02,3)
  1.  ;;=Routine(s), Field Name(s), and/or Data that has been changed (3-80 characters).
  1.  ;;^DD(9.491,.02,21,0)
  1.  ;;=^^1^1^2851009^^^^
  1.  ;;^DD(9.491,.02,21,1,0)
  1.  ;;=Routine, Field Name, or Data that has been changed.
  1.  ;;^DD(9.491,.02,"DT")
  1.  ;;=2850123
  1.  ;;^DD(9.491,1,0)
  1.  ;;=DESCRIPTION OF CHANGE^9.492^^1;0
  1.  ;;^DD(9.491,1,21,0)
  1.  ;;=^^1^1^2851008^^
  1.  ;;^DD(9.491,1,21,1,0)
  1.  ;;=This is a description of the improvements.
  1.  ;;^DD(9.491,2,0)
  1.  ;;=UPDATE^9.493^^2;0
  1.  ;;^DD(9.491,2,21,0)
  1.  ;;=^^2^2^2851009^^
  1.  ;;^DD(9.491,2,21,1,0)
  1.  ;;=Comments on the updates which have been made to this release of the
  1.  ;;^DD(9.491,2,21,2,0)
  1.  ;;=Package.
  1.  ;;^DD(9.492,0)
  1.  ;;=DESCRIPTION OF CHANGE SUB-FIELD^NL^.01^1
  1.  ;;^DD(9.492,0,"NM","DESCRIPTION OF CHANGE")
  1.  ;;=
  1.  ;;^DD(9.492,0,"UP")
  1.  ;;=9.491
  1.  ;;^DD(9.492,.01,0)
  1.  ;;=DESCRIPTION OF CHANGE^W^^0;1^Q
  1.  ;;^DD(9.492,.01,21,0)
  1.  ;;=^^1^1^2851008^^^^
  1.  ;;^DD(9.492,.01,21,1,0)
  1.  ;;=This is a description of the improvement.
  1.  ;;^DD(9.492,.01,"DT")
  1.  ;;=2850123
  1.  ;;^DD(9.493,0)
  1.  ;;=UPDATE SUB-FIELD^NL^.01^1
  1.  ;;^DD(9.493,0,"NM","UPDATE")
  1.  ;;=
  1.  ;;^DD(9.493,0,"UP")
  1.  ;;=9.491
  1.  ;;^DD(9.493,.01,0)
  1.  ;;=UPDATE^W^^0;1^Q
  1.  ;;^DD(9.493,.01,21,0)
  1.  ;;=^^1^1^2851008^
  1.  ;;^DD(9.493,.01,21,1,0)
  1.  ;;=This is a description of the update to the Package.
  1.  ;;^DD(9.493,.01,"DT")
  1.  ;;=2850123
  1.  ;;^DD(9.495,0)
  1.  ;;=*MENU SUB-FIELD^^.02^2
  1.  ;;^DD(9.495,0,"DT")
  1.  ;;=2890928
  1.  ;;^DD(9.495,0,"IX","B",9.495,.01)
  1.  ;;=
  1.  ;;^DD(9.495,0,"NM","*MENU")
  1.  ;;=
  1.  ;;^DD(9.495,0,"UP")
  1.  ;;=9.4
  1.  ;;^DD(9.495,.01,0)
  1.  ;;=MENU^MF^^0;1^K:$L(X)>30!($L(X)<1) X
  1.  ;;^DD(9.495,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.495,.01,1,1,0)
  1.  ;;=9.495^B
  1.  ;;^DD(9.495,.01,1,1,1)
  1.  ;;=S ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.495,.01,1,1,2)
  1.  ;;=K ^DIC(9.4,DA(1),"M","B",$E(X,1,30),DA)
  1.  ;;^DD(9.495,.01,3)
  1.  ;;=This is the name of a menu-type option outside this namespace.
  1.  ;;^DD(9.495,.01,4)
  1.  ;;=N DO,DIC S DIC="^DIC(19,",DIC(0)="QE",D="B",DIC("S")="I $P(^(0),U,4)=""M""" D DQ^DICQ
  1.  ;;^DD(9.495,.01,21,0)
  1.  ;;=^^4^4^2920513^^^^
  1.  ;;^DD(9.495,.01,21,1,0)
  1.  ;;=This is the name of an option NOT in this namespace.  This option
  1.  ;;^DD(9.495,.01,21,2,0)
  1.  ;;=must be a menu, but it may not exist on this system.  You are
  1.  ;;^DD(9.495,.01,21,3,0)
  1.  ;;=entering this menu name because you want to add an option in this
  1.  ;;^DD(9.495,.01,21,4,0)
  1.  ;;=package to a menu that is in another.
  1.  ;;^DD(9.495,.01,"DT")
  1.  ;;=2890928
  1.  ;;^DD(9.495,.02,0)
  1.  ;;=OPTION^R*P19'^DIC(19,^0;2^S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))=""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  1.  ;;^DD(9.495,.02,12)
  1.  ;;=Select an option in this namespace.
  1.  ;;^DD(9.495,.02,12.1)
  1.  ;;=S DIC("S")="I $P($P(^DIC(19,Y,0),U),$P(^DIC(9.4,DA(1),0),U,2))="""""
  1.  ;;^DD(9.495,.02,21,0)
  1.  ;;=^^1^1^2920513^^
  1.  ;;^DD(9.495,.02,21,1,0)
  1.  ;;=This is an option which you wish to add to a menu in another namespace.
  1.  ;;^DD(9.495,.02,"DT")
  1.  ;;=2890928
  1.  ;;^DD(9.4961,0)
  1.  ;;=*INSTALLATION NOTES SUB-FIELD^^.01^1
  1.  ;;^DD(9.4961,0,"NM","*INSTALLATION NOTES")
  1.  ;;=
  1.  ;;^DD(9.4961,0,"UP")
  1.  ;;=9.49
  1.  ;;^DD(9.4961,.01,0)
  1.  ;;=INSTALLATION NOTES^W^^0;1^Q
  1.  ;;^DD(9.4961,.01,"DT")
  1.  ;;=2890426
  1.  ;;^DD(9.4962,0)
  1.  ;;=*SYSTEM REQUIREMENTS SUB-FIELD^^.01^1
  1.  ;;^DD(9.4962,0,"NM","*SYSTEM REQUIREMENTS")
  1.  ;;=
  1.  ;;^DD(9.4962,0,"UP")
  1.  ;;=9.49
  1.  ;;^DD(9.4962,.01,0)
  1.  ;;=SYSTEM REQUIREMENTS^W^^0;1^Q
  1.  ;;^DD(9.4962,.01,"DT")
  1.  ;;=2890426
  1.  ;;^DD(9.4963,0)
  1.  ;;=*PROGRAMMER NOTES SUB-FIELD^^.01^1
  1.  ;;^DD(9.4963,0,"NM","*PROGRAMMER NOTES")
  1.  ;;=
  1.  ;;^DD(9.4963,0,"UP")
  1.  ;;=9.49
  1.  ;;^DD(9.4963,.01,0)
  1.  ;;=PROGRAMMER NOTES^W^^0;1^Q
  1.  ;;^DD(9.4963,.01,"DT")
  1.  ;;=2890426
  1.  ;;^DD(9.54,0)
  1.  ;;=DESCRIPTION OF ENHANCEMENTS SUB-FIELD^NL^.01^1