source: WorldVistAEHR/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSCNV6.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 996 bytes
Line 
1QAOSCNV6 ;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
13OPTN ; *** 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
21FLDS ; *** 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
27DATA ;; 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
Note: See TracBrowser for help on using the repository browser.