- AUM111R1 ;IHS/SD/RNB - ICD 9 CODES FOR FY 2012 ; [ 09/09/2010 8:30 AM ]
- ;;12.0;TABLE MAINTENANCE;;SEP 27,2011
- ;
- ADDFAIL D RSLT($J("",5)_$$M(0)_"ADD FAILED => "_L)
- Q
- DASH D RSLT(""),RSLT($$REPEAT^XLFSTR("-",$S($G(IOM):IOM-10,1:70))),RSLT("")
- Q
- DIE ;EP
- NEW @($P($T(SVARS^AUM111RL),";",3))
- LOCK +(@(DIE_DA_")")):10 E D RSLT($J("",5)_$$M(0)_"Entry '"_DIE_DA_"' IS LOCKED. NOTIFY PROGRAMMER.") S Y=1 Q
- D ^DIE LOCK -(@(DIE_DA_")")) KILL DA,DIE,DR
- Q
- DIK NEW @($P($T(SVARS^AUM111RL),";",3)) D ^DIK KILL DIK
- Q
- FILE NEW @($P($T(SVARS^AUM111RL),";",3)) K DD,DO S DIC(0)="L" D FILE^DICN KILL DIC
- Q
- M(%) Q $S(%=0:"ERROR : ",%=1:"NOT ADDED : ",1:"")
- MODOK D RSLT($J("",5)_"Changed : "_L)
- Q
- RSLT(%) S ^(0)=$G(^TMP("AUM2104",$J,0))+1,^(^(0))=% D MES(%)
- Q
- MES(%) NEW @($P($T(SVARS^AUM111RL),";",3)) D MES^XPDUTL(%)
- Q
- IXDIC(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP
- NEW @($P($T(SVARS^AUM111RL),";",3))
- S DIC(0)=DIC0
- KILL DIC0
- I '$G(DLAYGO) KILL DLAYGO
- ;;I X[" " S X(1)=X,X=$P(X," ",1) ;X=+$G(X)
- I X[" " S X(1)=X
- D IX^DIC
- Q Y
- IXDIC2(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP
- NEW @($P($T(SVARS^AUM111RL),";",3))
- S DIC(0)=DIC0
- KILL DIC0
- I '$G(DLAYGO) KILL DLAYGO
- I X[" " S X(1)=X
- D IX^DIC
- Q Y
- IXDIC3(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP
- NEW @($P($T(SVARS^AUM111RL),";",3))
- S DIC(0)=DIC0
- KILL DIC0
- I '$G(DLAYGO) KILL DLAYGO
- I X[" " S X(1)=X,X=$P(X," ",1) ;X=+$G(X)
- D IX^DIC
- Q Y
- AUM111R1 ;IHS/SD/RNB - ICD 9 CODES FOR FY 2012 ; [ 09/09/2010 8:30 AM ]
- +1 ;;12.0;TABLE MAINTENANCE;;SEP 27,2011
- +2 ;
- ADDFAIL DO RSLT($JUSTIFY("",5)_$$M(0)_"ADD FAILED => "_L)
- +1 QUIT
- DASH DO RSLT("")
- DO RSLT($$REPEAT^XLFSTR("-",$SELECT($GET(IOM):IOM-10,1:70)))
- DO RSLT("")
- +1 QUIT
- DIE ;EP
- +1 NEW @($PIECE($TEXT(SVARS^AUM111RL),";",3))
- +2 LOCK +(@(DIE_DA_")")):10
- IF '$TEST
- DO RSLT($JUSTIFY("",5)_$$M(0)_"Entry '"_DIE_DA_"' IS LOCKED. NOTIFY PROGRAMMER.")
- SET Y=1
- QUIT
- +3 DO ^DIE
- LOCK -(@(DIE_DA_")"))
- KILL DA,DIE,DR
- +4 QUIT
- DIK NEW @($PIECE($TEXT(SVARS^AUM111RL),";",3))
- DO ^DIK
- KILL DIK
- +1 QUIT
- FILE NEW @($PIECE($TEXT(SVARS^AUM111RL),";",3))
- KILL DD,DO
- SET DIC(0)="L"
- DO FILE^DICN
- KILL DIC
- +1 QUIT
- M(%) QUIT $SELECT(%=0:"ERROR : ",%=1:"NOT ADDED : ",1:"")
- MODOK DO RSLT($JUSTIFY("",5)_"Changed : "_L)
- +1 QUIT
- RSLT(%) SET ^(0)=$GET(^TMP("AUM2104",$JOB,0))+1
- SET ^(^(0))=%
- DO MES(%)
- +1 QUIT
- MES(%) NEW @($PIECE($TEXT(SVARS^AUM111RL),";",3))
- DO MES^XPDUTL(%)
- +1 QUIT
- IXDIC(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP
- +1 NEW @($PIECE($TEXT(SVARS^AUM111RL),";",3))
- +2 SET DIC(0)=DIC0
- +3 KILL DIC0
- +4 IF '$GET(DLAYGO)
- KILL DLAYGO
- +5 ;;I X[" " S X(1)=X,X=$P(X," ",1) ;X=+$G(X)
- +6 IF X[" "
- SET X(1)=X
- +7 DO IX^DIC
- +8 QUIT Y
- IXDIC2(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP
- +1 NEW @($PIECE($TEXT(SVARS^AUM111RL),";",3))
- +2 SET DIC(0)=DIC0
- +3 KILL DIC0
- +4 IF '$GET(DLAYGO)
- KILL DLAYGO
- +5 IF X[" "
- SET X(1)=X
- +6 DO IX^DIC
- +7 QUIT Y
- IXDIC3(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP
- +1 NEW @($PIECE($TEXT(SVARS^AUM111RL),";",3))
- +2 SET DIC(0)=DIC0
- +3 KILL DIC0
- +4 IF '$GET(DLAYGO)
- KILL DLAYGO
- +5 ;X=+$G(X)
- IF X[" "
- SET X(1)=X
- SET X=$PIECE(X," ",1)
- +6 DO IX^DIC
- +7 QUIT Y