XPDIN00B ; ; 03-JUL-1995
;;8.0;KERNEL;;JUL 10, 1995
Q:'DIFQ(9.7) 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.7,7,3)
;;=Answer must be 3-30 characters in length.
;;^DD(9.7,7,21,0)
;;=^^2^2^2940426^^
;;^DD(9.7,7,21,1,0)
;;=This is the SETNAME that will be used to disable options and protocols during
;;^DD(9.7,7,21,2,0)
;;=the installation of this package.
;;^DD(9.7,7,"DT")
;;=2940426
;;^DD(9.7,8,0)
;;=DISABLE OPTION DELAY^NJ2,0^^0;10^K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
;;^DD(9.7,8,3)
;;=Enter the number of minutes to delay the install, between 0 and 60.
;;^DD(9.7,8,21,0)
;;=^^2^2^2941103^
;;^DD(9.7,8,21,1,0)
;;=Enter the number of minutes to wait after the Options and Protocols have
;;^DD(9.7,8,21,2,0)
;;=been disabled, but before the Routines have been installed.
;;^DD(9.7,8,"DT")
;;=2941103
;;^DD(9.7,9,0)
;;=INSTALLED BY^P200'^VA(200,^0;11^Q
;;^DD(9.7,9,21,0)
;;=^^1^1^2950213^
;;^DD(9.7,9,21,1,0)
;;=This is the person who installed this package.
;;^DD(9.7,9,"DT")
;;=2950213
;;^DD(9.7,11,0)
;;=INSTALL START TIME^D^^1;1^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(9.7,11,21,0)
;;=^^1^1^2940415^
;;^DD(9.7,11,21,1,0)
;;=This is the time the install started.
;;^DD(9.7,11,"DT")
;;=2931117
;;^DD(9.7,12,0)
;;=ROUTINE INSTALL TIME^D^^1;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(9.7,12,21,0)
;;=^^1^1^2940415^
;;^DD(9.7,12,21,1,0)
;;=This is the routine install completed time.
;;^DD(9.7,12,"DT")
;;=2931118
;;^DD(9.7,13,0)
;;=PRE-INIT CHECK POINTS^9.713^^INI;0
;;^DD(9.7,13,21,0)
;;=^^1^1^2940503^^
;;^DD(9.7,13,21,1,0)
;;=This contains all the check points needed for the Pre-Init routine.
;;^DD(9.7,14,0)
;;=FILE^9.714P^^4;0
;;^DD(9.7,14,21,0)
;;=^^1^1^2940415^
;;^DD(9.7,14,21,1,0)
;;=This contains the VA Fileman files that were installed by this package.
;;^DD(9.7,14,"DT")
;;=2931118
;;^DD(9.7,15,0)
;;=BUILD COMPONENTS^9.715P^^KRN;0
;;^DD(9.7,15,21,0)
;;=^^1^1^2940415^
;;^DD(9.7,15,21,1,0)
;;=This contains a list of the components of this package.
;;^DD(9.7,15,"DT")
;;=2940525
;;^DD(9.7,16,0)
;;=POST-INIT CHECK POINTS^9.716^^INIT;0
;;^DD(9.7,16,21,0)
;;=^^1^1^2940503^
;;^DD(9.7,16,21,1,0)
;;=This contains all the check points needed for the Post-Init routine.
;;^DD(9.7,17,0)
;;=INSTALL COMPLETE TIME^D^^1;3^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
;;^DD(9.7,17,21,0)
;;=^^1^1^2940503^
;;^DD(9.7,17,21,1,0)
;;=This is the time the install finished.
;;^DD(9.7,17,"DT")
;;=2940111
;;^DD(9.7,18,0)
;;=GLOBALS^9.718^^GLO;0
;;^DD(9.7,18,21,0)
;;=^^2^2^2950109^
;;^DD(9.7,18,21,1,0)
;;=This multiple contains a list of globals that were installed by
;;^DD(9.7,18,21,2,0)
;;=this package.
;;^DD(9.7,20,0)
;;=MESSAGES^9.702^^MES;0
;;^DD(9.7,20,21,0)
;;=^^1^1^2940503^
;;^DD(9.7,20,21,1,0)
;;=This is where all messages about the install will be saved.
;;^DD(9.7,30,0)
;;=VOLUME SET^9.703^^VOL;0
;;^DD(9.7,30,21,0)
;;=^^2^2^2941017^^^^
;;^DD(9.7,30,21,1,0)
;;=This multiple contains the Volumes Sets that will be updated with the new
;;^DD(9.7,30,21,2,0)
;;=routines and compiled cross references, print and input templates.
;;^DD(9.7,30,"DT")
;;=2941017
;;^DD(9.7,40,0)
;;=ROUTINES^9.704A^^RTN;0
;;^DD(9.7,40,21,0)
;;=^^3^3^2941128^^
;;^DD(9.7,40,21,1,0)
;;=This multiple contains a list of all Routines that were installed for
;;^DD(9.7,40,21,2,0)
;;=this package. It also includes routines that were generated during the
;;^DD(9.7,40,21,3,0)
;;=install. The Routines came from calls to DIEZ, DIPZ, and DIKZ.
;;^DD(9.7,40,"DT")
;;=2941128
;;^DD(9.7,50,0)
;;=INSTALL ANSWERS^9.701^^QUES;0
;;^DD(9.7,50,21,0)
;;=^^1^1^2940503^
;;^DD(9.7,50,21,1,0)
;;=This multiple contains the answers to all the install Questions.
;;^DD(9.701,0)
;;=INSTALL ANSWERS SUB-FIELD^^3^4
;;^DD(9.701,0,"DT")
;;=2931201
;;^DD(9.701,0,"IX","B",9.701,.01)
;;=
;;^DD(9.701,0,"NM","INSTALL ANSWERS")
;;=
;;^DD(9.701,0,"UP")
;;=9.7
;;^DD(9.701,.01,0)
;;=NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X
;;^DD(9.701,.01,1,0)
;;=^.1
;;^DD(9.701,.01,1,1,0)
;;=9.701^B
;;^DD(9.701,.01,1,1,1)
;;=S ^XPD(9.7,DA(1),"QUES","B",$E(X,1,30),DA)=""
;;^DD(9.701,.01,1,1,2)
;;=K ^XPD(9.7,DA(1),"QUES","B",$E(X,1,30),DA)
;;^DD(9.701,.01,3)
;;=Answer must be 3-30 characters in length.
;;^DD(9.701,.01,21,0)
;;=^^1^1^2940503^
;;^DD(9.701,.01,21,1,0)
;;=This is the subscript to the install question.
;;^DD(9.701,.01,"DT")
;;=2931122
;;^DD(9.701,1,0)
;;=PROMPT^F^^A;E1,240^K:$L(X)>240!($L(X)<1) X
;;^DD(9.701,1,3)
;;=Answer must be 1-240 characters in length.
;;^DD(9.701,1,21,0)
;;=^^2^2^2940503^^
;;^DD(9.701,1,21,1,0)
;;=This is the DIR(A) variable that was used to prompt the user for the
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00B 4996 printed Sep 23, 2025@19:39:57 Page 2
XPDIN00B ; ; 03-JUL-1995
+1 ;;8.0;KERNEL;;JUL 10, 1995
+2 if 'DIFQ(9.7)
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.7,7,3)
+2 ;;=Answer must be 3-30 characters in length.
+3 ;;^DD(9.7,7,21,0)
+4 ;;=^^2^2^2940426^^
+5 ;;^DD(9.7,7,21,1,0)
+6 ;;=This is the SETNAME that will be used to disable options and protocols during
+7 ;;^DD(9.7,7,21,2,0)
+8 ;;=the installation of this package.
+9 ;;^DD(9.7,7,"DT")
+10 ;;=2940426
+11 ;;^DD(9.7,8,0)
+12 ;;=DISABLE OPTION DELAY^NJ2,0^^0;10^K:+X'=X!(X>60)!(X<0)!(X?.E1"."1N.N) X
+13 ;;^DD(9.7,8,3)
+14 ;;=Enter the number of minutes to delay the install, between 0 and 60.
+15 ;;^DD(9.7,8,21,0)
+16 ;;=^^2^2^2941103^
+17 ;;^DD(9.7,8,21,1,0)
+18 ;;=Enter the number of minutes to wait after the Options and Protocols have
+19 ;;^DD(9.7,8,21,2,0)
+20 ;;=been disabled, but before the Routines have been installed.
+21 ;;^DD(9.7,8,"DT")
+22 ;;=2941103
+23 ;;^DD(9.7,9,0)
+24 ;;=INSTALLED BY^P200'^VA(200,^0;11^Q
+25 ;;^DD(9.7,9,21,0)
+26 ;;=^^1^1^2950213^
+27 ;;^DD(9.7,9,21,1,0)
+28 ;;=This is the person who installed this package.
+29 ;;^DD(9.7,9,"DT")
+30 ;;=2950213
+31 ;;^DD(9.7,11,0)
+32 ;;=INSTALL START TIME^D^^1;1^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+33 ;;^DD(9.7,11,21,0)
+34 ;;=^^1^1^2940415^
+35 ;;^DD(9.7,11,21,1,0)
+36 ;;=This is the time the install started.
+37 ;;^DD(9.7,11,"DT")
+38 ;;=2931117
+39 ;;^DD(9.7,12,0)
+40 ;;=ROUTINE INSTALL TIME^D^^1;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+41 ;;^DD(9.7,12,21,0)
+42 ;;=^^1^1^2940415^
+43 ;;^DD(9.7,12,21,1,0)
+44 ;;=This is the routine install completed time.
+45 ;;^DD(9.7,12,"DT")
+46 ;;=2931118
+47 ;;^DD(9.7,13,0)
+48 ;;=PRE-INIT CHECK POINTS^9.713^^INI;0
+49 ;;^DD(9.7,13,21,0)
+50 ;;=^^1^1^2940503^^
+51 ;;^DD(9.7,13,21,1,0)
+52 ;;=This contains all the check points needed for the Pre-Init routine.
+53 ;;^DD(9.7,14,0)
+54 ;;=FILE^9.714P^^4;0
+55 ;;^DD(9.7,14,21,0)
+56 ;;=^^1^1^2940415^
+57 ;;^DD(9.7,14,21,1,0)
+58 ;;=This contains the VA Fileman files that were installed by this package.
+59 ;;^DD(9.7,14,"DT")
+60 ;;=2931118
+61 ;;^DD(9.7,15,0)
+62 ;;=BUILD COMPONENTS^9.715P^^KRN;0
+63 ;;^DD(9.7,15,21,0)
+64 ;;=^^1^1^2940415^
+65 ;;^DD(9.7,15,21,1,0)
+66 ;;=This contains a list of the components of this package.
+67 ;;^DD(9.7,15,"DT")
+68 ;;=2940525
+69 ;;^DD(9.7,16,0)
+70 ;;=POST-INIT CHECK POINTS^9.716^^INIT;0
+71 ;;^DD(9.7,16,21,0)
+72 ;;=^^1^1^2940503^
+73 ;;^DD(9.7,16,21,1,0)
+74 ;;=This contains all the check points needed for the Post-Init routine.
+75 ;;^DD(9.7,17,0)
+76 ;;=INSTALL COMPLETE TIME^D^^1;3^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
+77 ;;^DD(9.7,17,21,0)
+78 ;;=^^1^1^2940503^
+79 ;;^DD(9.7,17,21,1,0)
+80 ;;=This is the time the install finished.
+81 ;;^DD(9.7,17,"DT")
+82 ;;=2940111
+83 ;;^DD(9.7,18,0)
+84 ;;=GLOBALS^9.718^^GLO;0
+85 ;;^DD(9.7,18,21,0)
+86 ;;=^^2^2^2950109^
+87 ;;^DD(9.7,18,21,1,0)
+88 ;;=This multiple contains a list of globals that were installed by
+89 ;;^DD(9.7,18,21,2,0)
+90 ;;=this package.
+91 ;;^DD(9.7,20,0)
+92 ;;=MESSAGES^9.702^^MES;0
+93 ;;^DD(9.7,20,21,0)
+94 ;;=^^1^1^2940503^
+95 ;;^DD(9.7,20,21,1,0)
+96 ;;=This is where all messages about the install will be saved.
+97 ;;^DD(9.7,30,0)
+98 ;;=VOLUME SET^9.703^^VOL;0
+99 ;;^DD(9.7,30,21,0)
+100 ;;=^^2^2^2941017^^^^
+101 ;;^DD(9.7,30,21,1,0)
+102 ;;=This multiple contains the Volumes Sets that will be updated with the new
+103 ;;^DD(9.7,30,21,2,0)
+104 ;;=routines and compiled cross references, print and input templates.
+105 ;;^DD(9.7,30,"DT")
+106 ;;=2941017
+107 ;;^DD(9.7,40,0)
+108 ;;=ROUTINES^9.704A^^RTN;0
+109 ;;^DD(9.7,40,21,0)
+110 ;;=^^3^3^2941128^^
+111 ;;^DD(9.7,40,21,1,0)
+112 ;;=This multiple contains a list of all Routines that were installed for
+113 ;;^DD(9.7,40,21,2,0)
+114 ;;=this package. It also includes routines that were generated during the
+115 ;;^DD(9.7,40,21,3,0)
+116 ;;=install. The Routines came from calls to DIEZ, DIPZ, and DIKZ.
+117 ;;^DD(9.7,40,"DT")
+118 ;;=2941128
+119 ;;^DD(9.7,50,0)
+120 ;;=INSTALL ANSWERS^9.701^^QUES;0
+121 ;;^DD(9.7,50,21,0)
+122 ;;=^^1^1^2940503^
+123 ;;^DD(9.7,50,21,1,0)
+124 ;;=This multiple contains the answers to all the install Questions.
+125 ;;^DD(9.701,0)
+126 ;;=INSTALL ANSWERS SUB-FIELD^^3^4
+127 ;;^DD(9.701,0,"DT")
+128 ;;=2931201
+129 ;;^DD(9.701,0,"IX","B",9.701,.01)
+130 ;;=
+131 ;;^DD(9.701,0,"NM","INSTALL ANSWERS")
+132 ;;=
+133 ;;^DD(9.701,0,"UP")
+134 ;;=9.7
+135 ;;^DD(9.701,.01,0)
+136 ;;=NAME^MF^^0;1^K:$L(X)>30!($L(X)<3) X
+137 ;;^DD(9.701,.01,1,0)
+138 ;;=^.1
+139 ;;^DD(9.701,.01,1,1,0)
+140 ;;=9.701^B
+141 ;;^DD(9.701,.01,1,1,1)
+142 ;;=S ^XPD(9.7,DA(1),"QUES","B",$E(X,1,30),DA)=""
+143 ;;^DD(9.701,.01,1,1,2)
+144 ;;=K ^XPD(9.7,DA(1),"QUES","B",$E(X,1,30),DA)
+145 ;;^DD(9.701,.01,3)
+146 ;;=Answer must be 3-30 characters in length.
+147 ;;^DD(9.701,.01,21,0)
+148 ;;=^^1^1^2940503^
+149 ;;^DD(9.701,.01,21,1,0)
+150 ;;=This is the subscript to the install question.
+151 ;;^DD(9.701,.01,"DT")
+152 ;;=2931122
+153 ;;^DD(9.701,1,0)
+154 ;;=PROMPT^F^^A;E1,240^K:$L(X)>240!($L(X)<1) X
+155 ;;^DD(9.701,1,3)
+156 ;;=Answer must be 1-240 characters in length.
+157 ;;^DD(9.701,1,21,0)
+158 ;;=^^2^2^2940503^^
+159 ;;^DD(9.701,1,21,1,0)
+160 ;;=This is the DIR(A) variable that was used to prompt the user for the
