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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HMCPRGEN 352 printed Dec 13, 2024@02:16:47 Page 2
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
