ACDFLAT4 ;IHS/ADC/EDE/KML - GENERATE FLAT RECORDS;
Source file <ACDFLAT4.m>
Package | Total | Call Graph |
---|---|---|
Alcohol Chemical Dependency | 1 | ($$LBLNK,$$LZERO)^ACDFUNC |
IHS VA Utilities | 1 | EP^XBCLM |
Name | Comments | DBIA/ICR reference |
---|---|---|
PR | ;
|
|
FLATX | ; EXIT
|
|
PR2 | ; PROCESS ONE PR DAY ENTRY
; killing of ACDF(n) necessary because one flat record is ; generated for each PR entry and all fields remain the same except ; those set here. Fields may be missing. |
|
SETARRAY | ; SET RECORD INTO ARRAY
|
|
FLAT(ACDPIEN,ACDARRAY) | ; EP-SET FLAT RECORDS INTO ARRAY
; i $$flat^acdflat4(cdmis_prevention_ien,.array_name) then flat records ; will be in array_name(n)=flat_record where n=1:1 and Q value will ; be the number of entries in array_name. |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ACDCOMP - [#9002170.1] | FLAT+16 |
^ACDLOT - [#9002170.8] | PR2+15 |
^ACDPD - [#9002170.7] | FLAT+10, FLAT+11, PR+3, PR2+5, PR2+6, PR2+36, PR2+37, PR2+38 |
^ACDPREV(9002170.9 - [#9002170.9] | PR2+11 |
^VA(200 - [#200] | FLAT+20, PR2+41 |
Name | Line Occurrences |
---|---|
FLATX | FLAT+10 |
PR | FLAT+23 |
PR2 | PR+3 |
SETARRAY | FLAT+24 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | PR2+33~, PR2+39*, PR2+40 |
A | PR2+33~, PR2+40*, PR2+41 |
>> ACD6DIG | FLAT+13 |
ACDARRAY | FLAT~, FLAT+12! |
ACDARRAY( | SETARRAY+6* |
ACDF | FLAT+12! |
ACDF( | PR2+41*, SETARRAY+3 |
ACDF(1 | FLAT+13* |
ACDF(106 | PR2+8!, PR2+9* |
ACDF(127 | FLAT+20* |
ACDF(133 | PR2+34! |
ACDF(139 | PR2+34! |
ACDF(14 | FLAT+16* |
ACDF(145 | PR2+34! |
ACDF(17 | FLAT+17* |
ACDF(175 | PR2+12!, PR2+13* |
ACDF(177 | PR2+16!, PR2+17* |
ACDF(179 | PR2+19!, PR2+20* |
ACDF(18 | FLAT+18* |
ACDF(180 | PR2+22!, PR2+23* |
ACDF(186 | PR2+25!, PR2+26* |
ACDF(188 | PR2+28!, PR2+29* |
ACDF(189 | PR2+31!, PR2+32* |
ACDF(7 | FLAT+14* |
ACDFREC | FLAT+8~, SETARRAY+1*, SETARRAY+4*, SETARRAY+6, SETARRAY+7 |
>> ACDFTEST | SETARRAY+7 |
>> ACDLC | PR2+36*, PR2+39 |
>> ACDMIEN | PR2+35*, PR2+36*, PR2+37, PR2+38 |
ACDN0 | FLAT+8~, FLAT+11*, FLAT+14, FLAT+15, FLAT+17, FLAT+19, PR+1~, PR2+6*, PR2+7, PR2+10 , PR2+14, PR2+18, PR2+21, PR2+24, PR2+27, PR2+30 |
>> ACDPDIEN | PR+2*, PR+3*, PR2+5, PR2+6, PR2+36, PR2+37, PR2+38 |
ACDPIEN | FLAT~, FLAT+10, FLAT+11, PR+3, PR2+5, PR2+6, PR2+36, PR2+37, PR2+38 |
ACDRCTR | FLAT+8~, FLAT+9*, FLATX+1, SETARRAY+5*, SETARRAY+6 |
U | FLAT+14, FLAT+15, FLAT+16, FLAT+17, FLAT+19, FLAT+20, PR2+7, PR2+10, PR2+11, PR2+14 , PR2+15, PR2+18, PR2+21, PR2+24, PR2+27, PR2+30, PR2+38, PR2+41 |
V | SETARRAY+3!* |
X | FLAT+8~, PR2+7*, PR2+9, PR2+10*, PR2+11*, PR2+13, PR2+14*, PR2+15*, PR2+17, PR2+18* , PR2+20, PR2+21*, PR2+23, PR2+24*, PR2+26, PR2+27*, PR2+29, PR2+30*, PR2+32, SETARRAY+3* |
Y | FLAT+8~, FLAT+15*, FLAT+16, FLAT+19*, FLAT+20, PR2+38*, PR2+41, SETARRAY+3* |