BLRRLFX1 ;IHS/CMI/THL/MAW - Refile Utility; [ 10/29/2017 7:08 AM ]
Source file <BLRRLFX1.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | C^%DTC ^DIC ^DIR |
Health Level Seven | 1 | REPROC^HLUTIL |
IHS VA Utilities | 1 | EN^XBNEW |
Kernel | 1 | DUZ^XUP |
Name | Comments | DBIA/ICR reference |
---|---|---|
CALLHL | ;CALL HL REFILER
|
|
IENHEAD(NAM,IEN) | ;LIST IEN SEGMENTS
|
|
PAT | ;FIND INDIVIDUAL PATIENT
|
|
HL7 | ;SEARCH FOR RELATED MESSAGES IN HL(772
|
|
ACC(DFN,IEN,SEG,SEGX) | ;FIND RECENT ACCESSION NUMBERS
|
|
MDISP | ;DISPLAY MATCH LOG
|
|
CHANGE(NAM,IEN,SEQ) | ;ENTER AN AND CHANGE SEGMENT
|
|
INTHU | ;SEARCH FOR RELATED MESSAGES IN INTHU
|
|
P1 | ;SELECT PATIENT
|
|
SID | ;ENTER SPECIMEN ID TO SEARCH FOR
|
|
LINE | ;
|
|
FM | ;USE FM PATIENT LOOKUP
|
|
DIR | ;READER
|
|
IEN(NAM,IEN) | ;SELECT SEGS TO ADD ACCESSION NUMBER TO
|
|
LALL | ;LIST ALL MESSAGES WITHOUT ACCESSION NUMBER
|
|
M1(PAT,IEN,SEQ,XX) | ;PROCESS EACH SEGMENT
|
|
ONO | ;ENTER ORDER NUMBER TO SEARCH FOR
|
|
REFILE(NAM,IEN) | ;REFILE THE MESSAGE
|
|
A1 | ;
|
|
CH1 | ||
AHL7 | ;SEARCH FOR RELATED MESSAGES IN HL(772
|
|
MATCH | ;PROCESS MESSAGES AND MATCH WITH FILE 68
|
|
C2 | ||
C1 | ||
PN | ;CREATE NUMBERED PATIENT ARRAY
|
|
DFN(NAM) | ;FIND PATIENT DFN
|
|
MSEL | ;SELECT MATCHES TO PROCESS
|
|
EN | ;EP;TO REFILE LAB MESSAGE
|
|
LIST(PAT) | ;LIST MESSAGES
|
|
AHEAD | ;HEADER
|
|
ASEL(NUM) | ;SELECT PATIENT TO EDIT
|
|
MHEAD | ;HEADER TO DISPLAY MATCH LOG
|
|
ACCNUM | ;ACCESSION NUMBER
|
|
L1 | ;LIST ALL MESSAGES FOR THE PATIENT
|
|
LHEAD(NAM) | ;LIST HEAD
|
|
PAUSE | ;
|
|
P1S(X) | ;
|
|
ALL | ;FIND ALL RECENT MESSAGES WITH NO ACCESSION NUMBER
|
|
SPECID | ;SPECIMEN ID
|
|
ACCS | ;DISPLAY MESSAGE OR ENTER AN
|
|
MTYPE | ;IDENTIFY WHETHER THE MESSAGE IS HL(772 OR INTHU
|
|
DM1 | ;HL(772
|
|
DM2 | ;INTHU
|
|
MON | ;MONITOR AUTO ACC MATCHES
|
|
PATN(X) | ;PATIENT NAME
|
|
PNAM | ;ENTER PATIENT NAME DIRECTLY
|
|
FIND(PAT,SID,ONO) | ;FIND MATCHING MESSAGES
|
|
DMESS(IEN) | ;DISPLAY HL7 MESSAGE
|
|
AINTHU | ;SEARCH FOR RELATED MESSAGES IN INTHU
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BLRSITE - [#9009029] | MTYPE+1 |
^DPT - [#2] | A1+8, PATN+1 |
^HL(772 - [#772] | HL7+5, HL7+6, HL7+7, HL7+10, AHL7+5, AHL7+8, C2*, DM1+6 |
^HLMA - [#773] | HL7+5, AHL7+5, DM1+4 |
^HLMA("B" | REFILE+2, DM1+3 |
^INLHSCH(0 | REFILE+4* |
^INTHU - [#4001] | INTHU+2, INTHU+3, INTHU+4, INTHU+7, AINTHU+3, AINTHU+6, C2+1*, DM2+4 |
^LRO(68 - [#68] | ACC+8, A1+2, A1+5 |
^LRO(69 - [#69] | ONO+10, ONO+11, ONO+12 |
^TMP("BLRR MATCH" | A1+11*, MON+1, MDISP+5, MDISP+7, MDISP+9 |
^TMP("BLRR PROC" | MSEL+9, MDISP+13* |
^TMP("BLRRLPAT" | ALL+1!, ALL+17, P1+1!, P1+31, P1+33, P1+35!, L1+2, L1+3, HL7+14*, INTHU+11* , AHL7+12*, PN+3, AINTHU+10*, IEN+1, IEN+2, CH1+2, C1*, C1+1*, LHEAD+10, LHEAD+13 , LHEAD+21, IENHEAD+10, MATCH+3, MATCH+5, MATCH+7 |
^TMP("BLRRLPN" | PN+3*, LALL+4, LALL+14, ASEL+7, ASEL+8 |
Name | Line Occurrences |
---|---|
$$ASEL | LALL+15 |
$$DFN | CH1+11, M1+3 |
A1 | ACC+8 |
ACC | CH1+12, M1+5 |
ACCNUM | ACCNUM+7, ACCS+7 |
ACCS | CH1+19, ACCS+6 |
AHEAD | LALL+2, LALL+12 |
AHL7 | ALL+14 |
AINTHU | ALL+15 |
ALL | P1+16 |
C2 | P1S+4 |
CH1 | CH1+23 |
CHANGE | IEN+3, IEN+15 |
DIR | ALL+10, P1+9, PNAM+5, MTYPE+7, ACCNUM+5, SPECID+5, L1+9, IEN+11, CH1+29, ASEL+5 , MSEL+4, SID+4, ONO+4, ACCS+4 |
DM1 | DMESS+4 |
DM2 | DMESS+5 |
DMESS | ACCS+8 |
FIND | P1+30 |
FM | P1+12 |
HL7 | FIND+1 |
IEN | L1+3, L1+15 |
IENHEAD | IEN+7 |
INTHU | FIND+2 |
L1 | LIST+2, L1+11 |
LALL | ALL+20 |
LHEAD | L1+4 |
LINE | LALL+10, LHEAD+16, LHEAD+23, DM1+8, DM2+6 |
LIST | P1+34, LALL+17 |
M1 | MATCH+7 |
MDISP | MON+2 |
MHEAD | MDISP+1 |
MSEL | MON+4, MSEL+6 |
MTYPE | EN+6 |
ONO | P1+15, ONO+6 |
P1 | EN+8, PAT+2 |
P1S | MSEL+9 |
PATN | ONO+13 |
PAUSE | P1+29, REFILE+8, DMESS+6 |
PN | HL7+17, INTHU+14, AHL7+13, AINTHU+11 |
PNAM | P1+13, PNAM+7 |
REFILE | IEN+5, IEN+17, P1S+5 |
SID | P1+14, SID+6 |
Name | Field # of Occurrence |
---|---|
^( | HL7+5, HL7+10, INTHU+2, INTHU+7, AHL7+5, AHL7+8, AINTHU+3, AINTHU+6, LALL+4, LHEAD+21 , IENHEAD+10, ACC+8, A1+5, MATCH+7, MDISP+9, DM1+6, DM2+4 |
^("BLRRLPN" | ALL+1!, P1+1!, P1+35! |
^(0 | HL7+7, HL7+10, INTHU+4, INTHU+7, AHL7+5, AHL7+8, AHL7+9, AINTHU+3, AINTHU+6, AINTHU+7 |
^(3 | A1+5 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACC | EN+1~, ACCNUM+1!, ACCNUM+8*, CH1+18*, CH1+23, CH1+26, C1, C1+1, C2, C2+1 , REFILE+7, ACC+2!, A1+5*, A1+7, A1+10, A1+11, P1S+3* |
ACC( | CH1+17, A1+7* |
ACC(0 | M1+6 |
ACC(1 | CH1+13 |
ALL | EN+1~, IEN+13*, IEN+15, CH1+30, MSEL+7*, MSEL+9 |
BLRRLMA | REFILE+1, REFILE+2*, CALLHL+3, CALLHL+5! |
>> DA | ONO+11*, ONO+12 |
>> DA(1 | ONO+10*, ONO+11, ONO+12 |
DAT | ACC+1~, ACC+3*, ACC+4, ACC+5, A1+1, A1+2 |
DATX | ACC+1~, ACC+4* |
DFN | EN+1~, FM+1!, CH1+11*, CH1+12, ACC~, A1+5, A1+8, M1+3*, M1+4, M1+5 |
DIC | FM+1!, FM+2*, DFN+8* |
DIC("A" | FM+4* |
DIC("S" | DFN+10* |
DIC(0 | FM+3*, DFN+9* |
DIR | ALL+7!, P1+6!, PNAM+1!, MTYPE+4!, ACCNUM+1!, SPECID+2!, L1+5!, IEN+8!, CH1+24!, ASEL+2! , MSEL+1!, SID+1!, ONO+1!, DIR+3!, ACCS+1! |
DIR("A" | ALL+9*, P1+8*, PNAM+3*, PNAM+4*, MTYPE+6*, ACCNUM+3*, ACCNUM+4*, SPECID+4*, L1+7*, L1+8* , IEN+10*, CH1+26*, CH1+27*, ASEL+4*, MSEL+3*, SID+3*, ONO+3*, ACCS+3* |
DIR("B" | CH1+28* |
DIR(0 | ALL+8*, P1+7*, PNAM+2*, MTYPE+5*, ACCNUM+2*, SPECID+3*, L1+6*, IEN+9*, CH1+25*, ASEL+3* , MSEL+2*, SID+2*, ONO+2*, ACCS+2* |
DOB | EN+2~, DFN+2* |
DT | ALL+2 |
DTIME | LINE+3, PAUSE+2 |
DUZ | CALLHL+2 |
DUZ(2 | MTYPE+1 |
>> DX | A1+1*, A1+2*, A1+5 |
END | EN+2~, ALL+5*, ALL+12*, ALL+13*, AHL7+5, AINTHU+3 |
FI | EN+1~ |
FN | EN+1~, EN+2~, DFN+5*, DFN+7 |
IEN | EN+2~, L1+14*, L1+15, HL7+5*, HL7+6, HL7+7, HL7+10, HL7+14, AHL7+5*, AHL7+8 , AHL7+12, IEN~, IEN+1, IEN+2, IEN+3, IEN+5, IEN+7, IEN+15, IEN+17, CHANGE~ , CH1+2, CH1+7, CH1+12, C1, C1+1, C2, C2+1, REFILE~, REFILE+2, REFILE+4 , REFILE+6, IENHEAD~, IENHEAD+3, IENHEAD+7, IENHEAD+10, ACC~, A1+11, M1~, M1+5, P1S+1* , P1S+5, DMESS~, DM1+3, DM1+6, DM2+4, ACCS+8 |
IOF | EN+4, P1+4, CH1, LHEAD+1, IENHEAD+1, AHEAD+1, MHEAD+2, DMESS+1 |
J | EN+1~, HL7+8*, HL7+13*, HL7+14, INTHU+5*, INTHU+10*, INTHU+11, AHL7+6*, AHL7+11*, AHL7+12 , AINTHU+4*, AINTHU+9*, AINTHU+10, IEN+9, IEN+15*, CH1+16*, CH1+17*, IENHEAD+8*, IENHEAD+11*, IENHEAD+12 , A1+3*, A1+6*, A1+7, MSEL+9*, MDISP+3*, MDISP+10*, MDISP+11, MDISP+14 |
JJ | EN+1~, HL7+2*, AHL7+3*, PN+1*, PN+3*, AINTHU+1*, LALL+3*, LALL+4*, LALL+5, LALL+8 , LALL+14*, LALL+15, ASEL+7, LHEAD+8*, MSEL+2, MSEL+6, MDISP+13, MDISP+14* |
K | EN+1~, IEN+14*, CH1+30*, LHEAD+19*, LHEAD+22*, LHEAD+24, MSEL+8* |
LINE | EN+2~, LHEAD+7*, LHEAD+15*, LHEAD+16, LHEAD+23*, DM1+2*, DM1+7*, DM1+8, DM2+2*, DM2+5* , DM2+6 |
LN | EN+2~, DFN+4*, DFN+7 |
LOOK | EN+1~, P1+11*, P1+12, P1+13, P1+14, P1+15, P1+16, P1+18, P1+19, P1+20 |
LRDFN | EN+2~, ONO+12*, ONO+13 |
LRO | ACC+1~, ACC+7*, ACC+8*, A1+2, A1+5 |
LROX | EN+2~, ACC+8*, A1+7 |
MN | EN+2~, DFN+6*, DFN+7 |
MTYPE | EN+1~, ALL+14, ALL+15, P1+5, P1+24, MTYPE+1*, MTYPE+2, MTYPE+3*, MTYPE+9*, FIND+1 , FIND+2, C1, C1+1, C2, C2+1, REFILE+1, REFILE+3, REFILE+4, DMESS+4, DMESS+5 |
NAM | EN+2~, L1+13*, L1+15, IEN~, IEN+1, IEN+2, IEN+3, IEN+5, IEN+7, IEN+15 , IEN+17, CHANGE~, CH1+2, CH1+6, CH1+11, C1, C1+1, REFILE~, LALL+15*, LALL+17 , ASEL+1*, ASEL+8*, ASEL+9, LHEAD~, LHEAD+9, LHEAD+10, IENHEAD~, IENHEAD+10, DFN~, DFN+1 , DFN+2, DFN+3, P1S+5 |
NUM | ASEL~, ASEL+3 |
ONO | EN+1~, P1+2~, P1+3*, P1+27, P1+30, FIND~, HL7+12, HL7+16, INTHU+9, INTHU+13 , ONO+9* |
ORIGDUZ | CALLHL+1~, CALLHL+2*, CALLHL+4 |
PAT | EN+1~, P1+2~, P1+3*, P1+25, P1+30, P1+32*, P1+33*, P1+34, FM+8*, PNAM+12* , FIND~, LIST~, L1+2, L1+3, L1+4, HL7+6, HL7+15, HL7+16, INTHU+3, INTHU+12 , INTHU+13, LHEAD+2, ACC+1~, A1+8*, A1+9, A1+11, M1~, M1+3, ONO+14, PATN+2* |
PATX | EN+1~, P1+32, HL7+15*, HL7+16*, INTHU+12*, INTHU+13* |
PID | EN+1~, HL7+7*, HL7+14, HL7+15, HL7+16, INTHU+4*, INTHU+11, INTHU+12, INTHU+13, AHL7+9* , AHL7+12, AINTHU+7*, AINTHU+10 |
QUIT | EN+1~, EN+3*, EN+7, EN+8, PAT+1*, PAT+2, PAT+3*, ALL+6, ALL+11*, ALL+19* , ALL+20, ALL+21*, P1+10, P1+17, P1+22*, FM+7*, PNAM+6, MTYPE+8, ACCNUM+6, SPECID+6* , LIST+1*, LIST+2, LIST+3*, L1+3*, L1+10, L1+16*, HL7+1~, HL7+3*, AHL7+1~, AHL7+2* , AHL7+5, IEN+4, IEN+5, IEN+6*, IEN+12*, IEN+16*, CH1+1*, CH1+20, CH1+30*, LALL+1* , LALL+4, LALL+8, LALL+11, LALL+13*, LALL+16, ASEL+6, LINE+4*, LHEAD+18, LHEAD+23, MON+3* , MON+4, MON+5*, MSEL+5, SID+5, ONO+5, ONO+14*, DIR+4*, ACCS+5 |
SEG | EN+2~, CH1+4*, CH1+9, CH1+12, CH1+27, C2, C2+1, ACC~, A1+11, M1+1* , M1+5, P1S+2* |
SEGX | EN+2~, CH1+5*, CH1+10, CH1+12, ACC~, ACC+3, ACC+4, A1+10*, A1+11, M1+2* , M1+5 |
SEQ | EN+2~, IEN+15*, CHANGE~, CH1+2, CH1+8, C1, C1+1, M1~, MSEL+9* |
SEX | EN+2~, DFN+3* |
SID | EN+1~, P1+2~, P1+3*, P1+26, P1+30, SPECID+1*, SPECID+7*, FIND~, HL7+11, HL7+15 , INTHU+8, INTHU+12, SID+10* |
SSN | EN+2~ |
U | FM+8, MTYPE+1, LINE+4, DFN+4, DFN+5, DFN+6, ACC+8, A1+5, A1+7, A1+8 , A1+11, P1S+1, P1S+2, P1S+3, MDISP+12, MDISP+13, DIR+4, PATN+1, PATN+2 |
X | EN+1~, ALL+5, P1+11, PNAM+7, PNAM+12, MTYPE+9, ACCNUM+7, ACCNUM+8, SPECID+7, L1+1~ , L1+11, L1+12, L1+13, L1+14, HL7+1~, HL7+4*, HL7+5*, INTHU+1*, INTHU+2*, INTHU+3 , INTHU+4, INTHU+7, INTHU+11, AHL7+1~, AHL7+4*, AHL7+5*, PN+2*, PN+3*, AINTHU+2*, AINTHU+3* , AINTHU+6, AINTHU+10, IEN+1*, IEN+2, IEN+3, CH1+2*, CH1+3, CH1+4, CH1+5, ASEL+7 , ASEL+8, LHEAD+9*, LHEAD+10*, LHEAD+11, LHEAD+13, LHEAD+14, LHEAD+21, IENHEAD+9*, IENHEAD+10*, IENHEAD+11 , IENHEAD+13, DFN+1*, DFN+4, DFN+5, DFN+6, DFN+7*, ACC+1~, A1+4*, A1+5*, MATCH+1~ , MATCH+2*, MATCH+3*, MATCH+5, MATCH+7, MSEL+6, MSEL+9*, P1S~, P1S+1, P1S+2, P1S+3 , MDISP+2~, MDISP+4*, MDISP+5*, MDISP+7, MDISP+9*, MDISP+11, SID+6, SID+10, ONO+6, ONO+9 , ONO+10, ONO+11, DIR+4, PATN~, PATN+1, DM1+1~, DM1+3*, DM1+4, DM1+5*, DM1+6* , DM2+1~, DM2+3*, DM2+4*, ACCS+6, ACCS+7, ACCS+8 |
>> X1 | ALL+2* |
>> X2 | ALL+3* |
XX | L1+1~, HL7+10*, HL7+11, HL7+12, HL7+14, INTHU+7*, INTHU+8, INTHU+9, INTHU+11, AHL7+8* , AHL7+9, AHL7+10, AHL7+12, AINTHU+6*, AINTHU+7, AINTHU+8, AINTHU+10, LALL+4*, LALL+5, LALL+6 , LALL+7, LHEAD+21*, LHEAD+25, IENHEAD+10*, IENHEAD+13, MATCH+7*, M1~, M1+1, M1+2, MDISP+9* , MDISP+12, MDISP+13 |
XX( | L1+12, L1+13, LHEAD+14* |
>> XXX | LINE+3*, LINE+4, PAUSE+2* |
Y | EN+1~, ALL+12, FM+7, FM+8, L1+1~, L1+2*, L1+3, HL7+1~, HL7+9*, HL7+10* , HL7+14, INTHU+6*, INTHU+7*, INTHU+11, AHL7+1~, AHL7+7*, AHL7+8*, AHL7+12, AINTHU+5*, AINTHU+6* , AINTHU+10, IEN+13, CH1+30, LHEAD+12*, LHEAD+13*, LHEAD+14, LHEAD+17, LHEAD+21, DFN+12, DFN+13 , ACC+1~, A1+5*, MATCH+1~, MATCH+4*, MATCH+5*, MATCH+7, MSEL+7, MDISP+2~, MDISP+6*, MDISP+7* , MDISP+9, MDISP+11, MDISP+13, PATN+1*, PATN+2, DM1+1~, DM1+6*, DM1+9, DM2+1~, DM2+4* , DM2+7 |
Z | EN+1~, L1+1~, HL7+1~, AHL7+1~, LHEAD+20*, LHEAD+21*, LHEAD+25, ACC+1~, MATCH+1~, MATCH+6* , MATCH+7*, MDISP+2~, MDISP+8*, MDISP+9, MDISP+11, MDISP+13, DM1+1~, DM2+1~ |
>> ZTQUEUED | ALL+6, ALL+16, REFILE+5, LINE+1, PAUSE+1, MHEAD+1 |