- 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