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 |