ACHSDALT.m

ACHSDALT ;IHS/OIT/FCJ - ADD ALT REC INFO

 ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**6**;JUNE 11, 2001

 ;;ACHS*3.1*18 New Routine

 ;

ALTTYP ;Add Alt Resource type

 ;

 W !!

 Q:'$D(^ACHSDENS("B","Alternate Resource Available"))

 S DA(1)=0

 S DA(1)=$O(^ACHSDENS("B","Alternate Resource Available",0))

 S (DIC,DIE)="^ACHSDENS("_DA(1)_",30,"

 S DIC(0)="AQEML"

 D ^DIC

 Q:Y<1

 S DA=+Y

 W !,"New Alternate Resource Type Added:  ",X

 D ^XBFMK

 Q

ACHSDALT  ;IHS/OIT/FCJ - ADD ALT REC INFO

 +1       ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**6**;JUNE 11, 2001

 +2       ;;ACHS*3.1*18 New Routine

 +3       ;

ALTTYP    ;Add Alt Resource type

 +1       ;

 +2        WRITE !!

 +3        IF '$DATA(^ACHSDENS("B","Alternate Resource Available"))

               QUIT 

 +4        SET DA(1)=0

 +5        SET DA(1)=$ORDER(^ACHSDENS("B","Alternate Resource Available",0))

 +6        SET (DIC,DIE)="^ACHSDENS("_DA(1)_",30,"

 +7        SET DIC(0)="AQEML"

 +8        DO ^DIC

 +9        IF Y<1

               QUIT 

 +10       SET DA=+Y

 +11       WRITE !,"New Alternate Resource Type Added:  ",X

 +12       DO ^XBFMK

 +13       QUIT