DGROHLR1 ;GTS/PHH,TDM - ROM HL7 RECEIVE DRIVERS ; 10/20/10 2:47pm
Source file <DGROHLR1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 4 | ^%DT (,FIND)^DIC (FILE,UPDATE)^DIE $$GET1^DIQ |
Name | Comments | DBIA/ICR reference |
---|---|---|
FILEPEC | ;File Internal value of Prim Elig Code
|
|
CONVERT | ;External to Internal Conversion (clears field if no match found)
|
|
FILECNTY | ;*Retrieve county IEN and file county
|
|
NOCNTY | ||
SETARY | ;* Setup arrays of data to be filed
|
|
DIS(F,FIELD) | ;Check for disabled
|
|
FILE | ;*Execute FILE or UPDATE per FNUM (1st subscpt) for file # according
|
|
FILECSTD | ;File CONFIDENTIAL START DATE bypassing FM restrictions
|
|
CONVFDA(DFN,DGDATA) | ; LOOP THROUGH DATA TO FILE
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^DIC(8 - [#8] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGRO(391.23 - [#391.23] | CONVFDA+14, CONVFDA+24, SETARY+3, DIS+1, DIS+2 |
^DIC(23 - [#23] | CONVERT+7 |
^DIC(25 - [#25] | CONVERT+12 |
^DPT - [#2] | FILECNTY+2, FILECNTY+3, FILECNTY+4 |
Name | Line Occurrences |
---|---|
$$DIS | CONVFDA+23 |
CONVERT | FILE+13 |
FILE | CONVFDA+31 |
FILECNTY | CONVFDA+30 |
FILECSTD | CONVFDA+28 |
FILEPEC | CONVFDA+29 |
NOCNTY | FILECNTY+8, FILECNTY+9 |
SETARY | CONVFDA+25 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | FILECSTD+4*, FILECSTD+8!, FILE+3! |
BOS | CONVERT+1~, CONVERT+6*, CONVERT+7 |
COMP | CONVERT+1~, CONVERT+16*, CONVERT+18, CONVERT+19, CONVERT+20 |
D | SETARY+1~, SETARY+8*, SETARY+9 |
DATA | SETARY+1~, SETARY+11*, SETARY+12, SETARY+26, SETARY+33, SETARY+41, SETARY+50, SETARY+58, SETARY+61*, SETARY+65 |
DATA30 | SETARY+46~, SETARY+50*, SETARY+52 |
DATACOMP | SETARY+46~, SETARY+57*, SETARY+58 |
DATE | CONVERT+1~ |
DFN | CONVFDA~, CONVFDA+11, FILECNTY+2, FILECNTY+3, FILECNTY+4, FILE+31, SETARY+72 |
DFNC | CONVFDA+1~, CONVFDA+11*, FILECSTD+2, FILECSTD+3, FILECSTD+5, FILECSTD+7, FILECNTY+9, FILECNTY+12, FILECNTY+14, NOCNTY , FILEPEC+4, FILEPEC+7, FILEPEC+9, FILEPEC+11, SETARY+8, SETARY+26, SETARY+40, SETARY+64 |
DGDATA | CONVFDA~, CONVFDA+18, CONVFDA+20, CONVFDA+22, SETARY+9, SETARY+11, SETARY+27, SETARY+34, SETARY+42, SETARY+66 , SETARY+70, SETARY+73, SETARY+74, SETARY+75 |
DGIEN | FILE+16~, FILE+19*, FILE+20 |
DGIEN2 | FILE+16~, FILE+20*, FILE+22 |
DGROAR | CONVFDA+1~, CONVFDA+15*, CONVFDA+31, FILECSTD+2, FILECSTD+3, FILECSTD+7, FILECNTY+9, FILECNTY+12, NOCNTY, FILEPEC+4 , FILEPEC+7, FILEPEC+11, FILE+2, FILE+18, FILE+21, FILE+34, SETARY+26, SETARY+33, SETARY+41, SETARY+65 , SETARY+72, SETARY+74, CONVERT+3, CONVERT+5, CONVERT+6, CONVERT+8, CONVERT+10, CONVERT+11, CONVERT+13, CONVERT+15 , CONVERT+16, CONVERT+21, CONVERT+23, CONVERT+24, CONVERT+26, CONVERT+28, CONVERT+29, CONVERT+31, CONVERT+32, CONVERT+33 , CONVERT+35 |
DGROARBI | FILE+30~ |
DGROARBI(1 | FILE+31* |
DGROCST | FILECSTD+8! |
DGROCST( | FILECSTD+5* |
DGROCTY | NOCNTY+1! |
DGROCTY( | FILECNTY+14* |
DGRODNUM | FILE+16~, FILE+17*, FILE+18*, FILE+19, FILE+21 |
DGROIEN | FILE+16~ |
DGROIEN( | FILE+22* |
DGRONUPD | CONVFDA+1~, CONVFDA+13* |
DGROPEC | FILEPEC+12! |
DGROPEC( | FILEPEC+9* |
DIC | FILECNTY+10*, FILEPEC+5*, FILEPEC+12! |
DIC(0 | FILECNTY+11*, FILEPEC+6* |
DISCH | CONVERT+1~, CONVERT+11*, CONVERT+12 |
DNUMDATA | FILE+16~, FILE+21*, FILE+22 |
ERR | SETARY+46~ |
F | CONVFDA+1~, CONVFDA+17*, CONVFDA+18*, CONVFDA+20, CONVFDA+22, CONVFDA+23, CONVFDA+24, CONVFDA+27, FILECSTD+2, FILECSTD+3 , FILECSTD+5, FILECSTD+7, FILECNTY+9, FILECNTY+12, FILECNTY+14, NOCNTY, FILEPEC+4, FILEPEC+7, FILEPEC+9, FILEPEC+11 , SETARY+3, SETARY+8, SETARY+9, SETARY+11, SETARY+25, SETARY+26, SETARY+27, SETARY+32, SETARY+33, SETARY+34 , SETARY+38, SETARY+41, SETARY+42, SETARY+45, SETARY+47, SETARY+48, SETARY+65, SETARY+66, SETARY+69, SETARY+70 , SETARY+72, SETARY+73, SETARY+74, SETARY+75, DIS~, DIS+1, CONVERT+1~, CONVERT+2*, CONVERT+3, CONVERT+5 , CONVERT+6, CONVERT+8, CONVERT+10, CONVERT+11, CONVERT+13, CONVERT+15, CONVERT+16, CONVERT+21, CONVERT+23, CONVERT+24 , CONVERT+26, CONVERT+28, CONVERT+29, CONVERT+31, CONVERT+32, CONVERT+33, CONVERT+35 |
FIELD | CONVFDA+1~, CONVFDA+21*, CONVFDA+22*, CONVFDA+23, CONVFDA+24, CONVFDA+28, CONVFDA+29, CONVFDA+30, FILECSTD+2, FILECSTD+3 , FILECSTD+5, FILECSTD+7, FILECNTY+2, FILECNTY+3, FILECNTY+4, FILECNTY+9, FILECNTY+12, FILECNTY+14, NOCNTY, FILEPEC+4 , FILEPEC+7, FILEPEC+9, FILEPEC+11, SETARY+3, SETARY+8, SETARY+9, SETARY+11, SETARY+26, SETARY+27, SETARY+33 , SETARY+34, SETARY+41, SETARY+42, SETARY+47, SETARY+48, SETARY+49, SETARY+65, SETARY+66, SETARY+71*, SETARY+72 , SETARY+73*, SETARY+74, SETARY+76*, DIS~, DIS+1 |
FNUM | CONVFDA+1~, FILE+2*, FILE+6, FILE+10, FILE+12, FILE+15, FILE+18, FILE+21, FILE+28, FILE+29 |
IEN | CONVFDA+1~, CONVFDA+19*, CONVFDA+20*, CONVFDA+22, SETARY+9, SETARY+11, SETARY+27, SETARY+34, SETARY+40, SETARY+42 , SETARY+64, SETARY+66, SETARY+73, SETARY+74, SETARY+75 |
INACTIVE | SETARY+46~, SETARY+55*, SETARY+56, SETARY+60 |
INENNUM | SETARY+1~, SETARY+23* |
INTERNAL | CONVERT+1~, CONVERT+7*, CONVERT+8, CONVERT+12*, CONVERT+13, CONVERT+17*, CONVERT+18*, CONVERT+19*, CONVERT+20*, CONVERT+21 , CONVERT+25*, CONVERT+26 |
INX | CONVFDA+1~, CONVFDA+12*, CONVFDA+14*, CONVFDA+15, CONVFDA+25, CONVFDA+27, SETARY+23 |
LOCK | CONVERT+1~, CONVERT+24*, CONVERT+25 |
NODE | SETARY+1~, SETARY+51*, SETARY+53*, SETARY+54, SETARY+55, SETARY+57 |
NODE2 | SETARY+1~, SETARY+39*, SETARY+40*, SETARY+41, SETARY+63*, SETARY+64*, SETARY+65 |
>> ORDINX | CONVFDA+24*, CONVFDA+25, CONVFDA+27 |
QFL | SETARY+46~, SETARY+51*, SETARY+53, SETARY+58*, SETARY+59 |
QVAR | CONVFDA+1~, CONVFDA+16*, CONVFDA+31* |
REFILE | SETARY+46~, SETARY+47*, SETARY+48*, SETARY+49*, SETARY+52 |
REIEN | SETARY+46~, SETARY+51*, SETARY+54*, SETARY+61 |
STATEIEN | FILECNTY+2*, FILECNTY+3*, FILECNTY+4*, FILECNTY+8, FILECNTY+10, NOCNTY+1! |
SUB | DIS+1~*, DIS+2, CONVERT+1~, CONVERT+2*, CONVERT+3*, CONVERT+5, CONVERT+6, CONVERT+8, CONVERT+10, CONVERT+11 , CONVERT+13, CONVERT+15, CONVERT+16, CONVERT+21, CONVERT+23, CONVERT+24, CONVERT+26, CONVERT+28, CONVERT+29, CONVERT+31 , CONVERT+32, CONVERT+33, CONVERT+35 |
TEST | SETARY+46~ |
TEST("DILIST" | SETARY+53, SETARY+54, SETARY+55, SETARY+57 |
U | SETARY+1~, SETARY+5* |
X | FILECSTD+3*, FILECSTD+8!, FILECNTY+12*, FILEPEC+7*, FILEPEC+12!, CONVERT+1~, CONVERT+29*, CONVERT+33* |
Y | FILECSTD+4, FILECSTD+5, FILECSTD+8!, FILECNTY+14, FILEPEC+9, CONVERT+1~, CONVERT+31, CONVERT+35 |