GMPLI001 ; ; 25-AUG-1994
;;2.0;Problem List;;Aug 25, 1994
Q:'DIFQ(49) 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
;;^DIC(49,0,"GL")
;;=^DIC(49,
;;^DIC("B","SERVICE/SECTION",49)
;;=
;;^DIC(49,"%",0)
;;=^1.005^2^2
;;^DIC(49,"%",1,0)
;;=QAP
;;^DIC(49,"%",2,0)
;;=QAM
;;^DIC(49,"%","B","QAM",2)
;;=
;;^DIC(49,"%","B","QAP",1)
;;=
;;^DIC(49,"%D",0)
;;=^^9^9^2900724^^^
;;^DIC(49,"%D",1,0)
;;=This file is a list of the services and sections within the services.
;;^DIC(49,"%D",2,0)
;;=Some of the entries may be 'MIS COSTING SECTIONS' for use with the
;;^DIC(49,"%D",3,0)
;;=cost accounting part of the Management Information System software.
;;^DIC(49,"%D",4,0)
;;=A section is an MIS section if there is a code entered in the field
;;^DIC(49,"%D",5,0)
;;=called MIS COSTING CODE. In the cost accounting system all medical
;;^DIC(49,"%D",6,0)
;;=center costs will be tied to a particular section. When MIS sections
;;^DIC(49,"%D",7,0)
;;=change, do not delete the old section. Instead, change the fields under
;;^DIC(49,"%D",8,0)
;;=the multiple field called "DATE CLOSED" to identify which sections are
;;^DIC(49,"%D",9,0)
;;=no longer in use.
;;^DD(49,0)
;;=FIELD^NL^16000^19
;;^DD(49,0,"DDA")
;;=N
;;^DD(49,0,"DT")
;;=2930202
;;^DD(49,0,"ID",1.5)
;;=W " ",$P(^(0),U,8)
;;^DD(49,0,"ID",1.6)
;;=S %I=Y,Y=$S('$D(^(0)):"",$D(^DIC(49,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(49,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
;;^DD(49,0,"IX","AC",49,10)
;;=
;;^DD(49,0,"IX","ACHLD",49,1.6)
;;=
;;^DD(49,0,"IX","AD",49,10)
;;=
;;^DD(49,0,"IX","B",49,.01)
;;=
;;^DD(49,0,"IX","C",49,1)
;;=
;;^DD(49,0,"IX","D",49,1.5)
;;=
;;^DD(49,0,"IX","D",49.01,.01)
;;=
;;^DD(49,0,"IX","E",49,9)
;;=
;;^DD(49,0,"IX","F",49,1.7)
;;=
;;^DD(49,0,"NM","SERVICE/SECTION")
;;=
;;^DD(49,0,"PT",3,29)
;;=
;;^DD(49,0,"PT",43,919)
;;=
;;^DD(49,0,"PT",45.7,2)
;;=
;;^DD(49,0,"PT",49,1.6)
;;=
;;^DD(49,0,"PT",59,1003)
;;=
;;^DD(49,0,"PT",70.03,7)
;;=
;;^DD(49,0,"PT",123.5,123.07)
;;=
;;^DD(49,0,"PT",200,29)
;;=
;;^DD(49,0,"PT",350.1,.04)
;;=
;;^DD(49,0,"PT",350.9,1.14)
;;=
;;^DD(49,0,"PT",410,6.3)
;;=
;;^DD(49,0,"PT",420.01,.5)
;;=
;;^DD(49,0,"PT",421.51,.01)
;;=
;;^DD(49,0,"PT",430,101)
;;=
;;^DD(49,0,"PT",430.4,4)
;;=
;;^DD(49,0,"PT",442,5.2)
;;=
;;^DD(49,0,"PT",443.6,5.2)
;;=
;;^DD(49,0,"PT",445.011,.01)
;;=
;;^DD(49,0,"PT",743,1)
;;=
;;^DD(49,0,"PT",605571.01,3)
;;=
;;^DD(49,0,"PT",605571.01,6)
;;=
;;^DD(49,0,"PT",9000011,1.06)
;;=
;;^DD(49,.01,0)
;;=NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
;;^DD(49,.01,1,0)
;;=^.1
;;^DD(49,.01,1,1,0)
;;=49^B
;;^DD(49,.01,1,1,1)
;;=S ^DIC(49,"B",$E(X,1,30),DA)=""
;;^DD(49,.01,1,1,2)
;;=K ^DIC(49,"B",$E(X,1,30),DA)
;;^DD(49,.01,3)
;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
;;^DD(49,.01,21,0)
;;=^^1^1^2910114^
;;^DD(49,.01,21,1,0)
;;=Enter Service or Section name.
;;^DD(49,.01,"DT")
;;=2901214
;;^DD(49,1.6,0)
;;=PARENT SERVICE^P49'^DIC(49,^0;4^Q
;;^DD(49,1.6,1,0)
;;=^.1
;;^DD(49,1.6,1,1,0)
;;=49^ACHLD
;;^DD(49,1.6,1,1,1)
;;=S ^DIC(49,"ACHLD",$E(X,1,30),DA)=""
;;^DD(49,1.6,1,1,2)
;;=K ^DIC(49,"ACHLD",$E(X,1,30),DA)
;;^DD(49,1.6,1,1,"%D",0)
;;=^^2^2^2930426^
;;^DD(49,1.6,1,1,"%D",1,0)
;;=If a selected service is a 'parent' service, then all subordinate
;;^DD(49,1.6,1,1,"%D",2,0)
;;=services may be retrieved as well upon selection via this cross-reference.
;;^DD(49,1.6,1,1,"DT")
;;=2930426
;;^DD(49,1.6,3)
;;=Type the name of the service or section which is 'parent' to this section. If this is an MIS Costing Section w/in medicine of surgery, type the MIS 'sub-specialty' admin sectn to which this belongs.
GMPLI001 ; ; 25-AUG-1994
+1 ;;2.0;Problem List;;Aug 25, 1994
+2 IF 'DIFQ(49)
QUIT
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 ;;^DIC(49,0,"GL")
+2 ;;=^DIC(49,
+3 ;;^DIC("B","SERVICE/SECTION",49)
+4 ;;=
+5 ;;^DIC(49,"%",0)
+6 ;;=^1.005^2^2
+7 ;;^DIC(49,"%",1,0)
+8 ;;=QAP
+9 ;;^DIC(49,"%",2,0)
+10 ;;=QAM
+11 ;;^DIC(49,"%","B","QAM",2)
+12 ;;=
+13 ;;^DIC(49,"%","B","QAP",1)
+14 ;;=
+15 ;;^DIC(49,"%D",0)
+16 ;;=^^9^9^2900724^^^
+17 ;;^DIC(49,"%D",1,0)
+18 ;;=This file is a list of the services and sections within the services.
+19 ;;^DIC(49,"%D",2,0)
+20 ;;=Some of the entries may be 'MIS COSTING SECTIONS' for use with the
+21 ;;^DIC(49,"%D",3,0)
+22 ;;=cost accounting part of the Management Information System software.
+23 ;;^DIC(49,"%D",4,0)
+24 ;;=A section is an MIS section if there is a code entered in the field
+25 ;;^DIC(49,"%D",5,0)
+26 ;;=called MIS COSTING CODE. In the cost accounting system all medical
+27 ;;^DIC(49,"%D",6,0)
+28 ;;=center costs will be tied to a particular section. When MIS sections
+29 ;;^DIC(49,"%D",7,0)
+30 ;;=change, do not delete the old section. Instead, change the fields under
+31 ;;^DIC(49,"%D",8,0)
+32 ;;=the multiple field called "DATE CLOSED" to identify which sections are
+33 ;;^DIC(49,"%D",9,0)
+34 ;;=no longer in use.
+35 ;;^DD(49,0)
+36 ;;=FIELD^NL^16000^19
+37 ;;^DD(49,0,"DDA")
+38 ;;=N
+39 ;;^DD(49,0,"DT")
+40 ;;=2930202
+41 ;;^DD(49,0,"ID",1.5)
+42 ;;=W " ",$P(^(0),U,8)
+43 ;;^DD(49,0,"ID",1.6)
+44 ;;=S %I=Y,Y=$S('$D(^(0)):"",$D(^DIC(49,+$P(^(0),U,4),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(49,.01,0),U,2) D Y^DIQ:Y]"" W " ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I
+45 ;;^DD(49,0,"IX","AC",49,10)
+46 ;;=
+47 ;;^DD(49,0,"IX","ACHLD",49,1.6)
+48 ;;=
+49 ;;^DD(49,0,"IX","AD",49,10)
+50 ;;=
+51 ;;^DD(49,0,"IX","B",49,.01)
+52 ;;=
+53 ;;^DD(49,0,"IX","C",49,1)
+54 ;;=
+55 ;;^DD(49,0,"IX","D",49,1.5)
+56 ;;=
+57 ;;^DD(49,0,"IX","D",49.01,.01)
+58 ;;=
+59 ;;^DD(49,0,"IX","E",49,9)
+60 ;;=
+61 ;;^DD(49,0,"IX","F",49,1.7)
+62 ;;=
+63 ;;^DD(49,0,"NM","SERVICE/SECTION")
+64 ;;=
+65 ;;^DD(49,0,"PT",3,29)
+66 ;;=
+67 ;;^DD(49,0,"PT",43,919)
+68 ;;=
+69 ;;^DD(49,0,"PT",45.7,2)
+70 ;;=
+71 ;;^DD(49,0,"PT",49,1.6)
+72 ;;=
+73 ;;^DD(49,0,"PT",59,1003)
+74 ;;=
+75 ;;^DD(49,0,"PT",70.03,7)
+76 ;;=
+77 ;;^DD(49,0,"PT",123.5,123.07)
+78 ;;=
+79 ;;^DD(49,0,"PT",200,29)
+80 ;;=
+81 ;;^DD(49,0,"PT",350.1,.04)
+82 ;;=
+83 ;;^DD(49,0,"PT",350.9,1.14)
+84 ;;=
+85 ;;^DD(49,0,"PT",410,6.3)
+86 ;;=
+87 ;;^DD(49,0,"PT",420.01,.5)
+88 ;;=
+89 ;;^DD(49,0,"PT",421.51,.01)
+90 ;;=
+91 ;;^DD(49,0,"PT",430,101)
+92 ;;=
+93 ;;^DD(49,0,"PT",430.4,4)
+94 ;;=
+95 ;;^DD(49,0,"PT",442,5.2)
+96 ;;=
+97 ;;^DD(49,0,"PT",443.6,5.2)
+98 ;;=
+99 ;;^DD(49,0,"PT",445.011,.01)
+100 ;;=
+101 ;;^DD(49,0,"PT",743,1)
+102 ;;=
+103 ;;^DD(49,0,"PT",605571.01,3)
+104 ;;=
+105 ;;^DD(49,0,"PT",605571.01,6)
+106 ;;=
+107 ;;^DD(49,0,"PT",9000011,1.06)
+108 ;;=
+109 ;;^DD(49,.01,0)
+110 ;;=NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
+111 ;;^DD(49,.01,1,0)
+112 ;;=^.1
+113 ;;^DD(49,.01,1,1,0)
+114 ;;=49^B
+115 ;;^DD(49,.01,1,1,1)
+116 ;;=S ^DIC(49,"B",$E(X,1,30),DA)=""
+117 ;;^DD(49,.01,1,1,2)
+118 ;;=K ^DIC(49,"B",$E(X,1,30),DA)
+119 ;;^DD(49,.01,3)
+120 ;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
+121 ;;^DD(49,.01,21,0)
+122 ;;=^^1^1^2910114^
+123 ;;^DD(49,.01,21,1,0)
+124 ;;=Enter Service or Section name.
+125 ;;^DD(49,.01,"DT")
+126 ;;=2901214
+127 ;;^DD(49,1.6,0)
+128 ;;=PARENT SERVICE^P49'^DIC(49,^0;4^Q
+129 ;;^DD(49,1.6,1,0)
+130 ;;=^.1
+131 ;;^DD(49,1.6,1,1,0)
+132 ;;=49^ACHLD
+133 ;;^DD(49,1.6,1,1,1)
+134 ;;=S ^DIC(49,"ACHLD",$E(X,1,30),DA)=""
+135 ;;^DD(49,1.6,1,1,2)
+136 ;;=K ^DIC(49,"ACHLD",$E(X,1,30),DA)
+137 ;;^DD(49,1.6,1,1,"%D",0)
+138 ;;=^^2^2^2930426^
+139 ;;^DD(49,1.6,1,1,"%D",1,0)
+140 ;;=If a selected service is a 'parent' service, then all subordinate
+141 ;;^DD(49,1.6,1,1,"%D",2,0)
+142 ;;=services may be retrieved as well upon selection via this cross-reference.
+143 ;;^DD(49,1.6,1,1,"DT")
+144 ;;=2930426
+145 ;;^DD(49,1.6,3)
+146 ;;=Type the name of the service or section which is 'parent' to this section. If this is an MIS Costing Section w/in medicine of surgery, type the MIS 'sub-specialty' admin sectn to which this belongs.
