GMPLI00S ; ; 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.11,.01,21,0)
;;=^^1^1^2940110^^
;;^DD(9000011.11,.01,21,1,0)
;;=This is the location at which the notes in this multiple originated.
;;^DD(9000011.11,.01,"AUDIT")
;;=n
;;^DD(9000011.11,.01,"DT")
;;=2930909
;;^DD(9000011.11,1101,0)
;;=NOTE^9000011.1111IA^^11;0
;;^DD(9000011.11,1101,21,0)
;;=^^4^4^2940208^
;;^DD(9000011.11,1101,21,1,0)
;;=Each entry in this multiple is a notation appended to a problem for
;;^DD(9000011.11,1101,21,2,0)
;;=further clarification or information. Data includes a note number
;;^DD(9000011.11,1101,21,3,0)
;;=and status, the date the note was added, the provider who added it,
;;^DD(9000011.11,1101,21,4,0)
;;=and the actual text of the note.
;;^DD(9000011.1111,0)
;;=NOTE SUB-FIELD^^.06^5
;;^DD(9000011.1111,0,"DT")
;;=2940110
;;^DD(9000011.1111,0,"ID",.03)
;;=W " ",$P(^(0),U,3)
;;^DD(9000011.1111,0,"IX","AV9",9000011.1111,.01)
;;=
;;^DD(9000011.1111,0,"IX","B",9000011.1111,.01)
;;=
;;^DD(9000011.1111,0,"NM","NOTE")
;;=
;;^DD(9000011.1111,0,"UP")
;;=9000011.11
;;^DD(9000011.1111,.01,0)
;;=NOTE NMBR^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
;;^DD(9000011.1111,.01,1,0)
;;=^.1
;;^DD(9000011.1111,.01,1,1,0)
;;=9000011.1111^B
;;^DD(9000011.1111,.01,1,1,1)
;;=S ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)=""
;;^DD(9000011.1111,.01,1,1,2)
;;=K ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)
;;^DD(9000011.1111,.01,1,2,0)
;;=9000011.1111^AV9^MUMPS
;;^DD(9000011.1111,.01,1,2,1)
;;=S:$D(APCDLOOK) DIC("DR")=""
;;^DD(9000011.1111,.01,1,2,2)
;;=Q
;;^DD(9000011.1111,.01,1,2,"%D",0)
;;=^^2^2^2940204^^^
;;^DD(9000011.1111,.01,1,2,"%D",1,0)
;;=Controls the behaviour of the input templates used by IHS to populate
;;^DD(9000011.1111,.01,1,2,"%D",2,0)
;;=and maintain this file.
;;^DD(9000011.1111,.01,1,2,"DT")
;;=2940125
;;^DD(9000011.1111,.01,3)
;;=Type a Number between 1 and 999, 0 Decimal Digits
;;^DD(9000011.1111,.01,21,0)
;;=^^1^1^2940204^^^^
;;^DD(9000011.1111,.01,21,1,0)
;;=This is the unique note identifier.
;;^DD(9000011.1111,.01,"AUDIT")
;;=n
;;^DD(9000011.1111,.01,"DT")
;;=2940125
;;^DD(9000011.1111,.03,0)
;;=NOTE NARRATIVE^RF^^0;3^K:$L(X)>60!($L(X)<3) X
;;^DD(9000011.1111,.03,3)
;;=Answer must be 3-60 characters in length.
;;^DD(9000011.1111,.03,21,0)
;;=^^1^1^2930726^
;;^DD(9000011.1111,.03,21,1,0)
;;=Additional comments may be entered here to further describe this problem.
;;^DD(9000011.1111,.03,"AUDIT")
;;=n
;;^DD(9000011.1111,.03,"DT")
;;=2930726
;;^DD(9000011.1111,.04,0)
;;=STATUS^RS^A:ACTIVE;^0;4^Q
;;^DD(9000011.1111,.04,3)
;;=If this note is currently ACTIVE, indicate it here.
;;^DD(9000011.1111,.04,21,0)
;;=^^1^1^2930726^
;;^DD(9000011.1111,.04,21,1,0)
;;=This flag indicates if this note is currently active.
;;^DD(9000011.1111,.04,"DT")
;;=2900501
;;^DD(9000011.1111,.05,0)
;;=DATE NOTE ADDED^D^^0;5^S %DT="EX" D ^%DT S X=Y K:DT<X!(1800000>X) X
;;^DD(9000011.1111,.05,3)
;;=TYPE A DATE BETWEEN 1880 AND TODAY
;;^DD(9000011.1111,.05,21,0)
;;=^^1^1^2930726^
;;^DD(9000011.1111,.05,21,1,0)
;;=This is the date this note was entered into this file.
;;^DD(9000011.1111,.05,"DT")
;;=2930726
;;^DD(9000011.1111,.06,0)
;;=AUTHOR^P200'^VA(200,^0;6^Q
;;^DD(9000011.1111,.06,3)
;;=Enter the name of the provider who authored the text of this note.
;;^DD(9000011.1111,.06,21,0)
;;=^^1^1^2930726^
;;^DD(9000011.1111,.06,21,1,0)
;;=This is the provider who authored the text of this note.
;;^DD(9000011.1111,.06,"DT")
;;=2930330
GMPLI00S ; ; 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.11,.01,21,0)
+2 ;;=^^1^1^2940110^^
+3 ;;^DD(9000011.11,.01,21,1,0)
+4 ;;=This is the location at which the notes in this multiple originated.
+5 ;;^DD(9000011.11,.01,"AUDIT")
+6 ;;=n
+7 ;;^DD(9000011.11,.01,"DT")
+8 ;;=2930909
+9 ;;^DD(9000011.11,1101,0)
+10 ;;=NOTE^9000011.1111IA^^11;0
+11 ;;^DD(9000011.11,1101,21,0)
+12 ;;=^^4^4^2940208^
+13 ;;^DD(9000011.11,1101,21,1,0)
+14 ;;=Each entry in this multiple is a notation appended to a problem for
+15 ;;^DD(9000011.11,1101,21,2,0)
+16 ;;=further clarification or information. Data includes a note number
+17 ;;^DD(9000011.11,1101,21,3,0)
+18 ;;=and status, the date the note was added, the provider who added it,
+19 ;;^DD(9000011.11,1101,21,4,0)
+20 ;;=and the actual text of the note.
+21 ;;^DD(9000011.1111,0)
+22 ;;=NOTE SUB-FIELD^^.06^5
+23 ;;^DD(9000011.1111,0,"DT")
+24 ;;=2940110
+25 ;;^DD(9000011.1111,0,"ID",.03)
+26 ;;=W " ",$P(^(0),U,3)
+27 ;;^DD(9000011.1111,0,"IX","AV9",9000011.1111,.01)
+28 ;;=
+29 ;;^DD(9000011.1111,0,"IX","B",9000011.1111,.01)
+30 ;;=
+31 ;;^DD(9000011.1111,0,"NM","NOTE")
+32 ;;=
+33 ;;^DD(9000011.1111,0,"UP")
+34 ;;=9000011.11
+35 ;;^DD(9000011.1111,.01,0)
+36 ;;=NOTE NMBR^RNJ3,0^^0;1^K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
+37 ;;^DD(9000011.1111,.01,1,0)
+38 ;;=^.1
+39 ;;^DD(9000011.1111,.01,1,1,0)
+40 ;;=9000011.1111^B
+41 ;;^DD(9000011.1111,.01,1,1,1)
+42 ;;=S ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)=""
+43 ;;^DD(9000011.1111,.01,1,1,2)
+44 ;;=K ^AUPNPROB(DA(2),11,DA(1),11,"B",$E(X,1,30),DA)
+45 ;;^DD(9000011.1111,.01,1,2,0)
+46 ;;=9000011.1111^AV9^MUMPS
+47 ;;^DD(9000011.1111,.01,1,2,1)
+48 ;;=S:$D(APCDLOOK) DIC("DR")=""
+49 ;;^DD(9000011.1111,.01,1,2,2)
+50 ;;=Q
+51 ;;^DD(9000011.1111,.01,1,2,"%D",0)
+52 ;;=^^2^2^2940204^^^
+53 ;;^DD(9000011.1111,.01,1,2,"%D",1,0)
+54 ;;=Controls the behaviour of the input templates used by IHS to populate
+55 ;;^DD(9000011.1111,.01,1,2,"%D",2,0)
+56 ;;=and maintain this file.
+57 ;;^DD(9000011.1111,.01,1,2,"DT")
+58 ;;=2940125
+59 ;;^DD(9000011.1111,.01,3)
+60 ;;=Type a Number between 1 and 999, 0 Decimal Digits
+61 ;;^DD(9000011.1111,.01,21,0)
+62 ;;=^^1^1^2940204^^^^
+63 ;;^DD(9000011.1111,.01,21,1,0)
+64 ;;=This is the unique note identifier.
+65 ;;^DD(9000011.1111,.01,"AUDIT")
+66 ;;=n
+67 ;;^DD(9000011.1111,.01,"DT")
+68 ;;=2940125
+69 ;;^DD(9000011.1111,.03,0)
+70 ;;=NOTE NARRATIVE^RF^^0;3^K:$L(X)>60!($L(X)<3) X
+71 ;;^DD(9000011.1111,.03,3)
+72 ;;=Answer must be 3-60 characters in length.
+73 ;;^DD(9000011.1111,.03,21,0)
+74 ;;=^^1^1^2930726^
+75 ;;^DD(9000011.1111,.03,21,1,0)
+76 ;;=Additional comments may be entered here to further describe this problem.
+77 ;;^DD(9000011.1111,.03,"AUDIT")
+78 ;;=n
+79 ;;^DD(9000011.1111,.03,"DT")
+80 ;;=2930726
+81 ;;^DD(9000011.1111,.04,0)
+82 ;;=STATUS^RS^A:ACTIVE;^0;4^Q
+83 ;;^DD(9000011.1111,.04,3)
+84 ;;=If this note is currently ACTIVE, indicate it here.
+85 ;;^DD(9000011.1111,.04,21,0)
+86 ;;=^^1^1^2930726^
+87 ;;^DD(9000011.1111,.04,21,1,0)
+88 ;;=This flag indicates if this note is currently active.
+89 ;;^DD(9000011.1111,.04,"DT")
+90 ;;=2900501
+91 ;;^DD(9000011.1111,.05,0)
+92 ;;=DATE NOTE ADDED^D^^0;5^S %DT="EX" D ^%DT S X=Y K:DT<X!(1800000>X) X
+93 ;;^DD(9000011.1111,.05,3)
+94 ;;=TYPE A DATE BETWEEN 1880 AND TODAY
+95 ;;^DD(9000011.1111,.05,21,0)
+96 ;;=^^1^1^2930726^
+97 ;;^DD(9000011.1111,.05,21,1,0)
+98 ;;=This is the date this note was entered into this file.
+99 ;;^DD(9000011.1111,.05,"DT")
+100 ;;=2930726
+101 ;;^DD(9000011.1111,.06,0)
+102 ;;=AUTHOR^P200'^VA(200,^0;6^Q
+103 ;;^DD(9000011.1111,.06,3)
+104 ;;=Enter the name of the provider who authored the text of this note.
+105 ;;^DD(9000011.1111,.06,21,0)
+106 ;;=^^1^1^2930726^
+107 ;;^DD(9000011.1111,.06,21,1,0)
+108 ;;=This is the provider who authored the text of this note.
+109 ;;^DD(9000011.1111,.06,"DT")
+110 ;;=2930330
