PSOTPHL1 ;BPFO/EL-CREATE HL7 BATCH MESSAGE FILE ;09/10/03
Source file <PSOTPHL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ||
| DATE | ; Check if first time run or Sunday
|
|
| GDATE | ||
| INIT | ; Variable Initialization
|
|
| INHL7 | ||
| INHD | ||
| BHS | ; CREATE "BHS" SEGMENT
|
|
| EN(RDT,EDT,SDT) | ; ENTRY POINT FOR PROCESS
|
|
| PROCESS | ; Sort and Process the message body
|
|
| P10 | ||
| P20 | ||
| FRTIME | ; To generate a complete data set for the frist time
|
|
| F10 | ||
| P30 | ||
| DFN | ||
| GEN | ||
| EXTRACT | ; Extract data from File 52.91
|
|
| MSH | ; CREATE "MSH" SEGMENT
|
|
| SCH | ; CREATE "SCH" SEGMENT
|
|
| PID | ; CREATE "PID" SEGMENT
|
|
| BTS | ; CREATE "BTS" SEGMENT
|
|
| WRITE | ; Write single line
|
|
| WRITEN | ; Write multiple lines
|
|
| CLEANUP | ; Clean up variables
|
|
| OUT | ; End of compilation
|
|
| END | ||
| ENDS | ||
| RESET | ; Reset to run tomorrow
|
|
| RESET1 | ; Reset to run tomorrow
|
|
| ;Send mail message
|
||
| FAIL | ; Msg for unsuccessful run
|
|
| SUCC | ; Msg for successful run
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
