Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: GMPLO009

GMPLO009.m

Go to the documentation of this file.
  1. GMPLO009 ; ; 25-AUG-1994
  1. ;;2.0;Problem List;;Aug 25, 1994
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,"PRO",2531,1,5,0)
  1. ;;=problem(s) or change which problems appear on the displayed view of the
  1. ;;^UTILITY(U,$J,"PRO",2531,1,6,0)
  1. ;;=list. A new patient's list may be selected or a printout of the list
  1. ;;^UTILITY(U,$J,"PRO",2531,1,7,0)
  1. ;;=generated.
  1. ;;^UTILITY(U,$J,"PRO",2531,4)
  1. ;;=26^4
  1. ;;^UTILITY(U,$J,"PRO",2531,10,0)
  1. ;;=^101.01PA^11^12
  1. ;;^UTILITY(U,$J,"PRO",2531,10,1,0)
  1. ;;=2350^SP^23^^^
  1. ;;^UTILITY(U,$J,"PRO",2531,10,1,"^")
  1. ;;=GMPL PATIENT
  1. ;;^UTILITY(U,$J,"PRO",2531,10,2,0)
  1. ;;=2345^AD^1
  1. ;;^UTILITY(U,$J,"PRO",2531,10,2,"^")
  1. ;;=GMPL NEW PROBLEM
  1. ;;^UTILITY(U,$J,"PRO",2531,10,3,0)
  1. ;;=2347^CM^13^^^
  1. ;;^UTILITY(U,$J,"PRO",2531,10,3,1)
  1. ;;=^^^
  1. ;;^UTILITY(U,$J,"PRO",2531,10,3,"^")
  1. ;;=GMPL ANNOTATE
  1. ;;^UTILITY(U,$J,"PRO",2531,10,4,0)
  1. ;;=2356^IN^11
  1. ;;^UTILITY(U,$J,"PRO",2531,10,4,"^")
  1. ;;=GMPL INACTIVATE
  1. ;;^UTILITY(U,$J,"PRO",2531,10,5,0)
  1. ;;=2348^DT^15
  1. ;;^UTILITY(U,$J,"PRO",2531,10,5,"^")
  1. ;;=GMPL DETAILED DISPLAY
  1. ;;^UTILITY(U,$J,"PRO",2531,10,6,0)
  1. ;;=2362^ED^5
  1. ;;^UTILITY(U,$J,"PRO",2531,10,6,"^")
  1. ;;=GMPL EDIT PROBLEM
  1. ;;^UTILITY(U,$J,"PRO",2531,10,7,0)
  1. ;;=2422^RM^3
  1. ;;^UTILITY(U,$J,"PRO",2531,10,7,"^")
  1. ;;=GMPL DELETE
  1. ;;^UTILITY(U,$J,"PRO",2531,10,8,0)
  1. ;;=2802^VW^21
  1. ;;^UTILITY(U,$J,"PRO",2531,10,8,"^")
  1. ;;=GMPL VIEW
  1. ;;^UTILITY(U,$J,"PRO",2531,10,9,0)
  1. ;;=2357^^7
  1. ;;^UTILITY(U,$J,"PRO",2531,10,9,"^")
  1. ;;=GMPLX BLANK1
  1. ;;^UTILITY(U,$J,"PRO",2531,10,10,0)
  1. ;;=2355^PP^25
  1. ;;^UTILITY(U,$J,"PRO",2531,10,10,"^")
  1. ;;=GMPL PRINT
  1. ;;^UTILITY(U,$J,"PRO",2531,10,11,0)
  1. ;;=2494^$^17^^^
  1. ;;^UTILITY(U,$J,"PRO",2531,10,11,"^")
  1. ;;=GMPL VERIFY
  1. ;;^UTILITY(U,$J,"PRO",2531,20)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",2531,24)
  1. ;;=I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),"^"),24)) ^(24)
  1. ;;^UTILITY(U,$J,"PRO",2531,25,0)
  1. ;;=2494
  1. ;;^UTILITY(U,$J,"PRO",2531,25,2)
  1. ;;=CF
  1. ;;^UTILITY(U,$J,"PRO",2531,26)
  1. ;;=D KEYS^GMPLMGR1,SHOW^VALM S:'$G(GMPCOUNT) XQORM("B")="Add New Problems"
  1. ;;^UTILITY(U,$J,"PRO",2531,28)
  1. ;;=Select Action:
  1. ;;^UTILITY(U,$J,"PRO",2531,99)
  1. ;;=56019,56192
  1. ;;^UTILITY(U,$J,"PRO",2531,"B",2494,25)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",2532,0)
  1. ;;=GMPL VIEW ALL PROV^All Providers^^A^^^^^^^^PROBLEM LIST
  1. ;;^UTILITY(U,$J,"PRO",2532,1,0)
  1. ;;=^^2^2^2930811^^
  1. ;;^UTILITY(U,$J,"PRO",2532,1,1,0)
  1. ;;=This action will remove any current screen on primary providers of care
  1. ;;^UTILITY(U,$J,"PRO",2532,1,2,0)
  1. ;;=for problems, and include problems being treated by all providers.
  1. ;;^UTILITY(U,$J,"PRO",2532,20)
  1. ;;=S:GMPLVIEW("PROV")'=0 GMPLVIEW("PROV")=0,GMPREBLD=1
  1. ;;^UTILITY(U,$J,"PRO",2532,99)
  1. ;;=55908,59667
  1. ;;^UTILITY(U,$J,"PRO",2533,0)
  1. ;;=GMPL VIEW ALL SERV^All Services^^A^^^^^^^^PROBLEM LIST
  1. ;;^UTILITY(U,$J,"PRO",2533,1,0)
  1. ;;=^^2^2^2930811^^
  1. ;;^UTILITY(U,$J,"PRO",2533,1,1,0)
  1. ;;=This action will remove any current screen on services associated with
  1. ;;^UTILITY(U,$J,"PRO",2533,1,2,0)
  1. ;;=problems, and include problems being treated by all services.
  1. ;;^UTILITY(U,$J,"PRO",2533,20)
  1. ;;=S:"S"'[GMPLVIEW("VIEW") GMPLVIEW("VIEW")="S",GMPREBLD=1
  1. ;;^UTILITY(U,$J,"PRO",2533,24)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PRO",2533,99)
  1. ;;=55908,59668
  1. ;;^UTILITY(U,$J,"PRO",2534,0)
  1. ;;=GMPL USER PREFS^Preferred View of Problem List^^M^^^^^^^^PROBLEM LIST
  1. ;;^UTILITY(U,$J,"PRO",2534,1,0)
  1. ;;=^^6^6^2930811^^
  1. ;;^UTILITY(U,$J,"PRO",2534,1,1,0)
  1. ;;=This menu contains actions allowing a user to change his/her preferred
  1. ;;^UTILITY(U,$J,"PRO",2534,1,2,0)
  1. ;;=view of patient problem lists. A set of services may be defined here
  1. ;;^UTILITY(U,$J,"PRO",2534,1,3,0)
  1. ;;=that will be used as a default screen when displaying patient problem