MCPRGEN.m

MCPRGEN ;HCIOFO/JCC-PRE INSTALL FOR G.P. (PATCH 8);5/23/97  09:21

 ;;2.3;Medicine;**8**;09/13/1996

EN ;Delete two screens for Generalized Procedure

 N Y

 S Y=$O(^MCAR(697.3,"B","MCFSGEN",0)) G NEXT:Y=""

 S DIK="^MCAR(697.3,",DA=Y D ^DIK

NEXT S Y=$O(^MCAR(697.3,"B","MCBSGEN",0)) G EXIT:Y=""

 S DIK="^MCAR(697.3,",DA=Y D ^DIK

EXIT K DIK,DA

 Q

MCPRGEN   ;HCIOFO/JCC-PRE INSTALL FOR G.P. (PATCH 8);5/23/97  09:21

 +1       ;;2.3;Medicine;**8**;09/13/1996

EN        ;Delete two screens for Generalized Procedure

 +1        NEW Y

 +2        SET Y=$ORDER(^MCAR(697.3,"B","MCFSGEN",0))

           IF Y=""

               GOTO NEXT

 +3        SET DIK="^MCAR(697.3,"

           SET DA=Y

           DO ^DIK

NEXT       SET Y=$ORDER(^MCAR(697.3,"B","MCBSGEN",0))

           IF Y=""

               GOTO EXIT

 +1        SET DIK="^MCAR(697.3,"

           SET DA=Y

           DO ^DIK

EXIT       KILL DIK,DA

 +1        QUIT