- 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 Feb 18, 2025@23:25:50 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