GMPLI010 ; ; 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,2,"B","GMPLDISP",3)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDIT",5)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT1",6)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT2",7)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT3",18)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT4",25)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLENFM",15)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLHIST",19)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLHS",20)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLHSPL",21)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMENU",30)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMGR",9)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMGR1",10)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMGR2",36)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPREF",24)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPRF0",39)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPRF1",28)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPRNT",13)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLRPTR",38)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLRPTS",26)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLSAVE",11)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLUTL",22)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLUTL1",40)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLX",12)
;;=
;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLX1",27)
;;=
;;^UTILITY(U,$J,"PKG",219,3,0)
;;=^9.43^3^2
;;^UTILITY(U,$J,"PKG",219,3,1,0)
;;=AUPNPROB
;;^UTILITY(U,$J,"PKG",219,3,1,4,0)
;;=^^4^4^2940527^^^^
;;^UTILITY(U,$J,"PKG",219,3,1,4,1,0)
;;=Originally exported by the Indian Health Service (IHS) as part of the
;;^UTILITY(U,$J,"PKG",219,3,1,4,2,0)
;;=Patient Care Component (PCC), this global contains the Problem File
;;^UTILITY(U,$J,"PKG",219,3,1,4,3,0)
;;=#9000011; all of the patient problem data making up the problem list
;;^UTILITY(U,$J,"PKG",219,3,1,4,4,0)
;;=is stored here.
;;^UTILITY(U,$J,"PKG",219,3,1,5)
;;=
;;^UTILITY(U,$J,"PKG",219,3,3,0)
;;=GMPL
;;^UTILITY(U,$J,"PKG",219,3,3,4,0)
;;=^^2^2^2940825^^^^
;;^UTILITY(U,$J,"PKG",219,3,3,4,1,0)
;;=This global contains files in the 125 numberspace that support the
;;^UTILITY(U,$J,"PKG",219,3,3,4,2,0)
;;=Problem List application.
;;^UTILITY(U,$J,"PKG",219,3,"B","AUPNPROB",1)
;;=
;;^UTILITY(U,$J,"PKG",219,3,"B","GMPL",3)
;;=
;;^UTILITY(U,$J,"PKG",219,4,0)
;;=^9.44PA^16^9
;;^UTILITY(U,$J,"PKG",219,4,3,0)
;;=125.8
;;^UTILITY(U,$J,"PKG",219,4,3,222)
;;=y^y^^y^^^n
;;^UTILITY(U,$J,"PKG",219,4,4,0)
;;=9000011
;;^UTILITY(U,$J,"PKG",219,4,4,222)
;;=y^y^^y^^^n
;;^UTILITY(U,$J,"PKG",219,4,6,0)
;;=125.99
;;^UTILITY(U,$J,"PKG",219,4,6,222)
;;=y^y^^y^^^y^m^y
;;^UTILITY(U,$J,"PKG",219,4,7,0)
;;=49
;;^UTILITY(U,$J,"PKG",219,4,7,1,0)
;;=^9.45A^2^2
;;^UTILITY(U,$J,"PKG",219,4,7,1,1,0)
;;=PARENT SERVICE
;;^UTILITY(U,$J,"PKG",219,4,7,1,2,0)
;;=TYPE OF SERVICE
;;^UTILITY(U,$J,"PKG",219,4,7,1,"B","PARENT SERVICE",1)
;;=
;;^UTILITY(U,$J,"PKG",219,4,7,1,"B","TYPE OF SERVICE",2)
;;=
;;^UTILITY(U,$J,"PKG",219,4,7,222)
;;=y^^^y^^^n
;;^UTILITY(U,$J,"PKG",219,4,8,0)
;;=200
;;^UTILITY(U,$J,"PKG",219,4,8,1,0)
;;=^9.45A^5^2
;;^UTILITY(U,$J,"PKG",219,4,8,1,1,0)
;;=PROBLEM LIST PRIMARY VIEW
;;^UTILITY(U,$J,"PKG",219,4,8,1,5,0)
;;=PROBLEM SELECTION LIST
;;^UTILITY(U,$J,"PKG",219,4,8,1,"B","PROBLEM LIST PRIMARY VIEW",1)
;;=
;;^UTILITY(U,$J,"PKG",219,4,8,1,"B","PROBLEM SELECTION LIST",5)
;;=
;;^UTILITY(U,$J,"PKG",219,4,8,222)
;;=y^^^y^^^n
;;^UTILITY(U,$J,"PKG",219,4,13,0)
;;=125
;;^UTILITY(U,$J,"PKG",219,4,13,222)
;;=y^y^^y^^^n
;;^UTILITY(U,$J,"PKG",219,4,14,0)
;;=125.1
;;^UTILITY(U,$J,"PKG",219,4,14,222)
;;=y^y^^y^^^n
GMPLI010 ; ; 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,2,"B","GMPLDISP",3)
+2 ;;=
+3 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDIT",5)
+4 ;;=
+5 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT1",6)
+6 ;;=
+7 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT2",7)
+8 ;;=
+9 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT3",18)
+10 ;;=
+11 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLEDT4",25)
+12 ;;=
+13 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLENFM",15)
+14 ;;=
+15 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLHIST",19)
+16 ;;=
+17 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLHS",20)
+18 ;;=
+19 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLHSPL",21)
+20 ;;=
+21 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMENU",30)
+22 ;;=
+23 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMGR",9)
+24 ;;=
+25 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMGR1",10)
+26 ;;=
+27 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLMGR2",36)
+28 ;;=
+29 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPREF",24)
+30 ;;=
+31 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPRF0",39)
+32 ;;=
+33 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPRF1",28)
+34 ;;=
+35 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLPRNT",13)
+36 ;;=
+37 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLRPTR",38)
+38 ;;=
+39 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLRPTS",26)
+40 ;;=
+41 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLSAVE",11)
+42 ;;=
+43 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLUTL",22)
+44 ;;=
+45 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLUTL1",40)
+46 ;;=
+47 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLX",12)
+48 ;;=
+49 ;;^UTILITY(U,$J,"PKG",219,2,"B","GMPLX1",27)
+50 ;;=
+51 ;;^UTILITY(U,$J,"PKG",219,3,0)
+52 ;;=^9.43^3^2
+53 ;;^UTILITY(U,$J,"PKG",219,3,1,0)
+54 ;;=AUPNPROB
+55 ;;^UTILITY(U,$J,"PKG",219,3,1,4,0)
+56 ;;=^^4^4^2940527^^^^
+57 ;;^UTILITY(U,$J,"PKG",219,3,1,4,1,0)
+58 ;;=Originally exported by the Indian Health Service (IHS) as part of the
+59 ;;^UTILITY(U,$J,"PKG",219,3,1,4,2,0)
+60 ;;=Patient Care Component (PCC), this global contains the Problem File
+61 ;;^UTILITY(U,$J,"PKG",219,3,1,4,3,0)
+62 ;;=#9000011; all of the patient problem data making up the problem list
+63 ;;^UTILITY(U,$J,"PKG",219,3,1,4,4,0)
+64 ;;=is stored here.
+65 ;;^UTILITY(U,$J,"PKG",219,3,1,5)
+66 ;;=
+67 ;;^UTILITY(U,$J,"PKG",219,3,3,0)
+68 ;;=GMPL
+69 ;;^UTILITY(U,$J,"PKG",219,3,3,4,0)
+70 ;;=^^2^2^2940825^^^^
+71 ;;^UTILITY(U,$J,"PKG",219,3,3,4,1,0)
+72 ;;=This global contains files in the 125 numberspace that support the
+73 ;;^UTILITY(U,$J,"PKG",219,3,3,4,2,0)
+74 ;;=Problem List application.
+75 ;;^UTILITY(U,$J,"PKG",219,3,"B","AUPNPROB",1)
+76 ;;=
+77 ;;^UTILITY(U,$J,"PKG",219,3,"B","GMPL",3)
+78 ;;=
+79 ;;^UTILITY(U,$J,"PKG",219,4,0)
+80 ;;=^9.44PA^16^9
+81 ;;^UTILITY(U,$J,"PKG",219,4,3,0)
+82 ;;=125.8
+83 ;;^UTILITY(U,$J,"PKG",219,4,3,222)
+84 ;;=y^y^^y^^^n
+85 ;;^UTILITY(U,$J,"PKG",219,4,4,0)
+86 ;;=9000011
+87 ;;^UTILITY(U,$J,"PKG",219,4,4,222)
+88 ;;=y^y^^y^^^n
+89 ;;^UTILITY(U,$J,"PKG",219,4,6,0)
+90 ;;=125.99
+91 ;;^UTILITY(U,$J,"PKG",219,4,6,222)
+92 ;;=y^y^^y^^^y^m^y
+93 ;;^UTILITY(U,$J,"PKG",219,4,7,0)
+94 ;;=49
+95 ;;^UTILITY(U,$J,"PKG",219,4,7,1,0)
+96 ;;=^9.45A^2^2
+97 ;;^UTILITY(U,$J,"PKG",219,4,7,1,1,0)
+98 ;;=PARENT SERVICE
+99 ;;^UTILITY(U,$J,"PKG",219,4,7,1,2,0)
+100 ;;=TYPE OF SERVICE
+101 ;;^UTILITY(U,$J,"PKG",219,4,7,1,"B","PARENT SERVICE",1)
+102 ;;=
+103 ;;^UTILITY(U,$J,"PKG",219,4,7,1,"B","TYPE OF SERVICE",2)
+104 ;;=
+105 ;;^UTILITY(U,$J,"PKG",219,4,7,222)
+106 ;;=y^^^y^^^n
+107 ;;^UTILITY(U,$J,"PKG",219,4,8,0)
+108 ;;=200
+109 ;;^UTILITY(U,$J,"PKG",219,4,8,1,0)
+110 ;;=^9.45A^5^2
+111 ;;^UTILITY(U,$J,"PKG",219,4,8,1,1,0)
+112 ;;=PROBLEM LIST PRIMARY VIEW
+113 ;;^UTILITY(U,$J,"PKG",219,4,8,1,5,0)
+114 ;;=PROBLEM SELECTION LIST
+115 ;;^UTILITY(U,$J,"PKG",219,4,8,1,"B","PROBLEM LIST PRIMARY VIEW",1)
+116 ;;=
+117 ;;^UTILITY(U,$J,"PKG",219,4,8,1,"B","PROBLEM SELECTION LIST",5)
+118 ;;=
+119 ;;^UTILITY(U,$J,"PKG",219,4,8,222)
+120 ;;=y^^^y^^^n
+121 ;;^UTILITY(U,$J,"PKG",219,4,13,0)
+122 ;;=125
+123 ;;^UTILITY(U,$J,"PKG",219,4,13,222)
+124 ;;=y^y^^y^^^n
+125 ;;^UTILITY(U,$J,"PKG",219,4,14,0)
+126 ;;=125.1
+127 ;;^UTILITY(U,$J,"PKG",219,4,14,222)
+128 ;;=y^y^^y^^^n
