36 lines
996 B
Mathematica
36 lines
996 B
Mathematica
QAOSCNV6 ;HISC/DAD-DELETE DESCRIPTIONS ;7/19/93 12:45
|
|
;;3.0;Occurrence Screen;;09/14/1993
|
|
;;
|
|
W !!,"Cleaning up OPTION and FIELD descriptions"
|
|
W !,"-----------------------------------------"
|
|
W !!,"Working"
|
|
F QAOSLINE=1:1 S QAOSDATA=$P($T(DATA+QAOSLINE),";;",2) Q:QAOSDATA="" D
|
|
. W "."
|
|
. I QAOSDATA'>0 D OPTN Q
|
|
. E D FLDS Q
|
|
K QAOSLINE,QAOSDATA,QAOSOPT,QAOSD0,QAOSDD,QAOSFLD,DIE,DA,DR
|
|
Q
|
|
OPTN ; *** Delete OPTION file descriptions
|
|
S QAOSOPT=QAOSDATA,QAOSD0=0
|
|
F S QAOSD0=$O(^DIC(19,"B",QAOSOPT,QAOSD0)) Q:QAOSD0'>0 D
|
|
. Q:$P($G(^DIC(19,QAOSD0,0)),"^")'=QAOSOPT
|
|
. S DIE="^DIC(19,",DA=QAOSD0,DR="3.5///@"
|
|
. D ^DIE
|
|
. Q
|
|
Q
|
|
FLDS ; *** Delete FIELD descriptions
|
|
S QAOSDD=$P(QAOSDATA,"^"),QAOSFLD=$P(QAOSDATA,"^",2)
|
|
Q:$O(^DD(QAOSDD,QAOSFLD,21,0))'>0
|
|
S DIE="^DD("_QAOSDD_",",DA=QAOSFLD,DR="21///@"
|
|
D ^DIE
|
|
Q
|
|
DATA ;; Option_Name OR DD_Number ^ Field_Number
|
|
;;QAOS GENERATE EWS BULLETIN
|
|
;;QAOS RPT REVIEW SUMMARY
|
|
;;741^19
|
|
;;741^22
|
|
;;741^28
|
|
;;741.01^4
|
|
;;741.01^9
|
|
;;741.6^.01
|