| 1 | QAOSCNV6 ;HISC/DAD-DELETE DESCRIPTIONS ;7/19/93 12:45
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | ;;
|
|---|
| 4 | W !!,"Cleaning up OPTION and FIELD descriptions"
|
|---|
| 5 | W !,"-----------------------------------------"
|
|---|
| 6 | W !!,"Working"
|
|---|
| 7 | F QAOSLINE=1:1 S QAOSDATA=$P($T(DATA+QAOSLINE),";;",2) Q:QAOSDATA="" D
|
|---|
| 8 | . W "."
|
|---|
| 9 | . I QAOSDATA'>0 D OPTN Q
|
|---|
| 10 | . E D FLDS Q
|
|---|
| 11 | K QAOSLINE,QAOSDATA,QAOSOPT,QAOSD0,QAOSDD,QAOSFLD,DIE,DA,DR
|
|---|
| 12 | Q
|
|---|
| 13 | OPTN ; *** Delete OPTION file descriptions
|
|---|
| 14 | S QAOSOPT=QAOSDATA,QAOSD0=0
|
|---|
| 15 | F S QAOSD0=$O(^DIC(19,"B",QAOSOPT,QAOSD0)) Q:QAOSD0'>0 D
|
|---|
| 16 | . Q:$P($G(^DIC(19,QAOSD0,0)),"^")'=QAOSOPT
|
|---|
| 17 | . S DIE="^DIC(19,",DA=QAOSD0,DR="3.5///@"
|
|---|
| 18 | . D ^DIE
|
|---|
| 19 | . Q
|
|---|
| 20 | Q
|
|---|
| 21 | FLDS ; *** Delete FIELD descriptions
|
|---|
| 22 | S QAOSDD=$P(QAOSDATA,"^"),QAOSFLD=$P(QAOSDATA,"^",2)
|
|---|
| 23 | Q:$O(^DD(QAOSDD,QAOSFLD,21,0))'>0
|
|---|
| 24 | S DIE="^DD("_QAOSDD_",",DA=QAOSFLD,DR="21///@"
|
|---|
| 25 | D ^DIE
|
|---|
| 26 | Q
|
|---|
| 27 | DATA ;; Option_Name OR DD_Number ^ Field_Number
|
|---|
| 28 | ;;QAOS GENERATE EWS BULLETIN
|
|---|
| 29 | ;;QAOS RPT REVIEW SUMMARY
|
|---|
| 30 | ;;741^19
|
|---|
| 31 | ;;741^22
|
|---|
| 32 | ;;741^28
|
|---|
| 33 | ;;741.01^4
|
|---|
| 34 | ;;741.01^9
|
|---|
| 35 | ;;741.6^.01
|
|---|
