- GMPLO004 ; ; 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,"PRO",2431,2,0)
- ;;=^101.02A^^0
- ;;^UTILITY(U,$J,"PRO",2431,15)
- ;;=D CK^GMPLEDT3
- ;;^UTILITY(U,$J,"PRO",2431,20)
- ;;=D ONSET^GMPLEDT1
- ;;^UTILITY(U,$J,"PRO",2431,99)
- ;;=55908,59536
- ;;^UTILITY(U,$J,"PRO",2433,0)
- ;;=GMPL EDIT SC^Service Connection^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2433,1,0)
- ;;=^^5^5^2930811^^^
- ;;^UTILITY(U,$J,"PRO",2433,1,1,0)
- ;;=This action allows editing the service connection status of the current
- ;;^UTILITY(U,$J,"PRO",2433,1,2,0)
- ;;=problem; if the service connection of this problem was previously
- ;;^UTILITY(U,$J,"PRO",2433,1,3,0)
- ;;=unknown, it may be entered here. Data will only be asked for if the
- ;;^UTILITY(U,$J,"PRO",2433,1,4,0)
- ;;=patient has service connection indicated in the Patient file. MCCR
- ;;^UTILITY(U,$J,"PRO",2433,1,5,0)
- ;;=will be using this data for billing purposes.
- ;;^UTILITY(U,$J,"PRO",2433,2,0)
- ;;=^101.02A^^0
- ;;^UTILITY(U,$J,"PRO",2433,15)
- ;;=D CK^GMPLEDT3
- ;;^UTILITY(U,$J,"PRO",2433,20)
- ;;=D SC^GMPLEDT1 I 'GMPSC W !!,"This patient has no service-connection on file.",! H 2
- ;;^UTILITY(U,$J,"PRO",2433,99)
- ;;=55908,59537
- ;;^UTILITY(U,$J,"PRO",2434,0)
- ;;=GMPL VIEW ACTIVE^Active only^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2434,1,0)
- ;;=^^2^2^2930811^^^^
- ;;^UTILITY(U,$J,"PRO",2434,1,1,0)
- ;;=This action will screen the problems from the current patient's list
- ;;^UTILITY(U,$J,"PRO",2434,1,2,0)
- ;;=for only those that are currently active.
- ;;^UTILITY(U,$J,"PRO",2434,20)
- ;;=S:GMPLVIEW("ACT")'="A" GMPREBLD=1,GMPLVIEW("ACT")="A"
- ;;^UTILITY(U,$J,"PRO",2434,99)
- ;;=55908,59667
- ;;^UTILITY(U,$J,"PRO",2435,0)
- ;;=GMPL VIEW SERVICE^Selected Service(s)^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2435,1,0)
- ;;=^^2^2^2930811^^
- ;;^UTILITY(U,$J,"PRO",2435,1,1,0)
- ;;=This action will screen the problems from the current patient's list
- ;;^UTILITY(U,$J,"PRO",2435,1,2,0)
- ;;=for only those associated with the selected service(s) for care.
- ;;^UTILITY(U,$J,"PRO",2435,20)
- ;;=D NEWSRV^GMPLMGR1
- ;;^UTILITY(U,$J,"PRO",2435,24)
- ;;=
- ;;^UTILITY(U,$J,"PRO",2435,99)
- ;;=55908,59741
- ;;^UTILITY(U,$J,"PRO",2436,0)
- ;;=GMPL VIEW PROVIDER^Selected Provider^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2436,1,0)
- ;;=^^2^2^2930811^^
- ;;^UTILITY(U,$J,"PRO",2436,1,1,0)
- ;;=This action will screen the problems from the current patient's list
- ;;^UTILITY(U,$J,"PRO",2436,1,2,0)
- ;;=for only those listed as being treated by the selected provider.
- ;;^UTILITY(U,$J,"PRO",2436,20)
- ;;=D NEWPROV^GMPLMGR1
- ;;^UTILITY(U,$J,"PRO",2436,99)
- ;;=55908,59741
- ;;^UTILITY(U,$J,"PRO",2438,0)
- ;;=GMPL VIEW INACTIVE^Inactive only^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2438,1,0)
- ;;=^^2^2^2930811^^
- ;;^UTILITY(U,$J,"PRO",2438,1,1,0)
- ;;=This action will screen the problems from the current patient's list
- ;;^UTILITY(U,$J,"PRO",2438,1,2,0)
- ;;=for only those that are currently inactive.
- ;;^UTILITY(U,$J,"PRO",2438,20)
- ;;=S:GMPLVIEW("ACT")'="I" GMPREBLD=1,GMPLVIEW("ACT")="I"
- ;;^UTILITY(U,$J,"PRO",2438,99)
- ;;=55908,59668
- ;;^UTILITY(U,$J,"PRO",2439,0)
- ;;=GMPL VIEW BOTH^Active & Inactive^^A^^^^^^^^PROBLEM LIST
- ;;^UTILITY(U,$J,"PRO",2439,1,0)
- ;;=^^2^2^2930811^^
- ;;^UTILITY(U,$J,"PRO",2439,1,1,0)
- ;;=This action will remove any current screen on problem status and include
- ;;^UTILITY(U,$J,"PRO",2439,1,2,0)
- ;;=problems that are both active and inactive on the display.
- ;;^UTILITY(U,$J,"PRO",2439,20)
- ;;=S:GMPLVIEW("ACT")'="" GMPREBLD=1,GMPLVIEW("ACT")=""
- ;;^UTILITY(U,$J,"PRO",2439,99)
- ;;=55908,59668
- ;;^UTILITY(U,$J,"PRO",2440,0)
- ;;=GMPL EDIT SERVICE^Service or Clinic^^A^^^^^^^^PROBLEM LIST
- GMPLO004 ; ; 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,"PRO",2431,2,0)
- +2 ;;=^101.02A^^0
- +3 ;;^UTILITY(U,$J,"PRO",2431,15)
- +4 ;;=D CK^GMPLEDT3
- +5 ;;^UTILITY(U,$J,"PRO",2431,20)
- +6 ;;=D ONSET^GMPLEDT1
- +7 ;;^UTILITY(U,$J,"PRO",2431,99)
- +8 ;;=55908,59536
- +9 ;;^UTILITY(U,$J,"PRO",2433,0)
- +10 ;;=GMPL EDIT SC^Service Connection^^A^^^^^^^^PROBLEM LIST
- +11 ;;^UTILITY(U,$J,"PRO",2433,1,0)
- +12 ;;=^^5^5^2930811^^^
- +13 ;;^UTILITY(U,$J,"PRO",2433,1,1,0)
- +14 ;;=This action allows editing the service connection status of the current
- +15 ;;^UTILITY(U,$J,"PRO",2433,1,2,0)
- +16 ;;=problem; if the service connection of this problem was previously
- +17 ;;^UTILITY(U,$J,"PRO",2433,1,3,0)
- +18 ;;=unknown, it may be entered here. Data will only be asked for if the
- +19 ;;^UTILITY(U,$J,"PRO",2433,1,4,0)
- +20 ;;=patient has service connection indicated in the Patient file. MCCR
- +21 ;;^UTILITY(U,$J,"PRO",2433,1,5,0)
- +22 ;;=will be using this data for billing purposes.
- +23 ;;^UTILITY(U,$J,"PRO",2433,2,0)
- +24 ;;=^101.02A^^0
- +25 ;;^UTILITY(U,$J,"PRO",2433,15)
- +26 ;;=D CK^GMPLEDT3
- +27 ;;^UTILITY(U,$J,"PRO",2433,20)
- +28 ;;=D SC^GMPLEDT1 I 'GMPSC W !!,"This patient has no service-connection on file.",! H 2
- +29 ;;^UTILITY(U,$J,"PRO",2433,99)
- +30 ;;=55908,59537
- +31 ;;^UTILITY(U,$J,"PRO",2434,0)
- +32 ;;=GMPL VIEW ACTIVE^Active only^^A^^^^^^^^PROBLEM LIST
- +33 ;;^UTILITY(U,$J,"PRO",2434,1,0)
- +34 ;;=^^2^2^2930811^^^^
- +35 ;;^UTILITY(U,$J,"PRO",2434,1,1,0)
- +36 ;;=This action will screen the problems from the current patient's list
- +37 ;;^UTILITY(U,$J,"PRO",2434,1,2,0)
- +38 ;;=for only those that are currently active.
- +39 ;;^UTILITY(U,$J,"PRO",2434,20)
- +40 ;;=S:GMPLVIEW("ACT")'="A" GMPREBLD=1,GMPLVIEW("ACT")="A"
- +41 ;;^UTILITY(U,$J,"PRO",2434,99)
- +42 ;;=55908,59667
- +43 ;;^UTILITY(U,$J,"PRO",2435,0)
- +44 ;;=GMPL VIEW SERVICE^Selected Service(s)^^A^^^^^^^^PROBLEM LIST
- +45 ;;^UTILITY(U,$J,"PRO",2435,1,0)
- +46 ;;=^^2^2^2930811^^
- +47 ;;^UTILITY(U,$J,"PRO",2435,1,1,0)
- +48 ;;=This action will screen the problems from the current patient's list
- +49 ;;^UTILITY(U,$J,"PRO",2435,1,2,0)
- +50 ;;=for only those associated with the selected service(s) for care.
- +51 ;;^UTILITY(U,$J,"PRO",2435,20)
- +52 ;;=D NEWSRV^GMPLMGR1
- +53 ;;^UTILITY(U,$J,"PRO",2435,24)
- +54 ;;=
- +55 ;;^UTILITY(U,$J,"PRO",2435,99)
- +56 ;;=55908,59741
- +57 ;;^UTILITY(U,$J,"PRO",2436,0)
- +58 ;;=GMPL VIEW PROVIDER^Selected Provider^^A^^^^^^^^PROBLEM LIST
- +59 ;;^UTILITY(U,$J,"PRO",2436,1,0)
- +60 ;;=^^2^2^2930811^^
- +61 ;;^UTILITY(U,$J,"PRO",2436,1,1,0)
- +62 ;;=This action will screen the problems from the current patient's list
- +63 ;;^UTILITY(U,$J,"PRO",2436,1,2,0)
- +64 ;;=for only those listed as being treated by the selected provider.
- +65 ;;^UTILITY(U,$J,"PRO",2436,20)
- +66 ;;=D NEWPROV^GMPLMGR1
- +67 ;;^UTILITY(U,$J,"PRO",2436,99)
- +68 ;;=55908,59741
- +69 ;;^UTILITY(U,$J,"PRO",2438,0)
- +70 ;;=GMPL VIEW INACTIVE^Inactive only^^A^^^^^^^^PROBLEM LIST
- +71 ;;^UTILITY(U,$J,"PRO",2438,1,0)
- +72 ;;=^^2^2^2930811^^
- +73 ;;^UTILITY(U,$J,"PRO",2438,1,1,0)
- +74 ;;=This action will screen the problems from the current patient's list
- +75 ;;^UTILITY(U,$J,"PRO",2438,1,2,0)
- +76 ;;=for only those that are currently inactive.
- +77 ;;^UTILITY(U,$J,"PRO",2438,20)
- +78 ;;=S:GMPLVIEW("ACT")'="I" GMPREBLD=1,GMPLVIEW("ACT")="I"
- +79 ;;^UTILITY(U,$J,"PRO",2438,99)
- +80 ;;=55908,59668
- +81 ;;^UTILITY(U,$J,"PRO",2439,0)
- +82 ;;=GMPL VIEW BOTH^Active & Inactive^^A^^^^^^^^PROBLEM LIST
- +83 ;;^UTILITY(U,$J,"PRO",2439,1,0)
- +84 ;;=^^2^2^2930811^^
- +85 ;;^UTILITY(U,$J,"PRO",2439,1,1,0)
- +86 ;;=This action will remove any current screen on problem status and include
- +87 ;;^UTILITY(U,$J,"PRO",2439,1,2,0)
- +88 ;;=problems that are both active and inactive on the display.
- +89 ;;^UTILITY(U,$J,"PRO",2439,20)
- +90 ;;=S:GMPLVIEW("ACT")'="" GMPREBLD=1,GMPLVIEW("ACT")=""
- +91 ;;^UTILITY(U,$J,"PRO",2439,99)
- +92 ;;=55908,59668
- +93 ;;^UTILITY(U,$J,"PRO",2440,0)
- +94 ;;=GMPL EDIT SERVICE^Service or Clinic^^A^^^^^^^^PROBLEM LIST