AUM101R1.m

AUM101R1 ;IHS/SD/DMJ,SDR - ICD 9 CODES FOR FY 2010 ; [ 08/18/2003  11:02 AM ]

 ;;10.2;TABLE MAINTENANCE;;MAR 09, 2010

 ;

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^AUM101RL),";",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^AUM101RL),";",3)) D ^DIK KILL DIK

 Q

FILE NEW @($P($T(SVARS^AUM101RL),";",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^AUM101RL),";",3)) D MES^XPDUTL(%)

 Q

IXDIC(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP

 NEW @($P($T(SVARS^AUM101RL),";",3))

 S DIC(0)=DIC0

 KILL DIC0

 I '$G(DLAYGO) KILL DLAYGO

 I X[" " S X(1)=X,X=+$G(X)

 D IX^DIC

 Q Y

AUM101R1  ;IHS/SD/DMJ,SDR - ICD 9 CODES FOR FY 2010 ; [ 08/18/2003  11:02 AM ]

 +1       ;;10.2;TABLE MAINTENANCE;;MAR 09, 2010

 +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^AUM101RL),";",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^AUM101RL),";",3))

           DO ^DIK

           KILL DIK

 +1        QUIT 

FILE       NEW @($PIECE($TEXT(SVARS^AUM101RL),";",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^AUM101RL),";",3))

           DO MES^XPDUTL(%)

 +1        QUIT 

IXDIC(DIC,DIC0,D,X,DLAYGO,DINUM) ;EP

 +1        NEW @($PIECE($TEXT(SVARS^AUM101RL),";",3))

 +2        SET DIC(0)=DIC0

 +3        KILL DIC0

 +4        IF '$GET(DLAYGO)

               KILL DLAYGO

 +5        IF X[" "

               SET X(1)=X

               SET X=+$GET(X)

 +6        DO IX^DIC

 +7        QUIT Y