BPSJZPR ;BHAM ISC/CMW/LJF - Process Incoming HL7 ZPR Message ;01-DEC-2003
Source file <BPSJZPR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(BPSJEN,BPSJSEG,BPSJROOT,BPSFILE) | ;
|
|
| ZPR() | ; Validate Fields and Initialize ZPR variables
|
|
| NOTES(ARRAYIN,TRCH) | ; fProgrammer Notes - Special Code handler
|
|
| NWNODE(FREERAY) | ; build free text array
|
|
| DECODE(INSTR,TCH,WDAT,INSTR1) | ;
; INSTR - Input string ; TCH - translation array ; WDAT - Output in a Vista compliant "Free Text" array ; INSTR1 - Remainder of text when last or ; second to last INSTR char = "\" |
|
| GETPTR(BPDAT) | ; Get pointer into BPS NCPDP FIELD DEFS
|
|
| INITZPRS(ZPRS) | ;BPSEGID^FLN^FLNSC^FLNPN
|
