|
Last change
on this file since 701 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
561 bytes
|
| Line | |
|---|
| 1 | OOPSESP ;WIOFO/CAH-EDIT SITE PARAMETER ;2/16/00
|
|---|
| 2 | ;;2.0;ASISTS;;Jun 03, 2002
|
|---|
| 3 | W @IOF
|
|---|
| 4 | EDIT K DR S DR(1,2262,10)=".01 SITE NAME..............."
|
|---|
| 5 | K DO,DD S DIC="^OOPS(2262,",DIC(0)="AEMQ" D ^DIC G:Y=-1 EXIT
|
|---|
| 6 | ; patch 11 - added .7 below - new field
|
|---|
| 7 | S DR(2,2262.03)=".7;1;2;3;4;5;6"
|
|---|
| 8 | S DIE="^OOPS(2262,",IEN2262=+Y,DA=IEN2262,DR=""
|
|---|
| 9 | ; patch 11 - removed field 1 from input screen - not used.
|
|---|
| 10 | ; S DR(1,2262,20)="1 OWCP AGENCY CODE........"
|
|---|
| 11 | S DR(1,2262,30)="2 OWCP DISTRICT OFFICE...."
|
|---|
| 12 | S DR(1,2262,40)="3" ;MULTIPLE FIELD
|
|---|
| 13 | D ^DIE
|
|---|
| 14 | EXIT K DA,DIC,DIE,DR,IEN2262
|
|---|
| 15 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
