IBDFFT1 ;ALB/MAF - FORMS TRACKING CONTINUED - JUL 6 1995
Source file <IBDFFT1.m>
Package | Total | Call Graph |
---|---|---|
Automated Information Collection System | 2 | ($$SCHSTAT,CHECK,GRP1)^IBDFFT (HEADER,HEADER1,HEADER2,NUL)^IBDFFT2 |
Registration | 2 | ($$LOWER,$$SETSTR)^VALM1 KILL^VALM10 |
Kernel | 1 | $$FMTE^XLFDT |
VA Fileman | 1 | (,NOW)^%DTC |
Package | Total | Caller Graph |
---|---|---|
Automated Information Collection System | 4 | IBDFDEA IBDFFRFT IBDFFT IBDFFT3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
TMP | ; -- Set up TMP Array
|
|
COUNT | ;
|
|
CLN | ; -- Loop clinics
|
|
SET | ||
PAT | ; -- Loop patients
|
|
GRP | ||
SETARR | ; -- Set up Listman array
|
|
START | ;
|
|
DNKA(DFN,APPT) | ;
; -- return did not keep appointment |
|
TRACKING | ; -- loops thru forms tracking file 357.96
; X-reference ^IBD(357.96,"ADATNA", Appt date/time, 1 or 0, IFN). ; 1 = forms tracking file entry but no scheduled appt associated ; 0 = forms tracking file entry with associated scheduled appt. |
|
CK1 | ; --
|
|
CK(XCL) | ; -- Check clinic, division, form
|
|
BLD | ; -- scan appts
|
Name | Field # of Occurrence |
---|---|
^%DTC | TMP+3 |
NOW^%DTC | TMP+3 |
$$SCHSTAT^IBDFFT | SETARR+34 |
CHECK^IBDFFT | CK+6 |
GRP1^IBDFFT | GRP |
HEADER^IBDFFT2 | START+11, START+16 |
HEADER1^IBDFFT2 | START+12, START+16 |
HEADER2^IBDFFT2 | START+12 |
NUL^IBDFFT2 | START+19 |
$$LOWER^VALM1 | TMP+1 |
$$SETSTR^VALM1 | SETARR+13, SETARR+15, SETARR+17, SETARR+20, SETARR+23, SETARR+27, SETARR+33, SETARR+35, SETARR+37 |
KILL^VALM10 | START+3 |
$$FMTE^XLFDT | SETARR+16 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(40.8 - [#40.8] | CK1+5, CK1+6, CK1+9, CK1+10, TRACKING+17, TRACKING+24 |
^DPT - [#2] | PAT+2, PAT+3, SET, CK1+2, CK1+3, SETARR+18, TRACKING+15, TRACKING+16, DNKA+4 |
^IBD(357.96 - [#357.96] | CK1+4, CK1+5, CK1+6, TRACKING+6, TRACKING+7, TRACKING+8, TRACKING+10, TRACKING+17, TRACKING+24 |
^IBD(357.99 - [#357.99] | CK1+5, CK1+9, TRACKING+23 |
^SC - [#44] | CLN+2, CK+1, CK+3, BLD+1, BLD+2, SETARR+19, TRACKING+23 |
^TMP("CNT" | SETARR+2, SETARR+3*, SETARR+8*, SETARR+22*, SETARR+26*, SETARR+30*, SETARR+32*, TMP+3*, COUNT+2* |
^TMP("COUNT" | SETARR+4, SETARR+5*, SETARR+6, SETARR+7, COUNT+1* |
^TMP("FRM" | START+19, TMP+1* |
^TMP("FRMIDX" | TMP+2* |
^TMP("FTRK" | START+11, START+12, START+13, START+14, START+16, START+17, START+18, CK1+5*, CK1+6*, CK1+9* , CK1+10*, TRACKING+17*, TRACKING+24* |
Name | Line Occurrences |
---|---|
$$DNKA | SETARR+16 |
@( | START+4 |
BLD | CLN+2, CLN+3, GRP+2 |
CK | CLN+2, CLN+3, GRP+2, SET, TRACKING+11 |
CK1 | SET, BLD+2 |
COUNT | SETARR+6, SETARR+7 |
SET | PAT+2, PAT+3 |
SETARR | START+14, START+18 |
TRACKING | CLN+4, PAT+4, GRP+3 |
Name | Field # of Occurrence |
---|---|
^( | START+14, START+18 |
^(0 | BLD+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | TMP+3 |
APPT | DNKA~, DNKA+4 |
DFN | SET*, BLD+2*, CK1+3, CK1+4, CK1+5, CK1+6, CK1+9, CK1+10, SETARR+1*, SETARR+16 , DNKA~, DNKA+4 |
DNKA | SETARR+16*, SETARR+31, SETARR+32, SETARR+34, DNKA+2~, DNKA+3*, DNKA+5*, DNKA+6 |
IBAPPTDT | TRACKING+4~ |
IBDCNT | START+1~, START+2*, SETARR+10*, TMP+1 |
IBDCNT1 | START+1~, START+2*, SETARR+9*, SETARR+12, TMP+1, TMP+2 |
>> IBDFBEG | PAT+2, PAT+3, BLD+1, TRACKING+6 |
IBDFCL | START+5~, START+6*, START+12*, START+13, START+14, START+16*, START+17, START+18, SETARR+2, SETARR+3 , SETARR+4, SETARR+5, SETARR+6, SETARR+7, SETARR+8, SETARR+22, SETARR+26, SETARR+30, SETARR+32, TMP+3 , COUNT+1, COUNT+2 |
>> IBDFCLI | START+12*, START+16* |
IBDFCLIN | CLN+1~, CLN+2*, CLN+3*, PAT+1~, GRP+1~, GRP+2*, SET*, BLD+1, BLD+2, CK1+5 , CK1+6, CK1+9, CK1+10, TRACKING+4~, TRACKING+8*, TRACKING+9, TRACKING+11, TRACKING+12, TRACKING+17, TRACKING+21 , TRACKING+24 |
IBDFCLIN( | START+12, START+16 |
IBDFCLN | TRACKING+19~, TRACKING+20*, TRACKING+21*, TRACKING+23 |
IBDFCLNN | TRACKING+19~ |
>> IBDFDA | BLD+2* |
>> IBDFDIV | START+11*, START+16* |
>> IBDFDIV( | START+11, START+16 |
IBDFDV | START+5~, START+6*, START+11*, START+12, START+13, START+14, START+16*, START+17, START+18, SETARR+2 , SETARR+3, SETARR+4, SETARR+5, SETARR+8, SETARR+22, SETARR+26, SETARR+30, SETARR+32, TMP+3, COUNT+2 |
>> IBDFEND | PAT+2, PAT+3, BLD+1, TRACKING+6 |
IBDFGR | START+9~, START+10*, START+11*, START+12, START+13, START+14, SETARR+4, SETARR+5, SETARR+6, COUNT+1 , TRACKING+19~, TRACKING+20*, TRACKING+21*, TRACKING+23 |
>> IBDFGRO | START+11* |
>> IBDFGROP( | START+12 |
IBDFGRP | GRP+1~, GRP+2*, CK1+5, CK1+9, TRACKING+19~ |
>> IBDFIFN | START+14*, START+18*, CK1+4*, CK1+5, CK1+6, SETARR+6, SETARR+7, COUNT+1 |
>> IBDFL | START+4 |
IBDFLAG | SETARR+6!, SETARR+22, SETARR+26, SETARR+30, COUNT+1* |
>> IBDFN | SETARR+18*, SETARR+19* |
>> IBDFNODE | CK+3*, CK+4, CK+5, CK1+2, CK1+3, CK1+5, CK1+6, CK1+9, CK1+10, TRACKING+15 , TRACKING+16, TRACKING+17, TRACKING+24 |
IBDFPAT | START+5~, START+13*, START+17*, PAT+1~, PAT+2*, PAT+3*, SET, CK1+2, TRACKING+4~, TRACKING+10* , TRACKING+13, TRACKING+15, TRACKING+16, TRACKING+17, TRACKING+24 |
IBDFPT | START+5~, START+6*, START+13*, START+14, START+17*, START+18 |
>> IBDFSA | BLD+2* |
IBDFT | START+5~, START+13*, START+14, START+17*, START+18, PAT+2*, PAT+3*, SET, BLD+1*, BLD+2 , CK1+4, CK1+5, CK1+6, CK1+9, CK1+10, SETARR+6, SETARR+7, COUNT+1, TRACKING+4~, TRACKING+6* , TRACKING+17, TRACKING+24 |
IBDFTIME | START+1~, TMP+3* |
IBDFTMP | START+5~, START+14*, START+18*, SETARR+1, SETARR+14, SETARR+16, SETARR+18, SETARR+19, SETARR+21, SETARR+24 , SETARR+25, SETARR+34, SETARR+36, TMP+2, TMP+3 |
IBDFTRK | TRACKING+4~, TRACKING+6*, TRACKING+7, TRACKING+8, TRACKING+10, TRACKING+17, TRACKING+24 |
>> IBDFVAL | SETARR+12*, SETARR+13, SETARR+14*, SETARR+15, SETARR+16*, SETARR+17, SETARR+18*, SETARR+19*, SETARR+20, SETARR+21* , SETARR+22*, SETARR+23, SETARR+25*, SETARR+26*, SETARR+27, SETARR+34*, SETARR+35, SETARR+36*, SETARR+37 |
IBDFX | TRACKING+4~, TRACKING+5* |
IBDFXPC | CK1+1~, CK1+2*, CK1+5, CK1+6, CK1+9, CK1+10, TRACKING+14~, TRACKING+15*, TRACKING+17 |
IBDFXX | SETARR+28~, SETARR+29*, SETARR+30 |
IBDFYPC | CK1+1~, CK1+3*, CK1+5, CK1+6, CK1+9, CK1+10, TRACKING+14~, TRACKING+16*, TRACKING+17, TRACKING+24 |
>> IBDNKA | START+2* |
IBDNODE | START+5~ |
>> IBDX | START+14*, START+18* |
IBX | TRACKING+22~, TRACKING+23*, TRACKING+24 |
IBY | TRACKING+22~, TRACKING+23*, TRACKING+24 |
>> QUIT | CLN+2, CLN+3, GRP+2, SET, CK+2*, CK+7, TRACKING+11 |
STATUS | DNKA+2~, DNKA+4*, DNKA+5 |
>> VAL | SETARR+24*, SETARR+26, SETARR+29, SETARR+31*, SETARR+33 |
>> VALMCNT | START+2*, SETARR+10*, TMP+1, TMP+2 |
>> VAUTC | CLN+2, CLN+3, CK1+2, CK1+3, SETARR+18, TRACKING+12, TRACKING+15, TRACKING+16 |
>> VAUTC( | CLN+3, TRACKING+12 |
>> VAUTD | CK+5 |
>> VAUTD( | CK+5 |
>> VAUTG | START+8, START+15, CK1+2, CK1+3, CK1+5, CK1+6, CK1+9, CK1+10, SETARR+4, SETARR+6 , SETARR+7, SETARR+8, SETARR+18, SETARR+22, SETARR+26, SETARR+30, TRACKING+15, TRACKING+16, TRACKING+17, TRACKING+18 |
>> VAUTG( | GRP+2, TRACKING+21 |
>> VAUTN | PAT+2, PAT+3, SETARR+19, TRACKING+13 |
>> VAUTN( | PAT+3, TRACKING+13 |
>> X | SETARR+11*, SETARR+13*, SETARR+15*, SETARR+17*, SETARR+20*, SETARR+23*, SETARR+27*, SETARR+33*, SETARR+35*, SETARR+37* , TMP+1, TMP+3 |
>> X1 | TMP+3* |
>> X2 | TMP+3* |
XCL | CK~, CK+1, CK+3, CK+6 |