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

XPDIN00C.m

Go to the documentation of this file. 
  1. XPDIN00C ; ; 03-JUL-1995
  1.  ;;8.0;KERNEL;;JUL 10, 1995
  1.  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
  1. Q Q
  1.  ;;^DD(9.701,1,21,2,0)
  1.  ;;=Install Question.
  1.  ;;^DD(9.701,1,"DT")
  1.  ;;=2931201
  1.  ;;^DD(9.701,2,0)
  1.  ;;=EXTERNAL ANSWER^F^^B;E1,200^K:$L(X)>200!($L(X)<1) X
  1.  ;;^DD(9.701,2,3)
  1.  ;;=Answer must be 1-200 characters in length.
  1.  ;;^DD(9.701,2,21,0)
  1.  ;;=^^1^1^2940503^^
  1.  ;;^DD(9.701,2,21,1,0)
  1.  ;;=This is the external format of the Install Question answer.
  1.  ;;^DD(9.701,2,"DT")
  1.  ;;=2931201
  1.  ;;^DD(9.701,3,0)
  1.  ;;=ANSWER^F^^1;E1,200^K:$L(X)>200!($L(X)<1) X
  1.  ;;^DD(9.701,3,3)
  1.  ;;=Answer must be 1-200 characters in length.
  1.  ;;^DD(9.701,3,21,0)
  1.  ;;=^^1^1^2940503^
  1.  ;;^DD(9.701,3,21,1,0)
  1.  ;;=This is the internal format of the Install Question answer.
  1.  ;;^DD(9.701,3,"DT")
  1.  ;;=2931201
  1.  ;;^DD(9.702,0)
  1.  ;;=MESSAGES SUB-FIELD^^.01^1
  1.  ;;^DD(9.702,0,"DT")
  1.  ;;=2931129
  1.  ;;^DD(9.702,0,"NM","MESSAGES")
  1.  ;;=
  1.  ;;^DD(9.702,0,"UP")
  1.  ;;=9.7
  1.  ;;^DD(9.702,.01,0)
  1.  ;;=MESSAGES^WL^^0;1^Q
  1.  ;;^DD(9.702,.01,"DT")
  1.  ;;=2931129
  1.  ;;^DD(9.703,0)
  1.  ;;=VOLUME SET SUB-FIELD^^4^5
  1.  ;;^DD(9.703,0,"DT")
  1.  ;;=2941014
  1.  ;;^DD(9.703,0,"IX","B",9.703,.01)
  1.  ;;=
  1.  ;;^DD(9.703,0,"NM","VOLUME SET")
  1.  ;;=
  1.  ;;^DD(9.703,0,"UP")
  1.  ;;=9.7
  1.  ;;^DD(9.703,.01,0)
  1.  ;;=VOLUME SET^MFX^^0;1^K:$L(X)>30!($L(X)<3) X D VOLE^XPDET(.X)
  1.  ;;^DD(9.703,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.703,.01,1,1,0)
  1.  ;;=9.703^B
  1.  ;;^DD(9.703,.01,1,1,1)
  1.  ;;=S ^XPD(9.7,DA(1),"VOL","B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.703,.01,1,1,2)
  1.  ;;=K ^XPD(9.7,DA(1),"VOL","B",$E(X,1,30),DA)
  1.  ;;^DD(9.703,.01,3)
  1.  ;;=Enter a Compute Server or Print Server type VOLUME SET
  1.  ;;^DD(9.703,.01,4)
  1.  ;;=D VOLH^XPDET
  1.  ;;^DD(9.703,.01,21,0)
  1.  ;;=^^3^3^2941017^^^^
  1.  ;;^DD(9.703,.01,21,1,0)
  1.  ;;=Enter the name of the VOLUME SET that you want updated when this package is
  1.  ;;^DD(9.703,.01,21,2,0)
  1.  ;;=installed. The VOLUME SET must be a Compute or Print Server, as defined in
  1.  ;;^DD(9.703,.01,21,3,0)
  1.  ;;=the VOLUME SET file, #14.5.
  1.  ;;^DD(9.703,.01,"DT")
  1.  ;;=2941017
  1.  ;;^DD(9.703,1,0)
  1.  ;;=COMPLETED TIME^D^^0;2^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(9.703,1,21,0)
  1.  ;;=^^1^1^2941014^
  1.  ;;^DD(9.703,1,21,1,0)
  1.  ;;=This is the time the update to the VOLUME SET was completed. 
  1.  ;;^DD(9.703,1,"DT")
  1.  ;;=2941014
  1.  ;;^DD(9.703,2,0)
  1.  ;;=START TIME^D^^0;3^S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  1.  ;;^DD(9.703,2,3)
  1.  ;;=
  1.  ;;^DD(9.703,2,21,0)
  1.  ;;=^^1^1^2941014^
  1.  ;;^DD(9.703,2,21,1,0)
  1.  ;;=This is the time the update to the VOLUME SET was started.
  1.  ;;^DD(9.703,2,"DT")
  1.  ;;=2941014
  1.  ;;^DD(9.703,3,0)
  1.  ;;=QUEUED TASK NUMBER^NJ8,0^^0;4^K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X
  1.  ;;^DD(9.703,3,3)
  1.  ;;=Type a Number between 1 and 99999999, 0 Decimal Digits
  1.  ;;^DD(9.703,3,21,0)
  1.  ;;=^^1^1^2941014^
  1.  ;;^DD(9.703,3,21,1,0)
  1.  ;;=This is the Task number for the job that is updating the VOLUME SET.
  1.  ;;^DD(9.703,3,"DT")
  1.  ;;=2941014
  1.  ;;^DD(9.703,4,0)
  1.  ;;=LAST UPDATE^F^^1;1^K:$L(X)>30!($L(X)<3) X
  1.  ;;^DD(9.703,4,3)
  1.  ;;=Must be $H format
  1.  ;;^DD(9.703,4,21,0)
  1.  ;;=^^2^2^2941014^
  1.  ;;^DD(9.703,4,21,1,0)
  1.  ;;=This is the $H value from the job that is updating the VOLUME SET. It should
  1.  ;;^DD(9.703,4,21,2,0)
  1.  ;;=be updated every 60 seconds.
  1.  ;;^DD(9.703,4,"DT")
  1.  ;;=2941014
  1.  ;;^DD(9.704,0)
  1.  ;;=ROUTINES SUB-FIELD^^.01^1
  1.  ;;^DD(9.704,0,"DT")
  1.  ;;=2950314
  1.  ;;^DD(9.704,0,"IX","B",9.704,.01)
  1.  ;;=
  1.  ;;^DD(9.704,0,"NM","ROUTINES")
  1.  ;;=
  1.  ;;^DD(9.704,0,"UP")
  1.  ;;=9.7
  1.  ;;^DD(9.704,.01,0)
  1.  ;;=ROUTINES^MF^^0;1^K:$L(X)>8!($L(X)<3) X
  1.  ;;^DD(9.704,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.704,.01,1,1,0)
  1.  ;;=9.704^B
  1.  ;;^DD(9.704,.01,1,1,1)
  1.  ;;=S ^XPD(9.7,DA(1),"RTN","B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.704,.01,1,1,2)
  1.  ;;=K ^XPD(9.7,DA(1),"RTN","B",$E(X,1,30),DA)
  1.  ;;^DD(9.704,.01,3)
  1.  ;;=Answer must be 3-8 characters in length.
  1.  ;;^DD(9.704,.01,21,0)
  1.  ;;=^^1^1^2941128^^
  1.  ;;^DD(9.704,.01,21,1,0)
  1.  ;;=This is the name of a Routine that is part of this Package.
  1.  ;;^DD(9.704,.01,"DT")
  1.  ;;=2941128
  1.  ;;^DD(9.713,0)
  1.  ;;=PRE-INIT CHECK POINTS SUB-FIELD^^3^4
  1.  ;;^DD(9.713,0,"DT")
  1.  ;;=2940710
  1.  ;;^DD(9.713,0,"IX","B",9.713,.01)
  1.  ;;=
  1.  ;;^DD(9.713,0,"NM","PRE-INIT CHECK POINTS")
  1.  ;;=
  1.  ;;^DD(9.713,0,"UP")
  1.  ;;=9.7
  1.  ;;^DD(9.713,.01,0)
  1.  ;;=PRE-INIT CHECK POINTS^MF^^0;1^K:$L(X)>30!($L(X)<3)!'(X?1A.E) X
  1.  ;;^DD(9.713,.01,1,0)
  1.  ;;=^.1
  1.  ;;^DD(9.713,.01,1,1,0)
  1.  ;;=9.713^B
  1.  ;;^DD(9.713,.01,1,1,1)
  1.  ;;=S ^XPD(9.7,DA(1),"INI","B",$E(X,1,30),DA)=""
  1.  ;;^DD(9.713,.01,1,1,2)
  1.  ;;=K ^XPD(9.7,DA(1),"INI","B",$E(X,1,30),DA)
  1.  ;;^DD(9.713,.01,3)
  1.  ;;=Answer must be 3-30 characters in length.
  1.  ;;^DD(9.713,.01,21,0)
  1.  ;;=^^3^3^2931119^
  1.  ;;^DD(9.713,.01,21,1,0)
  1.  ;;=Enter the name of a Check Point that will be used by the Pre-Init routine.
  1.  ;;^DD(9.713,.01,21,2,0)
  1.  ;;=The Check Point "COMPLETED" will be created by the Install process and
  1.  ;;^DD(9.713,.01,21,3,0)
  1.  ;;=updated when the Pre-Init routine is finished.
  1.  ;;^DD(9.713,.01,"DT")
  1.  ;;=2940708