LRVRPOCU ;VA/DALOI/JMC - POINT OF CARE UTILITY PROGRAM ; May 10, 2004 12:06
Source file <LRVRPOCU.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 3 | $$HTE^XLFDT DUZ^XUP DIVSET^XUSRB2 |
Lab Service | 3 | EXPLODE^LRGP2 $$NEW1^LROR6 EN^LRPARAM |
Automated Lab Instruments | 2 | ACK^LA7POC XQA^LA7UXQA |
Scheduling | 2 | $$SDAPI^SDAMA301 GETPRV^SDOE |
VA Fileman | 2 | $$FIND1^DIC $$GET1^DIQ |
Registration | 1 | KVAR^VADPT |
Package | Total | Caller Graph |
---|---|---|
IHS Laboratory Point of Care | 1 | BLRPOC2 |
Lab Service | 1 | LRVRPOC |
Name | Comments | DBIA/ICR reference |
---|---|---|
SPALERT | ; Send Processing Alert Message
|
|
SENDACK | ; Send HL7 ACKnowledgment message
|
|
OENC(LRENC) | ; Lookup provider on encounter
; Use primary provider if possbile otherwise use first provider listed. |
|
FINDAPPT | ; Find an appointment for the collection date/time
|
|
VASD | ; Check for clinic appointment at same time as specimen
; else for clinic appointment before specimen date/time on same date. |
|
CHKAPPT | ; Check for an appointment that matches the ordering location
; to find the provider on the encounter when no provider sent. |
|
INIT | ; Initialize user
|
|
WKLD(LRP) | ; Setup LRCDEF* variables for workload
; Call with LRP = ien of WKLD suffix in file #64.2 |
|
CLEAN | ;Clean-up point
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | INIT+6 |
$$GET1^DIQ | INIT+33, INIT+35, INIT+61, INIT+63, INIT+68, INIT+72, INIT+80, INIT+85, SPALERT+6, FINDAPPT+4 |
ACK^LA7POC | SENDACK+7 |
XQA^LA7UXQA | SPALERT+7 |
EXPLODE^LRGP2 | INIT+48 |
$$NEW1^LROR6 | INIT+88 |
EN^LRPARAM | INIT+12 |
$$SDAPI^SDAMA301 | VASD+16 |
GETPRV^SDOE | OENC+4 |
KVAR^VADPT | INIT+5, CLEAN+1 |
$$HTE^XLFDT | SPALERT+3 |
DUZ^XUP | INIT+10 |
DIVSET^XUSRB2 | INIT+83 |
FileNo | Call Tags |
---|---|
^VA(200 - [#200] | FIND1^DIC |
^DIC(4 - [#4] | GET1^DIQ |
^SC - [#44] | GET1^DIQ |
^LAB(61 - [#61] | GET1^DIQ |
^LAHM(62.48 - [#62.48] | GET1^DIQ |
^LRO(68 - [#68] | GET1^DIQ |
^LRO(68.2 - [#68.2] | GET1^DIQ |
^LAB(69.9 - [#69.9] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | INIT+57 |
^LAB(64.2 - [#64.2] | WKLD+2 |
^LAHM(62.48 - [#62.48] | SPALERT+5 |
^LAM - [#64] | INIT+59 |
^LRO(68 - [#68] | INIT+28, INIT+31, INIT+37, INIT+77 |
^LRO(68.2 - [#68.2] | INIT+19, INIT+21, INIT+26, INIT+40, INIT+55, INIT+56 |
^TMP("LR" | INIT+47!, INIT+49 |
^TMP($J | VASD+21!, FINDAPPT+1, FINDAPPT+2, CHKAPPT+2, CHKAPPT+3 |
Name | Line Occurrences |
---|---|
CHKAPPT | VASD+19 |
FINDAPPT | VASD+18 |
OENC | VASD+24 |
WKLD | INIT+41 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AGE | CLEAN+2! |
COMB | INIT+67*, CLEAN+2! |
CONTROL | CLEAN+2! |
DFN | CLEAN+2!, VASD+13, FINDAPPT+1, FINDAPPT+2, CHKAPPT+2, CHKAPPT+3 |
>> DIQUIET | INIT+3* |
DOB | CLEAN+2! |
DTS | CLEAN+2! |
DUZ(2 | INIT+81 |
H8 | CLEAN+2! |
I | INIT+2~, INIT+54*, INIT+55*, INIT+56 |
I5 | CLEAN+2! |
LA | SENDACK+2~, SENDACK+7 |
LA( | SENDACK+3* |
LA("ACK" | SENDACK+4* |
LA("MSG" | SENDACK+5*, SENDACK+6* |
>> LA76248 | SENDACK+3 |
>> LA76249 | SENDACK+3 |
LAMSG | INIT+3*, INIT+9*, INIT+13*, INIT+24*, INIT+30*, INIT+31*, INIT+35*, INIT+44*, INIT+51*, INIT+74* , INIT+80*, INIT+85*, SPALERT+2~, SPALERT+6*, SPALERT+7 |
LR0070 | INIT+2~, INIT+56*, INIT+61*, INIT+64 |
LR60 | INIT+2~, INIT+57*, INIT+64 |
LR61 | INIT+2~, INIT+57*, INIT+60, INIT+61, INIT+63, INIT+64 |
LR62 | INIT+2~, INIT+56*, INIT+62*, INIT+63*, INIT+64 |
LR64 | INIT+2~, INIT+57*, INIT+58, INIT+59 |
>> LRAA | INIT+27*, INIT+31, INIT+37 |
LRACC | CLEAN+3! |
LRACD | CLEAN+3! |
LRAD | CLEAN+3! |
>> LRALERT | INIT+70* |
LRAN | CLEAN+3! |
LRAOD | CLEAN+3! |
LRASSN | INIT+67*, CLEAN+4! |
LRBLBP | CLEAN+10! |
LRCAPLOC | CLEAN+4! |
LRCDEF | INIT+42, WKLD+3*, CLEAN+4! |
LRCDEF0 | WKLD+2*, WKLD+3, CLEAN+4! |
LRCDEF0(1 | WKLD+2* |
LRCDEF0X | CLEAN+4! |
LRCDT | CLEAN+4!, VASD+11, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8 |
LRCLIEN | VASD+9~, FINDAPPT+3*, FINDAPPT+4, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+4*, CHKAPPT+5 |
>> LRCNT | INIT+3* |
LRCODEN | CLEAN+4! |
LRCOM | CLEAN+4! |
LRCOUNT | VASD+9~, VASD+16*, VASD+17, VASD+21 |
>> LRDAA | INIT+27*, INIT+28, INIT+33, INIT+35, INIT+77, INIT+80 |
LRDATA | CLEAN+5! |
LRDATE | VASD+9~, VASD+10*, FINDAPPT+1*, FINDAPPT+2, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+2*, CHKAPPT+3 |
>> LRDFWKLD | INIT+40*, INIT+41 |
>> LRDIV | INIT+77*, INIT+78, INIT+81, INIT+83, INIT+85 |
>> LRDPF | INIT+67* |
LRDUZ | INIT+4! |
>> LREAL | INIT+67* |
LRENC | VASD+9~, VASD+10*, VASD+24, FINDAPPT+5*, FINDAPPT+6*, FINDAPPT+7*, FINDAPPT+8*, CHKAPPT+2, CHKAPPT+5*, OENC~ , OENC+4 |
>> LREND | INIT+3*, INIT+8*, INIT+13, INIT+23*, INIT+29*, INIT+31*, INIT+34*, INIT+43*, INIT+50*, INIT+73* , INIT+79*, INIT+81, INIT+85* |
LRERR | INIT+4!, INIT+66!, INIT+67*, CLEAN+5!, OENC+3~, SENDACK+4, SENDACK+6 |
LREXACT | VASD+9~, VASD+10*, FINDAPPT+1, FINDAPPT+5* |
LRI | OENC+3~, OENC+6*, OENC+7*, OENC+8, OENC+9* |
LRIDT | CLEAN+10! |
LRIEN | INIT+4!, INIT+66! |
LRIN | CLEAN+10! |
LRIX | CLEAN+10! |
>> LRLABKY | INIT+15* |
>> LRLBLBP | INIT+67* |
>> LRLD | INIT+38* |
>> LRLL | INIT+19, INIT+21, INIT+26, INIT+40, INIT+55, INIT+56, INIT+72 |
>> LRLL(0 | INIT+13, INIT+24, INIT+30, INIT+31, INIT+44, INIT+51, INIT+74 |
>> LRLWC | INIT+18* |
LRM | CLEAN+10! |
>> LRNATURE | INIT+88* |
LRNLT | INIT+2~, INIT+59*, INIT+64, CLEAN+10! |
LRNOCODE | CLEAN+5! |
>> LRNOECHO | INIT+3* |
LRNOW | CLEAN+10! |
LRNT | CLEAN+10! |
LRNX | CLEAN+10! |
LRODT | CLEAN+10! |
LRODTIM | CLEAN+11! |
LROLDIV | CLEAN+5!, FINDAPPT+4 |
LROLLOC | CLEAN+11!, VASD+18, VASD+19, VASD+24, FINDAPPT+5*, FINDAPPT+6*, FINDAPPT+7*, FINDAPPT+8*, CHKAPPT+5 |
LRORD | CLEAN+11! |
LRORDNLT | INIT+4! |
LRORDNLT( | INIT+64* |
>> LRORDR | INIT+18* |
LRORU3 | CLEAN+11! |
LROT | CLEAN+11! |
>> LROUTINE | INIT+68*, INIT+69*, INIT+70 |
LRP | WKLD~, WKLD+2, VASD+9~, VASD+16 |
LRP("FLDS" | VASD+14* |
LRP("SORT" | VASD+15* |
LRP(1 | VASD+11* |
LRP(3 | VASD+12* |
LRP(4 | VASD+13* |
>> LRPARAM | INIT+14* |
LRPRAC | CLEAN+6!, VASD+19, VASD+24, OENC+7, OENC+8*, OENC+9* |
>> LRPROF | INIT+21*, INIT+22, INIT+26, INIT+55, INIT+56 |
>> LRPROF(0 | INIT+26*, INIT+27 |
LRPRVLST | OENC+3~, OENC+5 |
LRPRVLST( | OENC+7, OENC+8, OENC+9 |
LRPRVLST(0 | OENC+9 |
>> LRQUIET | INIT+3* |
LRRB | CLEAN+6! |
LRSB | CLEAN+7! |
LRSN | CLEAN+7! |
LRSQ | CLEAN+7! |
LRSSCX | CLEAN+7! |
LRSSN | CLEAN+7! |
LRST | CLEAN+7! |
>> LRSTORE | INIT+3* |
>> LRSTORE( | SPALERT+4, SPALERT+6 |
LRSUB | CLEAN+7! |
LRSUM | CLEAN+7! |
LRSXN | CLEAN+7!, CLEAN+8! |
LRT | CLEAN+8! |
LRTIME | SPALERT+2~, SPALERT+3*, SPALERT+6 |
LRTN | CLEAN+8! |
LRTREA | CLEAN+8! |
LRTS | CLEAN+8! |
LRTSORU | CLEAN+8! |
LRTST | CLEAN+8! |
LRTT | CLEAN+8! |
>> LRTYPE | INIT+19* |
LRUID | CLEAN+8!, SENDACK+5 |
LRUNQ | CLEAN+9! |
>> LRVBY | INIT+90* |
LRWRD | CLEAN+9! |
LRX | INIT+2~, INIT+6*, INIT+7, INIT+10, INIT+37*, INIT+38, SPALERT+2~, SPALERT+3*, SPALERT+4*, SPALERT+5 , SPALERT+6, SPALERT+7, VASD+9~, FINDAPPT+2*, FINDAPPT+3, FINDAPPT+5, FINDAPPT+6, FINDAPPT+7, FINDAPPT+8, CHKAPPT+3* , CHKAPPT+4, CHKAPPT+5 |
LRY | INIT+2~, INIT+56*, INIT+57, INIT+62, INIT+64, INIT+82*, INIT+83, INIT+84, VASD+9~, VASD+10* , FINDAPPT+6*, FINDAPPT+7*, FINDAPPT+8* |
OCXAP | CLEAN+11! |
PNM | CLEAN+9! |
S5 | CLEAN+9! |
SEGID | CLEAN+9! |
SEX | CLEAN+9! |
SSN | CLEAN+9! |
T1 | CLEAN+12! |
U | INIT+14, INIT+19, INIT+27, INIT+31, INIT+38 |
VA | CLEAN+12! |
>> VA200 | INIT+67* |
VADMVT | CLEAN+12! |
>> VAERR | INIT+67* |
VAINDT | CLEAN+12! |
VAL | CLEAN+12! |
XP | CLEAN+12! |
Z | CLEAN+12! |