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 |