source: FOIAVistA/trunk/r/ASISTS-OOPS/OOPSESP.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 561 bytes
Line 
1OOPSESP ;WIOFO/CAH-EDIT SITE PARAMETER ;2/16/00
2 ;;2.0;ASISTS;;Jun 03, 2002
3 W @IOF
4EDIT 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
14EXIT K DA,DIC,DIE,DR,IEN2262
15 Q
Note: See TracBrowser for help on using the repository browser.