XPDIN00N ; ; 03-JUL-1995
;;8.0;KERNEL;;JUL 10, 1995
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
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","PT",9.6,1,8,51)
;;=
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,0,27)
;;=Edit a Build PAGE 1 OF 4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,1,0)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,5,21)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,7,9)
;;=Date Distributed:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,9,14)
;;=Description:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,11,0)
;;=Environment Check Routine:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,13,6)
;;=Pre-Install Routine:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,15,5)
;;=Post-Install Routine:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",2,0,27)
;;=Edit a Build PAGE 3 OF 4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",2,1,0)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",2,3,27)
;;=Build Components
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",4,0,27)
;;=Edit a Build PAGE 2 OF 4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",4,1,0)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",4,3,27)
;;=File List (Name or Number)
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,5,26)
;;= Affects Record Merge
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,7,4)
;;=File Affected:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,9,4)
;;=Name of Merge Routine:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,12,24)
;;=Record has Package Data
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,1,27)
;;= Install Questions
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,2,6)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,4,4)
;;=DIR(0):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,4,4,"A")
;;=1;6;U
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,6,4)
;;=DIR(A):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,7,2)
;;=DIR(A,#):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,9,4)
;;=DIR(B):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,11,4)
;;=DIR(?):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,12,2)
;;=DIR(?,#):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,13,3)
;;=DIR(??):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,15,4)
;;=M Code:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,4,26)
;;= DD Export Options
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,6,23)
;;=File:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,8,4)
;;=Send Full or Partial DD...:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,10,1)
;;=Update the Data Dictionary: Send Security Code:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,12,1)
;;=Screen to Determine DD Update
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,15,7)
;;=Data Comes With File...:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,4,27)
;;= Edit PACKAGE File
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,5,3)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,8,12)
;;=Primary Help Frame:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,10,3)
;;=Select Affects Record Merge:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,12,9)
;;=Alpha/Beta Testing...:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,3,28)
;;= Alpha/Beta Testing
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,5,10)
;;=Installation Message:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,7,3)
;;=Address for Usage Reporting:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,9,3)
;;=Package Namespace or Prefix:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",10,4,24)
;;= Exclude Namespace or Prefix
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",11,5,26)
;;= Data Dictionary Number
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",12,6,26)
;;= Field Number
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,5,29)
;;= Data Export Options
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,7,8)
;;=Site's Data:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,9,3)
;;=Resolve Pointers: May User Override Data Update:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,11,10)
;;=Data List:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,13,3)
;;=Screen to Select Data
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,0,27)
;;=Edit a Build PAGE 4 OF 4
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,1,0)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,3,27)
;;=Install Questions
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,14,4)
;;=Package File Link...:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,16,0)
;;=Track Package Nationally:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,1,26)
;;= Install Questions
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,2,5)
;;=Name:
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,4,3)
;;=DIR(0):
;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,4,3,"A")
;;=1;6;U
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXPDIN00N 4941 printed Dec 13, 2024@02:04:03 Page 2
XPDIN00N ; ; 03-JUL-1995
+1 ;;8.0;KERNEL;;JUL 10, 1995
+2 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 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","PT",9.6,1,8,51)
+2 ;;=
+3 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,0,27)
+4 ;;=Edit a Build PAGE 1 OF 4
+5 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,1,0)
+6 ;;=Name:
+7 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,5,21)
+8 ;;=Name:
+9 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,7,9)
+10 ;;=Date Distributed:
+11 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,9,14)
+12 ;;=Description:
+13 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,11,0)
+14 ;;=Environment Check Routine:
+15 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,13,6)
+16 ;;=Pre-Install Routine:
+17 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",1,15,5)
+18 ;;=Post-Install Routine:
+19 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",2,0,27)
+20 ;;=Edit a Build PAGE 3 OF 4
+21 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",2,1,0)
+22 ;;=Name:
+23 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",2,3,27)
+24 ;;=Build Components
+25 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",4,0,27)
+26 ;;=Edit a Build PAGE 2 OF 4
+27 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",4,1,0)
+28 ;;=Name:
+29 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",4,3,27)
+30 ;;=File List (Name or Number)
+31 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,5,26)
+32 ;;= Affects Record Merge
+33 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,7,4)
+34 ;;=File Affected:
+35 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,9,4)
+36 ;;=Name of Merge Routine:
+37 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",5,12,24)
+38 ;;=Record has Package Data
+39 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,1,27)
+40 ;;= Install Questions
+41 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,2,6)
+42 ;;=Name:
+43 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,4,4)
+44 ;;=DIR(0):
+45 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,4,4,"A")
+46 ;;=1;6;U
+47 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,6,4)
+48 ;;=DIR(A):
+49 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,7,2)
+50 ;;=DIR(A,#):
+51 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,9,4)
+52 ;;=DIR(B):
+53 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,11,4)
+54 ;;=DIR(?):
+55 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,12,2)
+56 ;;=DIR(?,#):
+57 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,13,3)
+58 ;;=DIR(??):
+59 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",6,15,4)
+60 ;;=M Code:
+61 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,4,26)
+62 ;;= DD Export Options
+63 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,6,23)
+64 ;;=File:
+65 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,8,4)
+66 ;;=Send Full or Partial DD...:
+67 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,10,1)
+68 ;;=Update the Data Dictionary: Send Security Code:
+69 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,12,1)
+70 ;;=Screen to Determine DD Update
+71 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",7,15,7)
+72 ;;=Data Comes With File...:
+73 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,4,27)
+74 ;;= Edit PACKAGE File
+75 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,5,3)
+76 ;;=Name:
+77 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,8,12)
+78 ;;=Primary Help Frame:
+79 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,10,3)
+80 ;;=Select Affects Record Merge:
+81 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",8,12,9)
+82 ;;=Alpha/Beta Testing...:
+83 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,3,28)
+84 ;;= Alpha/Beta Testing
+85 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,5,10)
+86 ;;=Installation Message:
+87 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,7,3)
+88 ;;=Address for Usage Reporting:
+89 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",9,9,3)
+90 ;;=Package Namespace or Prefix:
+91 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",10,4,24)
+92 ;;= Exclude Namespace or Prefix
+93 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",11,5,26)
+94 ;;= Data Dictionary Number
+95 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",12,6,26)
+96 ;;= Field Number
+97 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,5,29)
+98 ;;= Data Export Options
+99 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,7,8)
+100 ;;=Site's Data:
+101 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,9,3)
+102 ;;=Resolve Pointers: May User Override Data Update:
+103 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,11,10)
+104 ;;=Data List:
+105 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",13,13,3)
+106 ;;=Screen to Select Data
+107 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,0,27)
+108 ;;=Edit a Build PAGE 4 OF 4
+109 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,1,0)
+110 ;;=Name:
+111 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,3,27)
+112 ;;=Install Questions
+113 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,14,4)
+114 ;;=Package File Link...:
+115 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",14,16,0)
+116 ;;=Track Package Nationally:
+117 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,1,26)
+118 ;;= Install Questions
+119 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,2,5)
+120 ;;=Name:
+121 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,4,3)
+122 ;;=DIR(0):
+123 ;;^UTILITY(U,$J,"DIST(.403,",11,"AZ","X",15,4,3,"A")
+124 ;;=1;6;U
