source: FOIAVistA/tag/r/ASISTS-OOPS/OOPSXV25.m@ 1569

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

initial load of FOIAVistA 6/30/08 version

File size: 543 bytes
Line 
1OOPSXV25 ;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 ;
5ENT ;
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.