Last change
on this file since 794 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
543 bytes
|
Line | |
---|
1 | OOPSXV25 ;WIOFO/LLH-POST INIT ROUTINE, FILL FIELD 331 ;07/12/04
|
---|
2 | ;;2.0;ASISTS;**8**;Jun 03, 2002
|
---|
3 | ; Patch 8 - auto populate file 2260, field 331
|
---|
4 | ;
|
---|
5 | ENT ;
|
---|
6 | N IEN,FILE,OWCP,OC6,SUF,STR
|
---|
7 | S FILE=2260,IEN=0
|
---|
8 | D BMES^XPDUTL("Updating new OWCP Code field") H 1
|
---|
9 | D MES^XPDUTL(" ")
|
---|
10 | F S IEN=$O(^OOPS(FILE,IEN)) Q:IEN'>0 D
|
---|
11 | .S STR=$G(^OOPS(FILE,IEN,"CA")),OWCP=$$GET1^DIQ(FILE,IEN,70)
|
---|
12 | .S SUF=$P(STR,U,17),OC6=$P(STR,U,18)
|
---|
13 | .I $G(OWCP)'="",$G(OC6)="" S $P(^OOPS(FILE,IEN,"CA"),U,18)=OWCP_SUF
|
---|
14 | D BMES^XPDUTL("Update Complete") H 1
|
---|
15 | D MES^XPDUTL(" ")
|
---|
16 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.