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 |