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

XPDIN00H.m

Go to the documentation of this file.
  1. XPDIN00H ; ; 03-JUL-1995
  1. ;;8.0;KERNEL;;JUL 10, 1995
  1. 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. ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,"AC",1,50)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,5,40,"B",50,50)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,0)
  1. ;;=6^^1,1^^^1^17,79
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,1)
  1. ;;=Install Questions^4,2,2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,0)
  1. ;;=^.4032PI^52^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,52,0)
  1. ;;=XPD EDIT BUILD7^1^2,2^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"AC",1,52)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,6,40,"B",52,52)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,0)
  1. ;;=7^^5,1^^^1^17,78
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,1)
  1. ;;=Entries^
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,0)
  1. ;;=^.4032PI^49^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,49,0)
  1. ;;=XPD EDIT BUILD4^2^1,1^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"AC",2,49)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,7,40,"B",49,49)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,0)
  1. ;;=8^^5,2^1^2^1^15,78
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,1)
  1. ;;=Package file
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,11)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,0)
  1. ;;=^.4032PI^67^3
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,0)
  1. ;;=XPD EDIT BUILD6^2^3,2^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,51,1)
  1. ;;=1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,54,0)
  1. ;;=XPD EDIT BUILD8^3^8,2^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,67,0)
  1. ;;=XPD EDIT BUILD60^4^1,2^d
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",2,51)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",3,54)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"AC",4,67)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",51,51)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",54,54)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,8,40,"B",67,67)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,0)
  1. ;;=9^^4,3^^^1^16,77
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,1)
  1. ;;=Page 9
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,12)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,0)
  1. ;;=^.4032PI^84^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,55,0)
  1. ;;=XPD EDIT BUILD9^1^1,2^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,0)
  1. ;;=XPD EDIT BUILD9A^2^8,2^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,84,2)
  1. ;;=4
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",1,55)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"AC",2,84)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",55,55)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,9,40,"B",84,84)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,0)
  1. ;;=10^^5,4^^^1^9,76
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,1)
  1. ;;=A/B namespace^4,1,9
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,11)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,12)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,0)
  1. ;;=^.4032PI^85^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,56,0)
  1. ;;=XPD EDIT BUILD10^1^1,3^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,0)
  1. ;;=XPD EDIT BUILD10A^2^2,2^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,85,2)
  1. ;;=2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",1,56)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"AC",2,85)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",56,56)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,10,40,"B",85,85)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,0)
  1. ;;=11^^6,2^^^1^16,77
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,1)
  1. ;;=Sub DD
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,0)
  1. ;;=^.4032PI^62^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,0)
  1. ;;=XPD EDIT BUILD42^1^2,3^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,60,2)
  1. ;;=6^!IEN^n^^
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,62,0)
  1. ;;=XPD EDIT BUILD44^2^1,3^d
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",1,60)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"AC",2,62)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",60,60)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,11,40,"B",62,62)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,0)
  1. ;;=12^^7,3^^^1^15,76
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,1)
  1. ;;=Sub Field
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,0)
  1. ;;=^.4032PI^63^2
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,0)
  1. ;;=XPD EDIT BUILD43^1^2,3^e
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,61,2)
  1. ;;=6^!IEN^n
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,63,0)
  1. ;;=XPD EDIT BUILD45^2^1,2^d
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",1,61)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"AC",2,63)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",61,61)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,12,40,"B",63,63)
  1. ;;=
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,0)
  1. ;;=13^^6,2^^^1^16,77
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,1)
  1. ;;=Page 13
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,0)
  1. ;;=^.4032PI^64^1
  1. ;;^UTILITY(U,$J,"DIST(.403,",11,40,13,40,64,0)
  1. ;;=XPD EDIT BUILD46^1^1,1^e