PSJPAD7U ;BIR/JCH-HL7 RECEIVER OMS PADE POCKET ACTIVITY ;9/3/15 1:34 PM
Source file <PSJPAD7U.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| LOADMSG(PSJOMS,PSJMSH,PSJERR) | ; Load HL7 message into temporary global for processing
|
|
| DECODE | ; parse out data from segments
|
|
| MSH | ; Get Message Identifiers
|
|
| PID | ; Parse PID segment
|
|
| PV1 | ; Parse PV1 segment
|
|
| ORC | ; Parse ORC segment
|
|
| RQD | ; Parse RQD segment
|
|
| ZPM | ; Parse ZPM segment
|
|
| NTE | ; Parse NTE segment
|
|
| ERROR(TEXT,PSPCFG) | ; Log error with PADE inbound HL7 message
|
|
| CHKFLD(FLD,NONZ,LEN,MUMPS,FNAM) | ; Validates a minimum Required fields for Not Null
; Input: (r) FLD = field contents from incoming segment ; (o) NONZ = 1 if want to check for field value is Not 0 ; (o) LEN = length if want to check specific length of field ; (o) MUMPS= executable True/False code to test specific cond. ; (r) FNAM = HL7 field name, i.e. ZPM.3 |
|
| MESSAGE(ERRTXT,PSPCFG) | ;Build message and send to PADE mail group
|
|
| VALSYS(SYS) | ; Validate PADE system SYS. Return PADE INVENTORY SYSTEM (#58.601) file IEN if SYS exists an entry.
|
|
| VALCAB(SYS,CAB) | ; Validate PADE Cabinet CAB for system SYS.
; Return pointer to DISPENSING DEVICE (#1) multiple (sub-file 58.6011) in PADE INVENTORY SYSTEM (#58.601) file. |
|
| USER(PSJOMS,TYPE) | ; Find VistA User DUZ
|
|
| FINDIENS(FILES,VALS) | ; Find IENS for VALS in file/sub-files within FILE
|
|
| FILUSR(PSJPSYS,PSJNAME,PSJPUSR) | ; File PADE user to PADE USER (#58.64) if not already on file
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | FIND1^DIC |
| ^PS(58.601 - [#58.601] | FIND1^DIC, FIND^DIC |
| 58.6011 | FIND^DIC |
