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

GMPLI001.m

Go to the documentation of this file. 
  1. GMPLI001	; ; 25-AUG-1994
  1. 	;;2.0;Problem List;;Aug 25, 1994
  1. 	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
  1. Q	Q
  1. 	;;^DIC(49,0,"GL")
  1. 	;;=^DIC(49,
  1. 	;;^DIC("B","SERVICE/SECTION",49)
  1. 	;;=
  1. 	;;^DIC(49,"%",0)
  1. 	;;=^1.005^2^2
  1. 	;;^DIC(49,"%",1,0)
  1. 	;;=QAP
  1. 	;;^DIC(49,"%",2,0)
  1. 	;;=QAM
  1. 	;;^DIC(49,"%","B","QAM",2)
  1. 	;;=
  1. 	;;^DIC(49,"%","B","QAP",1)
  1. 	;;=
  1. 	;;^DIC(49,"%D",0)
  1. 	;;=^^9^9^2900724^^^
  1. 	;;^DIC(49,"%D",1,0)
  1. 	;;=This file is a list of the services and sections within the services.
  1. 	;;^DIC(49,"%D",2,0)
  1. 	;;=Some of the entries may be 'MIS COSTING SECTIONS' for use with the
  1. 	;;^DIC(49,"%D",3,0)
  1. 	;;=cost accounting part of the Management Information System software.
  1. 	;;^DIC(49,"%D",4,0)
  1. 	;;=A section is an MIS section if there is a code entered in the field
  1. 	;;^DIC(49,"%D",5,0)
  1. 	;;=called MIS COSTING CODE.  In the cost accounting system all medical
  1. 	;;^DIC(49,"%D",6,0)
  1. 	;;=center costs will be tied to a particular section.  When MIS sections
  1. 	;;^DIC(49,"%D",7,0)
  1. 	;;=change, do not delete the old section.  Instead, change the fields under
  1. 	;;^DIC(49,"%D",8,0)
  1. 	;;=the multiple field called "DATE CLOSED" to identify which sections are
  1. 	;;^DIC(49,"%D",9,0)
  1. 	;;=no longer in use.
  1. 	;;^DD(49,0)
  1. 	;;=FIELD^NL^16000^19
  1. 	;;^DD(49,0,"DDA")
  1. 	;;=N
  1. 	;;^DD(49,0,"DT")
  1. 	;;=2930202
  1. 	;;^DD(49,0,"ID",1.5)
  1. 	;;=W "   ",$P(^(0),U,8)
  1. 	;;^DD(49,0,"ID",1.6)
  1. 	;;=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
  1. 	;;^DD(49,0,"IX","AC",49,10)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","ACHLD",49,1.6)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","AD",49,10)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","B",49,.01)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","C",49,1)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","D",49,1.5)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","D",49.01,.01)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","E",49,9)
  1. 	;;=
  1. 	;;^DD(49,0,"IX","F",49,1.7)
  1. 	;;=
  1. 	;;^DD(49,0,"NM","SERVICE/SECTION")
  1. 	;;=
  1. 	;;^DD(49,0,"PT",3,29)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",43,919)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",45.7,2)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",49,1.6)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",59,1003)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",70.03,7)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",123.5,123.07)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",200,29)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",350.1,.04)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",350.9,1.14)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",410,6.3)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",420.01,.5)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",421.51,.01)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",430,101)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",430.4,4)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",442,5.2)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",443.6,5.2)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",445.011,.01)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",743,1)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",605571.01,3)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",605571.01,6)
  1. 	;;=
  1. 	;;^DD(49,0,"PT",9000011,1.06)
  1. 	;;=
  1. 	;;^DD(49,.01,0)
  1. 	;;=NAME^R^^0;1^K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  1. 	;;^DD(49,.01,1,0)
  1. 	;;=^.1
  1. 	;;^DD(49,.01,1,1,0)
  1. 	;;=49^B
  1. 	;;^DD(49,.01,1,1,1)
  1. 	;;=S ^DIC(49,"B",$E(X,1,30),DA)=""
  1. 	;;^DD(49,.01,1,1,2)
  1. 	;;=K ^DIC(49,"B",$E(X,1,30),DA)
  1. 	;;^DD(49,.01,3)
  1. 	;;=NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  1. 	;;^DD(49,.01,21,0)
  1. 	;;=^^1^1^2910114^
  1. 	;;^DD(49,.01,21,1,0)
  1. 	;;=Enter Service or Section name.
  1. 	;;^DD(49,.01,"DT")
  1. 	;;=2901214
  1. 	;;^DD(49,1.6,0)
  1. 	;;=PARENT SERVICE^P49'^DIC(49,^0;4^Q
  1. 	;;^DD(49,1.6,1,0)
  1. 	;;=^.1
  1. 	;;^DD(49,1.6,1,1,0)
  1. 	;;=49^ACHLD
  1. 	;;^DD(49,1.6,1,1,1)
  1. 	;;=S ^DIC(49,"ACHLD",$E(X,1,30),DA)=""
  1. 	;;^DD(49,1.6,1,1,2)
  1. 	;;=K ^DIC(49,"ACHLD",$E(X,1,30),DA)
  1. 	;;^DD(49,1.6,1,1,"%D",0)
  1. 	;;=^^2^2^2930426^
  1. 	;;^DD(49,1.6,1,1,"%D",1,0)
  1. 	;;=If a selected  service is a 'parent' service, then all subordinate
  1. 	;;^DD(49,1.6,1,1,"%D",2,0)
  1. 	;;=services may be retrieved as well upon selection via this cross-reference.
  1. 	;;^DD(49,1.6,1,1,"DT")
  1. 	;;=2930426
  1. 	;;^DD(49,1.6,3)
  1. 	;;=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.