LR7ORB3 ;DALOI/JMC - Lab CPRS Notification Utility ;03/07/13 15:23
Source file <LR7ORB3.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 3 | EN^DDIOL ^DIC ^DIR |
Registration | 2 | INP^VADPT ADM^VADPT2 |
Automated Lab Instruments | 1 | $$OK2SEND^LA7SRR |
Kernel | 1 | $$NAME^XUSER |
Lab Service | 1 | (,$$CHECKUID)^LRWU4 |
Order Entry Results Reporting | 1 | EN^ORB3 |
Scheduling | 1 | $$OUTPTPR^SDUTL3 |
Toolkit | 1 | $$GET^XPAR |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Lab Service | 2 | LRMIEDZ2 LRVER3 |
Name | Comments | DBIA/ICR reference |
---|---|---|
SETUP(LRDFN,LRSS,LRIDT,LRUID) | ; Setup a CPRS notification
; Call with LRDFN = file #63 IEN ; LRSS = file #63 subscript ; LRIDT = inverse d/t of entry in file #63 ; LRUID = accession's UID |
|
GETDOCS(LRDOCS,LRDFN,LRSS,LRIDT) | ; Return PCP(inpatient PC/attending/outpt PC/outpt assoc PC/outpt attending) and ordering provider
|
|
MORE | ; Add names or mail groups to the lookup list?
|
|
LOOKUP | ; Add additional names or mail groups to alert list.
|
|
AHELP | ; Help Frame
|
|
CURREC | ; Build list of current recipients.
|
|
OR(LRTYPE,LRDFN,LRSS,LRIDT,LRUID,LRXQA,LRTST) | ; Send OR notification
|
|
SELTEST(LRUID) | ; Select test on accession for alert messsage - screen out workload tests
|
|
ASKXQA(LRDFN,LRSS,LRIDT,LRUID,LRDEFAULT) | ; Ask if user wants to send a CPRS notification/alert for this accession.
; Call with LRDFN = file #63 IEN ; LRSS = file #63 subscript ; LRIDT = inverse d/t of entry in file #63 ; LRUID = accession's UID ; LRDEFAULT = default answer for DIR call (1-NO,2-YES) |
|
SENDOR | ; Send a CPRS alert for an accession.
; - User is prompted to select the accession and tests. |
Name | Field # of Occurrence |
---|---|
EN^DDIOL | SETUP+29, SETUP+39, LOOKUP+34, AHELP+10 |
^DIC | LOOKUP+24, SELTEST+31 |
^DIR | SETUP+19, SETUP+42, MORE+12, LOOKUP+17, ASKXQA+12 |
$$OK2SEND^LA7SRR | SENDOR+20 |
^LRWU4 | SENDOR+7 |
$$CHECKUID^LRWU4 | OR+20, SELTEST+10 |
EN^ORB3 | OR+52 |
$$OUTPTPR^SDUTL3 | GETDOCS+22, GETDOCS+24 |
INP^VADPT | GETDOCS+19 |
ADM^VADPT2 | GETDOCS+16 |
$$GET^XPAR | MORE+9 |
$$NAME^XUSER | GETDOCS+8, CURREC+12 |
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 |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^LAB(60 - [#60] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^LAB(60 - [#60] | SELTEST+23 |
^LR - [#63] | GETDOCS+7, GETDOCS+10, GETDOCS+14, OR+16, SENDOR+12 |
^LRO(68 - [#68] | OR+22, SELTEST+17, SELTEST+22, SELTEST+23, SENDOR+9, SENDOR+11, SENDOR+14 |
^LRO(69 - [#69] | OR+26, OR+27, OR+28, OR+29, OR+30 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%ZIS | SENDOR+3~ |
DFN | SETUP+8~, GETDOCS+2~, GETDOCS+10*, GETDOCS+22, GETDOCS+24, OR+2~, OR+16*, OR+52 |
DIC | SETUP+8~, LOOKUP+1~, LOOKUP+21!, LOOKUP+22*, SELTEST+6~, SELTEST+29*, SENDOR+3~, SENDOR+10! |
DIC("A" | SELTEST+30* |
DIC("S" | LOOKUP+23*, SELTEST+30* |
DIC(0 | LOOKUP+22*, SELTEST+29* |
DIR | SETUP+8~, SETUP+40!, MORE+1~, LOOKUP+1~, LOOKUP+8!, SELTEST+6~, ASKXQA+7~, SENDOR+3~ |
DIR("?" | MORE+11*, LOOKUP+12*, LOOKUP+13*, LOOKUP+14* |
DIR("??" | LOOKUP+15* |
DIR("A" | SETUP+41*, MORE+8*, LOOKUP+11*, ASKXQA+10* |
DIR("B" | SETUP+41*, MORE+10*, ASKXQA+11* |
DIR("PRE" | LOOKUP+16* |
DIR(0 | SETUP+18*, SETUP+41*, MORE+7*, LOOKUP+10*, ASKXQA+10* |
DIROUT | SELTEST+6~, SENDOR+3~ |
DIRUT | SETUP+8~, SETUP+20, MORE+1~, LOOKUP+1~, LOOKUP+18, SELTEST+6~, ASKXQA+7~, SENDOR+3~ |
DT | GETDOCS+15 |
DTOUT | SETUP+8~, MORE+1~, MORE+14, LOOKUP+1~, ASKXQA+7~ |
DUOUT | SETUP+8~, MORE+1~, MORE+14, LOOKUP+1~, SELTEST+6~, ASKXQA+7~, SENDOR+3~ |
LR6903 | OR+25~, OR+26*, OR+27*, OR+28 |
LRAA | SELTEST+6~, SELTEST+11*, SELTEST+17, SELTEST+22, SELTEST+23, SENDOR+3~, SENDOR+9, SENDOR+11, SENDOR+14 |
LRACC | SENDOR+3~, SENDOR+7* |
LRAD | SELTEST+6~, SELTEST+11*, SELTEST+17, SELTEST+19, SELTEST+20*, SELTEST+22, SELTEST+23, SENDOR+3~, SENDOR+9, SENDOR+11 , SENDOR+14 |
LRADL | LOOKUP+1~, LOOKUP+19*, LOOKUP+20*, LOOKUP+22, LOOKUP+23, LOOKUP+27, LOOKUP+28, LOOKUP+30, LOOKUP+31, LOOKUP+33 |
LRADO | SELTEST+6~, SELTEST+17*, SELTEST+19, SELTEST+20 |
LRAN | SELTEST+6~, SELTEST+11*, SELTEST+17, SELTEST+22, SELTEST+23, SENDOR+3~, SENDOR+8, SENDOR+9, SENDOR+11, SENDOR+14 |
LRC | SETUP+8~, SETUP+25*, SETUP+26* |
LRDEFAULT | ASKXQA~, ASKXQA+9*, ASKXQA+11 |
LRDELETE | LOOKUP+1~, LOOKUP+9*, LOOKUP+26, LOOKUP+33 |
LRDFN | SETUP~, SETUP+24, SETUP+44, GETDOCS~, GETDOCS+7, GETDOCS+10, GETDOCS+14, OR~, OR+16, ASKXQA~ , ASKXQA+15, SENDOR+3~, SENDOR+10!, SENDOR+11*, SENDOR+12, SENDOR+16, SENDOR+21 |
LRDOCS | SETUP+8~, SETUP+24, GETDOCS~, GETDOCS+4*, GETDOCS+8*, GETDOCS+20*, GETDOCS+21*, GETDOCS+23*, GETDOCS+25* |
LRDOCS( | SETUP+26, GETDOCS+8*, GETDOCS+20*, GETDOCS+21*, GETDOCS+23*, GETDOCS+25* |
LRDPF | GETDOCS+2~, GETDOCS+10*, GETDOCS+11, SENDOR+3~, SENDOR+10!, SENDOR+12*, SENDOR+13 |
LRDT | GETDOCS+12~, GETDOCS+14*, GETDOCS+15*, GETDOCS+16, GETDOCS+22, GETDOCS+24 |
LREND | SENDOR+3~, SENDOR+5, SENDOR+6*, SENDOR+8* |
LRI | AHELP+1~, CURREC+2~, CURREC+10*, CURREC+11*, CURREC+12, CURREC+13, SELTEST+6~, SELTEST+21*, SELTEST+22*, SELTEST+23 |
LRIDT | SETUP~, SETUP+24, SETUP+44, GETDOCS~, GETDOCS+7, GETDOCS+14, OR~, OR+32, ASKXQA~, ASKXQA+15 , SENDOR+3~, SENDOR+10!, SENDOR+11*, SENDOR+16, SENDOR+21 |
LRIENS | OR+2~, OR+32*, OR+52 |
LRJ | SETUP+28~, SETUP+38~, CURREC+2~, CURREC+6*, CURREC+8*, CURREC+10*, CURREC+12*, CURREC+13, SELTEST+6~, SELTEST+18* , SELTEST+19, SELTEST+20 |
LRLAB | SENDOR+3~ |
LRMORE | SETUP+8~, SETUP+31*, SETUP+32, MORE+6*, MORE+13* |
LRMSG | SETUP+28~, SETUP+29, SETUP+38~, SETUP+39, LOOKUP+1~, LOOKUP+32!, LOOKUP+33*, LOOKUP+34, AHELP+1~, AHELP+10 , OR+2~, OR+35*, OR+36*, OR+39*, OR+40*, OR+42*, OR+52 |
LRMSG( | CURREC+8*, CURREC+10*, CURREC+12*, CURREC+13* |
LRMSG("" | CURREC+6 |
LRMSG(1 | AHELP+3* |
LRMSG(2 | AHELP+4* |
LRMSG(3 | AHELP+5* |
LRODT | OR+2~, OR+23*, OR+24, OR+26, OR+27, OR+28, OR+29, OR+30, OR+32 |
LROE | OR+2~, OR+23*, OR+30*, OR+32 |
LROIFN | OR+2~, OR+23*, OR+28*, OR+29*, OR+32, OR+52 |
LRPCP | GETDOCS+12~, GETDOCS+13*, GETDOCS+20*, GETDOCS+21*, GETDOCS+23*, GETDOCS+25* |
LRPREFIX | OR+2~, OR+18*, OR+35, OR+39 |
LRQUIT | SETUP+8~, MORE+14*, LOOKUP+5*, LOOKUP+6, LOOKUP+18* |
LRSN | OR+2~, OR+23*, OR+24, OR+26, OR+27, OR+28, OR+29, OR+30, OR+32 |
LRSS | SETUP~, SETUP+24, SETUP+44, GETDOCS~, GETDOCS+5, GETDOCS+7, GETDOCS+14, OR~, OR+14, OR+20 , OR+32, OR+34, OR+38, ASKXQA~, ASKXQA+15, SENDOR+3~, SENDOR+10!, SENDOR+11*, SENDOR+16, SENDOR+17 , SENDOR+21 |
LRSTOP | SENDOR+3~, SENDOR+5, SENDOR+6* |
LRTEST | SELTEST+6~, SELTEST+25 |
LRTEST( | SELTEST+23*, SELTEST+34 |
LRTST | SETUP+8~, SETUP+15*, SETUP+44, OR~, OR+26, OR+27, OR+42 |
LRTYPE | SETUP+8~, SETUP+10*, SETUP+21*, SETUP+37, SETUP+44, OR~, OR+18, OR+35, OR+39, OR+52 |
LRUID | SETUP~, SETUP+13, SETUP+44, OR~, OR+20, SELTEST~, SELTEST+10, ASKXQA~, ASKXQA+15, SENDOR+3~ , SENDOR+14*, SENDOR+15, SENDOR+21 |
LRVBY | SENDOR+3~, SENDOR+6* |
LRX | SETUP+8~, GETDOCS+2~, GETDOCS+7*, GETDOCS+8, GETDOCS+22*, GETDOCS+23, GETDOCS+24*, GETDOCS+25, OR+2~, OR+20* , OR+21, OR+22, SELTEST+6~, SELTEST+10*, SELTEST+11 |
LRXQA | SETUP+8~, SETUP+10*, SETUP+25*, SETUP+33*, SETUP+37, SETUP+44, CURREC+8, OR~, OR+52 |
LRXQA( | SETUP+26*, LOOKUP+27!, LOOKUP+30*, CURREC+11, CURREC+13 |
LRXQA("" | SETUP+27, SETUP+33 |
LRXQA("G." | LOOKUP+28!, LOOKUP+31* |
LRY | SETUP+8~, SETUP+10*, SETUP+13*, SETUP+14, SETUP+15, SETUP+34*, SETUP+43*, SETUP+44*, SETUP+46, OR+2~ , OR+22*, OR+23, SELTEST+6~, SELTEST+8*, SELTEST+12*, SELTEST+13, SELTEST+25*, SELTEST+27, SELTEST+32*, SELTEST+33* , SELTEST+34*, SELTEST+36, ASKXQA+7~, ASKXQA+15*, ASKXQA+16, SENDOR+3~, SENDOR+21*, SENDOR+22 |
VADMVT | GETDOCS+12~, GETDOCS+17 |
VAHOW | GETDOCS+18~ |
VAIN | GETDOCS+18~ |
VAIN(11 | GETDOCS+21 |
VAIN(2 | GETDOCS+20 |
VAINDT | GETDOCS+12~, GETDOCS+16* |
VAROOT | GETDOCS+18~ |
X | SETUP+8~, GETDOCS+2~, MORE+1~, MORE+9*, MORE+10, LOOKUP+1~, LOOKUP+20*, SELTEST+6~, ASKXQA+7~, SENDOR+3~ |
Y | SETUP+8~, SETUP+21, SETUP+43, MORE+1~, MORE+13, LOOKUP+1~, LOOKUP+20, LOOKUP+25, LOOKUP+27, LOOKUP+28 , LOOKUP+30, LOOKUP+31, LOOKUP+33, SELTEST+6~, SELTEST+32, SELTEST+34, ASKXQA+7~, ASKXQA+13, SENDOR+3~ |
Y(0 | SELTEST+33, SELTEST+34 |