ADEDEDRC.m

ADEDEDRC ; IHS/HQT/MJL - IHS-RPMS/MLQ PROMPT FOR STAFF NAME (VS. DATE) THEN EDITS RECORD ;  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 S DIC("A")="Select Provider: "

 S DIC="^ADEDREC(",DIC(0)="AEMZ",D="C" D IX^DIC

 I Y=-1 K DIC,DIE,DA,D,DR Q

 S DIE=DIC,DA=+Y,DR="[ADED EDIT]" D ^DIE

 G ADEDEDRC

ADEDEDRC  ; IHS/HQT/MJL - IHS-RPMS/MLQ PROMPT FOR STAFF NAME (VS. DATE) THEN EDITS RECORD ;  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2        SET DIC("A")="Select Provider: "

 +3        SET DIC="^ADEDREC("

           SET DIC(0)="AEMZ"

           SET D="C"

           DO IX^DIC

 +4        IF Y=-1

               KILL DIC,DIE,DA,D,DR

               QUIT 

 +5        SET DIE=DIC

           SET DA=+Y

           SET DR="[ADED EDIT]"

           DO ^DIE

 +6        GOTO ADEDEDRC