|
Last change
on this file since 1520 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
936 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | GMRGCLAS ;HIRMFO/RM-TERM CLASSIFICATION FILE EDIT ;1/23/96
|
|---|
| 2 | ;;3.0;Text Generator;;Jan 24, 1996
|
|---|
| 3 | EN1 ; ENTRY TO ADD DATA TO AGGREGATE TERM FILE IF PACKAGE IS KNOWN
|
|---|
| 4 | ; PACKAGE IN VARIABLE GMRGPK.
|
|---|
| 5 | Q:'$D(GMRGPK)
|
|---|
| 6 | S DIC("S")="I $P(^(0),U,2)=GMRGPK",DIC("A")="Select Classification to be modified: ",DIC="^GMRD(124.25,",DIC(0)="AEQML",DLAYGO=124.25
|
|---|
| 7 | S DIC("DR")="1///^S X=GMRGPK"
|
|---|
| 8 | W ! D ^DIC K DIC Q:+Y'>0 S DA=+Y,DIE="^GMRD(124.25,",DR=".01;2;S:DUZ(0)'=""@"" Y=""@1"";7;8;9;10;@1" D ^DIE
|
|---|
| 9 | G EN1
|
|---|
| 10 | EN2 ; SELECT PACKAGE FOR WHICH ADDING TERMS
|
|---|
| 11 | W !!,"PACKAGE REFERENCE: " R X:DTIME G Q3:"^^"[X!'$T
|
|---|
| 12 | I $L(X)<2!($L(X)>5)!(X?1P.E) W !?5,$C(7),"This is a reference for which to identify which package an aggregate",!?5,"term entry belongs. Answer must be 2-5 characters in length.",!!?5,"References already used include: " D LP G EN2
|
|---|
| 13 | S GMRGPK=X D EN1
|
|---|
| 14 | Q3 K GMRGLP,GMRGPK
|
|---|
| 15 | Q
|
|---|
| 16 | LP ;
|
|---|
| 17 | S X="" F GMRGLP=0:0 S X=$O(^GMRD(124.2,"AA",X)) Q:X="" W !?18,X
|
|---|
| 18 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
