|
Last change
on this file since 846 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
543 bytes
|
| Rev | Line | |
|---|
| [613] | 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.
