source: WorldVistAEHR/trunk/r/VISTA_OFFICE_EHR-VEPE/VEPERI5.m@ 975

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

initial load of WorldVistAEHR

File size: 659 bytes
Line 
1VEPERI5 ;DAOU/WCJ - Incoming HL7 messages ;2-MAY-2005
2 ;;1.0;VOEB;;Jun 12, 2005
3 ;;;VISTA OFFICE/EHR;
4 ;;Per VHA Directive 10-93-142, this routine should not be modified.
5 ;
6 ;**Program Description**
7 ; File Patient Data
8 ;
9 Q
10 ;
11FILEPAT(HLP,HLF,DFN,IEN,FE,HLMTIEN) ;
12 N FDA,FILE,FIELD,ERR,SETID
13 S SETID=1000
14 F FILE=2,9000001 D Q:FE
15 . K FDA
16 . S FIELD=0 F S FIELD=$O(HLF("DATA",FILE,FIELD)) Q:FIELD="" D
17 .. Q:'$D(HLF("DATA",FILE,FIELD,SETID))
18 .. S IEN=DFN_","
19 .. S FDA(FILE,IEN,FIELD)=HLF("DATA",FILE,FIELD,SETID)
20 . Q:'$D(FDA)
21 . D FILE^DIE("EKT","FDA","ERR")
22 . I $D(ERR) S FE=$$FATALERR^VEPERI6(1,"DATA","FILING ERROR FILEPAT",HLMTIEN,.HLP) Q
23 Q
Note: See TracBrowser for help on using the repository browser.