DGROHLR1 ;GTS/PHH,TDM - ROM HL7 RECEIVE DRIVERS ; 6/26/13 2:37pm
Source file <DGROHLR1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CONVFDA(DFN,DGDATA) | ; LOOP THROUGH DATA TO FILE
|
|
| FILECSTD | ;File CONFIDENTIAL START DATE bypassing FM restrictions
|
|
| FILECNTY | ;*Retrieve county IEN and file county
|
|
| NOCNTY | ||
| FILEPEC | ;File Internal value of Prim Elig Code
|
|
| FILE | ;*Execute FILE or UPDATE per FNUM (1st subscpt) for file # according
|
|
| SETARY | ;* Setup arrays of data to be filed
|
|
| DIS(F,FIELD) | ;Check for disabled
|
|
| CONVERT | ;External to Internal Conversion (clears field if no match found)
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
| ^DIC(8 - [#8] | Classic Fileman Calls |
