GMPLI00Q ; ; 25-AUG-1994
;;2.0;Problem List;;Aug 25, 1994
Q:'DIFQ(9000011) 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
;;^DD(9000011,1.03,"DT")
;;=2930726
;;^DD(9000011,1.04,0)
;;=RECORDING PROVIDER^P200'^VA(200,^1;4^Q
;;^DD(9000011,1.04,3)
;;=Enter the name of the provider who first recorded this data.
;;^DD(9000011,1.04,21,0)
;;=^^2^2^2940324^^
;;^DD(9000011,1.04,21,1,0)
;;=This is the provider who first recorded this problem, either on the
;;^DD(9000011,1.04,21,2,0)
;;=paper chart or online.
;;^DD(9000011,1.04,"DT")
;;=2930726
;;^DD(9000011,1.05,0)
;;=RESPONSIBLE PROVIDER^P200'^VA(200,^1;5^Q
;;^DD(9000011,1.05,3)
;;=Enter the name of the local provider treating this problem.
;;^DD(9000011,1.05,21,0)
;;=^^1^1^2930726^
;;^DD(9000011,1.05,21,1,0)
;;=This is the provider currently responsible for treating this problem.
;;^DD(9000011,1.05,"DT")
;;=2930726
;;^DD(9000011,1.06,0)
;;=SERVICE^P49'^DIC(49,^1;6^Q
;;^DD(9000011,1.06,3)
;;=Enter the service to be associated with this problem.
;;^DD(9000011,1.06,21,0)
;;=^^5^5^2931223^^^
;;^DD(9000011,1.06,21,1,0)
;;=This is the service primarily involved in the treatment of this problem;
;;^DD(9000011,1.06,21,2,0)
;;=the DHCP Problem List defaults this field to the service defined in
;;^DD(9000011,1.06,21,3,0)
;;=File #200 for the Recording Provider of this problem, upon entry of the
;;^DD(9000011,1.06,21,4,0)
;;=problem. It may later be used to categorize problems for screening and
;;^DD(9000011,1.06,21,5,0)
;;=sorting.
;;^DD(9000011,1.06,"DT")
;;=2930726
;;^DD(9000011,1.07,0)
;;=DATE RESOLVED^D^^1;7^S %DT="E" D ^%DT S X=Y K:Y<1 X
;;^DD(9000011,1.07,3)
;;=Enter the date this problem became resolved or inactive, as precisely as known.
;;^DD(9000011,1.07,21,0)
;;=^^2^2^2930726^
;;^DD(9000011,1.07,21,1,0)
;;=This is the date this problem was resolved or inactivated, as precisely
;;^DD(9000011,1.07,21,2,0)
;;=as known.
;;^DD(9000011,1.07,"DT")
;;=2930726
;;^DD(9000011,1.08,0)
;;=CLINIC^*P44'^SC(^1;8^S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(9000011,1.08,3)
;;=Enter the clinic in which the patient is being seen for this problem.
;;^DD(9000011,1.08,12)
;;=Only clinics are allowed here.
;;^DD(9000011,1.08,12.1)
;;=S DIC("S")="I $P(^(0),U,3)=""C"""
;;^DD(9000011,1.08,21,0)
;;=^^3^3^2931223^
;;^DD(9000011,1.08,21,1,0)
;;=This is the clinic in which this patient is being seen for this problem.
;;^DD(9000011,1.08,21,2,0)
;;=The problem list may be screened based on this value, to change one's
;;^DD(9000011,1.08,21,3,0)
;;=view of the list.
;;^DD(9000011,1.08,"DT")
;;=2940412
;;^DD(9000011,1.09,0)
;;=DATE RECORDED^D^^1;9^S %DT="E" D ^%DT S X=Y K:DT<X!(2000000>X) X
;;^DD(9000011,1.09,3)
;;=Enter the date this problem was first recorded, as precisely as known.
;;^DD(9000011,1.09,21,0)
;;=^^3^3^2940118^
;;^DD(9000011,1.09,21,1,0)
;;=This is the date this problem was originally recorded, either online or
;;^DD(9000011,1.09,21,2,0)
;;=in the paper chart; it may be the same as, or earlier than, the Date
;;^DD(9000011,1.09,21,3,0)
;;=Entered.
;;^DD(9000011,1.09,"DT")
;;=2940111
;;^DD(9000011,1.1,0)
;;=SERVICE CONNECTED^S^1:YES;0:NO;^1;10^Q
;;^DD(9000011,1.1,3)
;;=If this problem is service connected, enter YES here.
;;^DD(9000011,1.1,21,0)
;;=^^2^2^2930726^^^
;;^DD(9000011,1.1,21,1,0)
;;=If the patient has service connection on file in the DHCP Patient file #2,
;;^DD(9000011,1.1,21,2,0)
;;=this problem specifically may be flagged as being service connected.
;;^DD(9000011,1.1,23,0)
;;=^^3^3^2930726^^
;;^DD(9000011,1.1,23,1,0)
;;=This data will be prompted for in the DHCP Problem List only if the
GMPLI00Q ; ; 25-AUG-1994
+1 ;;2.0;Problem List;;Aug 25, 1994
+2 IF 'DIFQ(9000011)
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 ;;^DD(9000011,1.03,"DT")
+2 ;;=2930726
+3 ;;^DD(9000011,1.04,0)
+4 ;;=RECORDING PROVIDER^P200'^VA(200,^1;4^Q
+5 ;;^DD(9000011,1.04,3)
+6 ;;=Enter the name of the provider who first recorded this data.
+7 ;;^DD(9000011,1.04,21,0)
+8 ;;=^^2^2^2940324^^
+9 ;;^DD(9000011,1.04,21,1,0)
+10 ;;=This is the provider who first recorded this problem, either on the
+11 ;;^DD(9000011,1.04,21,2,0)
+12 ;;=paper chart or online.
+13 ;;^DD(9000011,1.04,"DT")
+14 ;;=2930726
+15 ;;^DD(9000011,1.05,0)
+16 ;;=RESPONSIBLE PROVIDER^P200'^VA(200,^1;5^Q
+17 ;;^DD(9000011,1.05,3)
+18 ;;=Enter the name of the local provider treating this problem.
+19 ;;^DD(9000011,1.05,21,0)
+20 ;;=^^1^1^2930726^
+21 ;;^DD(9000011,1.05,21,1,0)
+22 ;;=This is the provider currently responsible for treating this problem.
+23 ;;^DD(9000011,1.05,"DT")
+24 ;;=2930726
+25 ;;^DD(9000011,1.06,0)
+26 ;;=SERVICE^P49'^DIC(49,^1;6^Q
+27 ;;^DD(9000011,1.06,3)
+28 ;;=Enter the service to be associated with this problem.
+29 ;;^DD(9000011,1.06,21,0)
+30 ;;=^^5^5^2931223^^^
+31 ;;^DD(9000011,1.06,21,1,0)
+32 ;;=This is the service primarily involved in the treatment of this problem;
+33 ;;^DD(9000011,1.06,21,2,0)
+34 ;;=the DHCP Problem List defaults this field to the service defined in
+35 ;;^DD(9000011,1.06,21,3,0)
+36 ;;=File #200 for the Recording Provider of this problem, upon entry of the
+37 ;;^DD(9000011,1.06,21,4,0)
+38 ;;=problem. It may later be used to categorize problems for screening and
+39 ;;^DD(9000011,1.06,21,5,0)
+40 ;;=sorting.
+41 ;;^DD(9000011,1.06,"DT")
+42 ;;=2930726
+43 ;;^DD(9000011,1.07,0)
+44 ;;=DATE RESOLVED^D^^1;7^S %DT="E" D ^%DT S X=Y K:Y<1 X
+45 ;;^DD(9000011,1.07,3)
+46 ;;=Enter the date this problem became resolved or inactive, as precisely as known.
+47 ;;^DD(9000011,1.07,21,0)
+48 ;;=^^2^2^2930726^
+49 ;;^DD(9000011,1.07,21,1,0)
+50 ;;=This is the date this problem was resolved or inactivated, as precisely
+51 ;;^DD(9000011,1.07,21,2,0)
+52 ;;=as known.
+53 ;;^DD(9000011,1.07,"DT")
+54 ;;=2930726
+55 ;;^DD(9000011,1.08,0)
+56 ;;=CLINIC^*P44'^SC(^1;8^S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+57 ;;^DD(9000011,1.08,3)
+58 ;;=Enter the clinic in which the patient is being seen for this problem.
+59 ;;^DD(9000011,1.08,12)
+60 ;;=Only clinics are allowed here.
+61 ;;^DD(9000011,1.08,12.1)
+62 ;;=S DIC("S")="I $P(^(0),U,3)=""C"""
+63 ;;^DD(9000011,1.08,21,0)
+64 ;;=^^3^3^2931223^
+65 ;;^DD(9000011,1.08,21,1,0)
+66 ;;=This is the clinic in which this patient is being seen for this problem.
+67 ;;^DD(9000011,1.08,21,2,0)
+68 ;;=The problem list may be screened based on this value, to change one's
+69 ;;^DD(9000011,1.08,21,3,0)
+70 ;;=view of the list.
+71 ;;^DD(9000011,1.08,"DT")
+72 ;;=2940412
+73 ;;^DD(9000011,1.09,0)
+74 ;;=DATE RECORDED^D^^1;9^S %DT="E" D ^%DT S X=Y K:DT<X!(2000000>X) X
+75 ;;^DD(9000011,1.09,3)
+76 ;;=Enter the date this problem was first recorded, as precisely as known.
+77 ;;^DD(9000011,1.09,21,0)
+78 ;;=^^3^3^2940118^
+79 ;;^DD(9000011,1.09,21,1,0)
+80 ;;=This is the date this problem was originally recorded, either online or
+81 ;;^DD(9000011,1.09,21,2,0)
+82 ;;=in the paper chart; it may be the same as, or earlier than, the Date
+83 ;;^DD(9000011,1.09,21,3,0)
+84 ;;=Entered.
+85 ;;^DD(9000011,1.09,"DT")
+86 ;;=2940111
+87 ;;^DD(9000011,1.1,0)
+88 ;;=SERVICE CONNECTED^S^1:YES;0:NO;^1;10^Q
+89 ;;^DD(9000011,1.1,3)
+90 ;;=If this problem is service connected, enter YES here.
+91 ;;^DD(9000011,1.1,21,0)
+92 ;;=^^2^2^2930726^^^
+93 ;;^DD(9000011,1.1,21,1,0)
+94 ;;=If the patient has service connection on file in the DHCP Patient file #2,
+95 ;;^DD(9000011,1.1,21,2,0)
+96 ;;=this problem specifically may be flagged as being service connected.
+97 ;;^DD(9000011,1.1,23,0)
+98 ;;=^^3^3^2930726^^
+99 ;;^DD(9000011,1.1,23,1,0)
+100 ;;=This data will be prompted for in the DHCP Problem List only if the
