GMPLI011 ; ; 25-AUG-1994
;;2.0;Problem List;;Aug 25, 1994
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,"PKG",219,4,15,0)
;;=125.11
;;^UTILITY(U,$J,"PKG",219,4,15,222)
;;=y^y^^y^^^n
;;^UTILITY(U,$J,"PKG",219,4,16,0)
;;=125.12
;;^UTILITY(U,$J,"PKG",219,4,16,222)
;;=y^y^^y^^^n
;;^UTILITY(U,$J,"PKG",219,4,"B",49,7)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",125,13)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",125.1,14)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",125.11,15)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",125.12,16)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",125.8,3)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",125.99,6)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",200,8)
;;=
;;^UTILITY(U,$J,"PKG",219,4,"B",9000011,4)
;;=
;;^UTILITY(U,$J,"PKG",219,5)
;;=SLC
;;^UTILITY(U,$J,"PKG",219,7)
;;=SLC^^I
;;^UTILITY(U,$J,"PKG",219,9)
;;=528
;;^UTILITY(U,$J,"PKG",219,11)
;;=125^9000011
;;^UTILITY(U,$J,"PKG",219,22,0)
;;=^9.49I^14^14
;;^UTILITY(U,$J,"PKG",219,22,1,0)
;;=1.0D1^2930413^2921104
;;^UTILITY(U,$J,"PKG",219,22,1,"I",0)
;;=^^15^15^2930413^^^
;;^UTILITY(U,$J,"PKG",219,22,1,"I",1,0)
;;=To install this package, first D ^GMPJINIT in programmer mode at the
;;^UTILITY(U,$J,"PKG",219,22,1,"I",2,0)
;;=prompt; this will set-up the file DD's for the Clinical Term file.
;;^UTILITY(U,$J,"PKG",219,22,1,"I",3,0)
;;=The post-init of this segment of the package will also install the
;;^UTILITY(U,$J,"PKG",219,22,1,"I",4,0)
;;=Multi-Term Lookup Utility, which is used to facilitate the search
;;^UTILITY(U,$J,"PKG",219,22,1,"I",5,0)
;;=for entries in the CT file; you must follow the instructions given
;;^UTILITY(U,$J,"PKG",219,22,1,"I",6,0)
;;=for the MTLU to define the CT (#758) as an accessible file.
;;^UTILITY(U,$J,"PKG",219,22,1,"I",7,0)
;;=
;;^UTILITY(U,$J,"PKG",219,22,1,"I",8,0)
;;=Second, D ^GMPINIT from the programmer prompt to install the Problem
;;^UTILITY(U,$J,"PKG",219,22,1,"I",9,0)
;;=List application. The post-init of this segment of the package will
;;^UTILITY(U,$J,"PKG",219,22,1,"I",10,0)
;;=also install the protocols and list templates required by this
;;^UTILITY(U,$J,"PKG",219,22,1,"I",11,0)
;;=application. If the List Manager utility is not present, it will
;;^UTILITY(U,$J,"PKG",219,22,1,"I",12,0)
;;=also be installed at this time.
;;^UTILITY(U,$J,"PKG",219,22,1,"I",13,0)
;;=
;;^UTILITY(U,$J,"PKG",219,22,1,"I",14,0)
;;=You must also load the data to populate the Clinical Term file from
;;^UTILITY(U,$J,"PKG",219,22,1,"I",15,0)
;;=a separate VMS file containing the GMP global.
;;^UTILITY(U,$J,"PKG",219,22,2,0)
;;=1.0D2^2930528
;;^UTILITY(U,$J,"PKG",219,22,3,0)
;;=1.0T1^2930611^2930621
;;^UTILITY(U,$J,"PKG",219,22,4,0)
;;=1.0T2^2930708
;;^UTILITY(U,$J,"PKG",219,22,5,0)
;;=1.0T3^2930714
;;^UTILITY(U,$J,"PKG",219,22,6,0)
;;=1.0T4^2930826^2930831
;;^UTILITY(U,$J,"PKG",219,22,7,0)
;;=2.0T1^2930910
;;^UTILITY(U,$J,"PKG",219,22,8,0)
;;=2.0T3^2931013
;;^UTILITY(U,$J,"PKG",219,22,9,0)
;;=2.0T4^2931129
;;^UTILITY(U,$J,"PKG",219,22,10,0)
;;=2.0T5^2931215
;;^UTILITY(U,$J,"PKG",219,22,11,0)
;;=2.0V1^2940208^2940126
;;^UTILITY(U,$J,"PKG",219,22,12,0)
;;=2.0V2^2940418
;;^UTILITY(U,$J,"PKG",219,22,13,0)
;;=2.0V3^2940606
;;^UTILITY(U,$J,"PKG",219,22,14,0)
;;=2.0^2940825
;;^UTILITY(U,$J,"PKG",219,22,"B","1.0D1",1)
;;=
;;^UTILITY(U,$J,"PKG",219,22,"B","1.0D2",2)
;;=
;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T1",3)
;;=
;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T2",4)
;;=
;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T3",5)
;;=
;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T4",6)
;;=
;;^UTILITY(U,$J,"PKG",219,22,"B","2.0",14)
;;=
;;^UTILITY(U,$J,"PKG",219,22,"B","2.0T1",7)
;;=
GMPLI011 ; ; 25-AUG-1994
+1 ;;2.0;Problem List;;Aug 25, 1994
+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,"PKG",219,4,15,0)
+2 ;;=125.11
+3 ;;^UTILITY(U,$J,"PKG",219,4,15,222)
+4 ;;=y^y^^y^^^n
+5 ;;^UTILITY(U,$J,"PKG",219,4,16,0)
+6 ;;=125.12
+7 ;;^UTILITY(U,$J,"PKG",219,4,16,222)
+8 ;;=y^y^^y^^^n
+9 ;;^UTILITY(U,$J,"PKG",219,4,"B",49,7)
+10 ;;=
+11 ;;^UTILITY(U,$J,"PKG",219,4,"B",125,13)
+12 ;;=
+13 ;;^UTILITY(U,$J,"PKG",219,4,"B",125.1,14)
+14 ;;=
+15 ;;^UTILITY(U,$J,"PKG",219,4,"B",125.11,15)
+16 ;;=
+17 ;;^UTILITY(U,$J,"PKG",219,4,"B",125.12,16)
+18 ;;=
+19 ;;^UTILITY(U,$J,"PKG",219,4,"B",125.8,3)
+20 ;;=
+21 ;;^UTILITY(U,$J,"PKG",219,4,"B",125.99,6)
+22 ;;=
+23 ;;^UTILITY(U,$J,"PKG",219,4,"B",200,8)
+24 ;;=
+25 ;;^UTILITY(U,$J,"PKG",219,4,"B",9000011,4)
+26 ;;=
+27 ;;^UTILITY(U,$J,"PKG",219,5)
+28 ;;=SLC
+29 ;;^UTILITY(U,$J,"PKG",219,7)
+30 ;;=SLC^^I
+31 ;;^UTILITY(U,$J,"PKG",219,9)
+32 ;;=528
+33 ;;^UTILITY(U,$J,"PKG",219,11)
+34 ;;=125^9000011
+35 ;;^UTILITY(U,$J,"PKG",219,22,0)
+36 ;;=^9.49I^14^14
+37 ;;^UTILITY(U,$J,"PKG",219,22,1,0)
+38 ;;=1.0D1^2930413^2921104
+39 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",0)
+40 ;;=^^15^15^2930413^^^
+41 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",1,0)
+42 ;;=To install this package, first D ^GMPJINIT in programmer mode at the
+43 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",2,0)
+44 ;;=prompt; this will set-up the file DD's for the Clinical Term file.
+45 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",3,0)
+46 ;;=The post-init of this segment of the package will also install the
+47 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",4,0)
+48 ;;=Multi-Term Lookup Utility, which is used to facilitate the search
+49 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",5,0)
+50 ;;=for entries in the CT file; you must follow the instructions given
+51 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",6,0)
+52 ;;=for the MTLU to define the CT (#758) as an accessible file.
+53 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",7,0)
+54 ;;=
+55 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",8,0)
+56 ;;=Second, D ^GMPINIT from the programmer prompt to install the Problem
+57 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",9,0)
+58 ;;=List application. The post-init of this segment of the package will
+59 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",10,0)
+60 ;;=also install the protocols and list templates required by this
+61 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",11,0)
+62 ;;=application. If the List Manager utility is not present, it will
+63 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",12,0)
+64 ;;=also be installed at this time.
+65 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",13,0)
+66 ;;=
+67 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",14,0)
+68 ;;=You must also load the data to populate the Clinical Term file from
+69 ;;^UTILITY(U,$J,"PKG",219,22,1,"I",15,0)
+70 ;;=a separate VMS file containing the GMP global.
+71 ;;^UTILITY(U,$J,"PKG",219,22,2,0)
+72 ;;=1.0D2^2930528
+73 ;;^UTILITY(U,$J,"PKG",219,22,3,0)
+74 ;;=1.0T1^2930611^2930621
+75 ;;^UTILITY(U,$J,"PKG",219,22,4,0)
+76 ;;=1.0T2^2930708
+77 ;;^UTILITY(U,$J,"PKG",219,22,5,0)
+78 ;;=1.0T3^2930714
+79 ;;^UTILITY(U,$J,"PKG",219,22,6,0)
+80 ;;=1.0T4^2930826^2930831
+81 ;;^UTILITY(U,$J,"PKG",219,22,7,0)
+82 ;;=2.0T1^2930910
+83 ;;^UTILITY(U,$J,"PKG",219,22,8,0)
+84 ;;=2.0T3^2931013
+85 ;;^UTILITY(U,$J,"PKG",219,22,9,0)
+86 ;;=2.0T4^2931129
+87 ;;^UTILITY(U,$J,"PKG",219,22,10,0)
+88 ;;=2.0T5^2931215
+89 ;;^UTILITY(U,$J,"PKG",219,22,11,0)
+90 ;;=2.0V1^2940208^2940126
+91 ;;^UTILITY(U,$J,"PKG",219,22,12,0)
+92 ;;=2.0V2^2940418
+93 ;;^UTILITY(U,$J,"PKG",219,22,13,0)
+94 ;;=2.0V3^2940606
+95 ;;^UTILITY(U,$J,"PKG",219,22,14,0)
+96 ;;=2.0^2940825
+97 ;;^UTILITY(U,$J,"PKG",219,22,"B","1.0D1",1)
+98 ;;=
+99 ;;^UTILITY(U,$J,"PKG",219,22,"B","1.0D2",2)
+100 ;;=
+101 ;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T1",3)
+102 ;;=
+103 ;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T2",4)
+104 ;;=
+105 ;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T3",5)
+106 ;;=
+107 ;;^UTILITY(U,$J,"PKG",219,22,"B","1.0T4",6)
+108 ;;=
+109 ;;^UTILITY(U,$J,"PKG",219,22,"B","2.0",14)
+110 ;;=
+111 ;;^UTILITY(U,$J,"PKG",219,22,"B","2.0T1",7)
+112 ;;=
