QAN26PRE ;;WCIOFO/ERC - Pre-install for QAN*2*26 ;7/23/99
;;2.0;Incident Reporting;**26**;08/07/1992
;
;This routine will eliminate two fields from the QA INCIDENTS FILE
;(file 742.1) that refer to regions. It will also set to null the
;data in these fields. The fields are .03 - E-MAIL TO REGION and
;.05 NOTIFY RD BY PHONE (IMMEDIATE).
;
NULL ;sets to null any data in .03 or .05
N QANAA
S QANAA=0
F S QANAA=$O(^QA(742.1,QANAA)) Q:QANAA'>0 D
. S $P(^QA(742.1,QANAA,0),U,3)=""
. S $P(^QA(742.1,QANAA,0),U,5)=""
;
DELE ;delete the fields
S DIK="^DD(742.1,",DA(1)=742.1
F DA=.03,.05 D ^DIK
K DA,DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAN26PRE 641 printed Sep 23, 2025@19:35:34 Page 2
QAN26PRE ;;WCIOFO/ERC - Pre-install for QAN*2*26 ;7/23/99
+1 ;;2.0;Incident Reporting;**26**;08/07/1992
+2 ;
+3 ;This routine will eliminate two fields from the QA INCIDENTS FILE
+4 ;(file 742.1) that refer to regions. It will also set to null the
+5 ;data in these fields. The fields are .03 - E-MAIL TO REGION and
+6 ;.05 NOTIFY RD BY PHONE (IMMEDIATE).
+7 ;
NULL ;sets to null any data in .03 or .05
+1 NEW QANAA
+2 SET QANAA=0
+3 FOR
SET QANAA=$ORDER(^QA(742.1,QANAA))
if QANAA'>0
QUIT
Begin DoDot:1
+4 SET $PIECE(^QA(742.1,QANAA,0),U,3)=""
+5 SET $PIECE(^QA(742.1,QANAA,0),U,5)=""
End DoDot:1
+6 ;
DELE ;delete the fields
+1 SET DIK="^DD(742.1,"
SET DA(1)=742.1
+2 FOR DA=.03,.05
DO ^DIK
+3 KILL DA,DIK
+4 QUIT
