ORWLRAP1 ;DSS/TFF - LAB ANATOMIC PATHOLOGY CONFIGURATION SUPPORT ;Feb 16, 2024@14:39
Source file <ORWLRAP1.m>
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 |
---|---|---|
Order Entry Results Reporting | 6 | ITEMS ORACCES2 ORCM UPDATE AP DIALOGS ORWLRAP1 APORDITM ORWLRAP1 CONFIG ORWLRAP1 SPEC |
Name | Comments | DBIA/ICR reference |
---|---|---|
GETIEN(IDX) | ; Get the 101.45 IEN from the orderable item IEN
|
|
CONFIG(RET,TYP,IEN) | ; RPC: ORWLRAP1 CONFIG
; *This configures the Delphi forms for CPRS aside from the original elements found ; in the Lab order dialog. |
|
DEFAULT(TYP) | ; Set Default Configuration
; *RET ; *** ORDER ELEMENTS ; O^ID^HIDE(1,0)^REQUIRED(1,0)^DEFAULT_VALUE |
|
SPEC(RET,IEN) | ; RPC: ORWLRAP1 SPEC
; *This returns the default specimen list. |
|
SPEC1() | ; Lab list of specimens for this test
|
|
NRQ(RQ,NM) | ; Add * to name if required
|
|
VWL(ND0,ND1,IENS) | ; Add value list as pipe delimited string
|
|
EXT(PC) | ; Extend Value
|
|
END | ; Clean Up
|
|
APOITEMS(Y,QOCALL,SHOWALL,CODE,NATFLAG,ACCESS) | ; Subset of AP orderable items
; Y(n)=IEN^.01 Name^.01 Name -or- IEN^Synonym <.01 Name>^.01 Name ; QOCALL = Allow quick orders ; SHOWALL = Show inactive entries ; CODE: 0 = List only entries already in File 101.45 ; 1 = List only entries not already in File 101.45 ; NATFLAG = Add National Standard flag as piece 4 of the data ; ACCESS - List of allowed display groups |
|
OK4CPRS(ORDITEM,QUICK) | ; Determines if an orderable item is allowed for AP Dialogs
; Also used as a screen by the LR OTHER LAB AP TESTS order dialog |
|
APORDITM(Y,QOCALL,ACCESS) | ; Subset of AP orderable items
|
|
APDLGS | ; Update AP Order Dialogs - Entry point for Option ORCM UPDATE AP DIALOGS
|
|
GETAPIENS() | ;
|
|
ADDACTION(ACTION) | ; Add Action Text to TEXT
|
|
ADD(TEXT,TEXT2,PREFIX) | ; Add TEXT2 to TEXT, insert PREFIX between the two if TEXT '= ""
|
|
GETATXT(ACTION) | ; Get Action Text
|
|
ADDQ(TEXT) | ; Add TEXT to DIR("?",INDEX) or RESULT
|
|
ADDDESC(ACTION) | ; Get action description
|
Name | Field # of Occurrence |
---|---|
$$FIND1^DIC | DEFAULT+20 |
^DIE | APDLGS+31 |
UPDATE^DIE | APDLGS+21 |
$$GET1^DIQ | SPEC1+5 |
^DIR | GETAPIENS+27, GETAPIENS+39, GETAPIENS+52, GETAPIENS+70 |
COLL^LR7OR3 | SPEC1+5 |
$$OK4CPRS^LRAPDLG | OK4CPRS+7 |
WRAP^ORUTL | GETAPIENS+68 |
$$CHKLABDIV^ORWDX2 | APOITEMS+29 |
$$NOW^XLFDT | APOITEMS+13, OK4CPRS+14 |
$$GET^XPAR | APOITEMS+14 |
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 |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
RPC Name | Call Tags |
---|---|
ORWLRAP1 CONFIG | CONFIG |
ORWLRAP1 SPEC | SPEC |
ORWLRAP1 APORDITM | APORDITM |
FileNo | Call Tags |
---|---|
^ORD(101.43 - [#101.43] | GET1^DIQ |
^ORD(101.45 - [#101.45] | Classic Fileman Calls |
^LAB(62 - [#62] | FIND1^DIC |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ORD(101.43 - [#101.43] | APOITEMS+15, APOITEMS+16, APOITEMS+24, APOITEMS+26, OK4CPRS+4, OK4CPRS+12, OK4CPRS+13, APDLGS+13 |
^ORD(101.45 - [#101.45] | GETIEN+1, CONFIG+13, CONFIG+17, CONFIG+18, CONFIG+20, CONFIG+24, CONFIG+26, CONFIG+33, CONFIG+34, CONFIG+35 , CONFIG+38, CONFIG+44, CONFIG+45, CONFIG+46, CONFIG+47, SPEC+9, SPEC+10, SPEC+11, SPEC+13, SPEC+14 , SPEC1+3, VWL+2, EXT+2, EXT+3, APOITEMS+18, APOITEMS+19, APOITEMS+33, OK4CPRS+10, OK4CPRS+11, APDLGS+18 , APDLGS+25*, GETAPIENS+56, GETAPIENS+72 |
^TMP($J | CONFIG+11, SPEC+8 |
Name | Line Occurrences |
---|---|
$$EXT | VWL+3 |
$$GETAPIENS | APDLGS+5 |
$$GETATXT | GETAPIENS+24, GETAPIENS+38, ADDACTION+1, ADDDESC+18 |
$$GETIEN | CONFIG+11, SPEC+8 |
$$NRQ | CONFIG+28, CONFIG+36 |
$$OK4CPRS | APOITEMS+17 |
$$VWL | CONFIG+37, CONFIG+49 |
ADD | GETAPIENS+24, ADDACTION+2 |
ADDACTION | GETAPIENS+15, GETAPIENS+16, GETAPIENS+17 |
ADDDESC | GETAPIENS+25 |
ADDQ | ADDDESC+2, ADDDESC+3, ADDDESC+4, ADDDESC+5, ADDDESC+7, ADDDESC+8, ADDDESC+9, ADDDESC+10, ADDDESC+15, ADDDESC+16 , ADDDESC+17, ADDDESC+18 |
APOITEMS | APORDITM+1, GETAPIENS+4, GETAPIENS+5 |
DEFAULT | CONFIG+13 |
END | CONFIG+16, CONFIG+23, CONFIG+43, DEFAULT+4, DEFAULT+10, DEFAULT+15, DEFAULT+19 |
SPEC1 | SPEC+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACCESS | APOITEMS~, APOITEMS+12*, APOITEMS+23, APORDITM~, APORDITM+1 |
ACTCOUNT | GETAPIENS+3~, GETAPIENS+19*, GETAPIENS+20, GETAPIENS+23, GETAPIENS+24 |
ACTION | APDLGS+1~, APDLGS+3, APDLGS+6*, APDLGS+9, APDLGS+10, APDLGS+12*, APDLGS+14*, APDLGS+17, APDLGS+22*, APDLGS+24 , GETAPIENS+1~, GETAPIENS+6*, GETAPIENS+20*, GETAPIENS+23*, GETAPIENS+24, GETAPIENS+25, GETAPIENS+27*, GETAPIENS+28, GETAPIENS+30, GETAPIENS+38 , GETAPIENS+39*, GETAPIENS+41*, GETAPIENS+43, GETAPIENS+49, GETAPIENS+52*, GETAPIENS+54*, GETAPIENS+55, GETAPIENS+63, GETAPIENS+64, GETAPIENS+65 , GETAPIENS+70*, GETAPIENS+71*, GETAPIENS+72, GETAPIENS+73, ADDACTION~, ADDACTION+1, GETATXT~, GETATXT+1, GETATXT+2, GETATXT+3 , GETATXT+4, ADDDESC~, ADDDESC+1, ADDDESC+6, ADDDESC+11, ADDDESC+18 |
ACTIONS | GETAPIENS+1~, GETAPIENS+6*, GETAPIENS+18, GETAPIENS+19, GETAPIENS+20, GETAPIENS+22, GETAPIENS+23, ADDACTION+2 |
ATXT | ADDACTION+1~*, ADDACTION+2 |
BLK | CONFIG+10~, CONFIG+46* |
C | SPEC+7~, SPEC+12*, SPEC+14* |
CANCOPY | GETAPIENS+3~, GETAPIENS+4*, GETAPIENS+14 |
CANEDIT | GETAPIENS+1~, GETAPIENS+5*, GETAPIENS+17 |
CHKACCESS | APOITEMS+9~, APOITEMS+12*, APOITEMS+23 |
CODE | APOITEMS~, APOITEMS+11*, APOITEMS+20, APOITEMS+21 |
CT | CONFIG+10~, CONFIG+52*, CONFIG+53, CONFIG+54, CONFIG+55, SPEC1+6*, SPEC1+7 |
CURTM | APOITEMS+9~, APOITEMS+13*, APOITEMS+27 |
DA | APDLGS+27~, APDLGS+28*, GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60! |
DES | CONFIG+10~ |
DES( | CONFIG+51*, CONFIG+54*, CONFIG+55* |
DES("" | CONFIG+54 |
DIE | APDLGS+27~, APDLGS+28* |
DIR | GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60! |
DIR("?" | GETAPIENS+26*, ADDQ+2* |
DIR("A" | GETAPIENS+26*, GETAPIENS+38*, GETAPIENS+51*, GETAPIENS+69*! |
DIR("B" | GETAPIENS+62* |
DIR(0 | GETAPIENS+22*, GETAPIENS+37*, GETAPIENS+48*, GETAPIENS+62* |
DIROUT | GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60! |
DIRUT | GETAPIENS+3~, GETAPIENS+27, GETAPIENS+36!, GETAPIENS+39, GETAPIENS+47!, GETAPIENS+52, GETAPIENS+60!, GETAPIENS+70 |
DLGIEN | APDLGS+1~, APDLGS+7*, APDLGS+9, APDLGS+18, APDLGS+25 |
DONE | GETAPIENS+3~ |
DR | APDLGS+27~, APDLGS+29*, APDLGS+30* |
DTOUT | GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60! |
DUOUT | GETAPIENS+3~, GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60! |
EDITIDX | GETAPIENS+2~, GETAPIENS+6*, GETAPIENS+41*, GETAPIENS+56, GETAPIENS+57 |
EDITIEN | APDLGS+1~, APDLGS+8*, APDLGS+9*, APDLGS+23*, APDLGS+25, APDLGS+26, APDLGS+28, GETAPIENS+2~, GETAPIENS+56*, GETAPIENS+72 , GETAPIENS+73 |
EDITNAME | GETAPIENS+2~, GETAPIENS+57*, GETAPIENS+64, GETAPIENS+65 |
ETXT | ADDDESC+12~, ADDDESC+13*, ADDDESC+14*, ADDDESC+15 |
FDA | APDLGS+11~ |
FDA( | APDLGS+15*, APDLGS+16*, APDLGS+19*, APDLGS+20* |
FLAG | GETAPIENS+1~, GETAPIENS+33*, GETAPIENS+34 |
FROM | APOITEMS+9~, APOITEMS+13*, APOITEMS+15*, APOITEMS+16, APOITEMS+26 |
HASFLAGS | GETAPIENS+1~, GETAPIENS+6*, GETAPIENS+7, GETAPIENS+8*, GETAPIENS+35, ADDDESC+14, ADDDESC+16 |
I | APOITEMS+9~, APOITEMS+13*, APOITEMS+30*, APOITEMS+31, APOITEMS+32, APOITEMS+33, APOITEMS+34, APDLGS+1~, APDLGS+25* |
IDX | GETIEN~, GETIEN+1, SPEC1+1~, SPEC1+3*, SPEC1+4, SPEC1+5, GETAPIENS+1~, GETAPIENS+7*, GETAPIENS+8, GETAPIENS+23* , GETAPIENS+24, GETAPIENS+32*, GETAPIENS+33, GETAPIENS+34, GETAPIENS+45*, GETAPIENS+46, GETAPIENS+69* |
IEN | CONFIG~, CONFIG+11*, CONFIG+12, CONFIG+13, CONFIG+17, CONFIG+18, CONFIG+20, CONFIG+24, CONFIG+26, CONFIG+33 , CONFIG+34, CONFIG+35, CONFIG+38, CONFIG+44, CONFIG+45, CONFIG+46, CONFIG+47, SPEC~, SPEC+8*, SPEC+9 , SPEC+10, SPEC+11, SPEC+13, SPEC+14, SPEC1+2, SPEC1+3, VWL+2, EXT+2, EXT+3, APOITEMS+9~ , APOITEMS+16*, APOITEMS+17, APOITEMS+18, APOITEMS+24, APOITEMS+26, APOITEMS+29, APOITEMS+31, APOITEMS+32, APDLGS+11~ |
IEN(1 | APDLGS+22, APDLGS+23 |
IENS | VWL~, VWL+2, EXT+2, EXT+3 |
INACTIVE | APOITEMS+9~, APOITEMS+19*, APOITEMS+22, APOITEMS+34 |
INDEX | GETAPIENS+1~, GETAPIENS+22*, ADDQ+1*, ADDQ+2 |
ITEM | GETAPIENS+1~, GETAPIENS+33*, GETAPIENS+34 |
L | CONFIG+10~, CONFIG+26*, CONFIG+27, CONFIG+28 |
LABIEN | APOITEMS+9~, APOITEMS+18*, APOITEMS+19, APOITEMS+20, APOITEMS+21, APOITEMS+33, OK4CPRS+2~, OK4CPRS+10*, OK4CPRS+11 |
LABTEST | OK4CPRS+2~, OK4CPRS+4*, OK4CPRS+5*, OK4CPRS+6, OK4CPRS+7 |
LRCODE | APOITEMS+9~, APOITEMS+23, APOITEMS+24*, APOITEMS+25* |
MAX | GETAPIENS+1~, GETAPIENS+5*, GETAPIENS+16, GETAPIENS+37, GETAPIENS+38 |
MSG | APDLGS+11~, APDLGS+22, GETAPIENS+2~ |
NAME | OK4CPRS+2~, OK4CPRS+12*, OK4CPRS+13, APDLGS+1~, APDLGS+13*, APDLGS+14, APDLGS+15 |
NATFLAG | APOITEMS~, APOITEMS+11*, APOITEMS+33, GETAPIENS+2~, GETAPIENS+72*, GETAPIENS+73 |
NATSTAND | APDLGS+1~, APDLGS+7*, APDLGS+29 |
ND0 | VWL~, VWL+2, VWL+3, EXT+2, EXT+3 |
ND1 | VWL~, VWL+2, EXT+2, EXT+3 |
NEWIDX | GETAPIENS+2~, GETAPIENS+6*, GETAPIENS+54*, GETAPIENS+58, GETAPIENS+59 |
NEWIEN | GETAPIENS+2~, GETAPIENS+58*, GETAPIENS+73 |
NEWNAME | GETAPIENS+2~, GETAPIENS+59*, GETAPIENS+63, GETAPIENS+64 |
NM | NRQ~, NRQ+1, NRQ+2 |
OD | CONFIG+10~, CONFIG+17*, CONFIG+18 |
OIIEN | APDLGS+1~, APDLGS+7*, APDLGS+12, APDLGS+13, APDLGS+15 |
OILIST | GETAPIENS+1~, GETAPIENS+5 |
OILIST( | GETAPIENS+7, GETAPIENS+8, GETAPIENS+32, GETAPIENS+33, GETAPIENS+40, GETAPIENS+56, GETAPIENS+57 |
OILIST(9999999 | GETAPIENS+5 |
OK | OK4CPRS+2~, OK4CPRS+3*, OK4CPRS+7*, OK4CPRS+8, OK4CPRS+9*, OK4CPRS+15*, OK4CPRS+16 |
ORAPDLGEDIT | APDLGS+1~, APDLGS+2* |
ORDITEM | OK4CPRS~, OK4CPRS+4, OK4CPRS+10, OK4CPRS+12, OK4CPRS+13 |
ORLABOK | APOITEMS+9~ |
ORLRFILTER | APOITEMS+10~, APOITEMS+14*, APOITEMS+29 |
OROUT | SPEC1+1~, SPEC1+5 |
OROUT("Specimens" | SPEC1+5, SPEC1+6, SPEC1+7 |
ORTESTIEN | APOITEMS+9~ |
PC | EXT~, EXT+1, EXT+3 |
PG | CONFIG+10~, CONFIG+24*, CONFIG+25, CONFIG+26, CONFIG+28, CONFIG+33, CONFIG+34, CONFIG+35, CONFIG+36, CONFIG+37 , CONFIG+38 |
POS | CONFIG+10~ |
POS( | CONFIG+48*, CONFIG+52, CONFIG+53 |
PREFIX | ADD~, ADD+3 |
QOCALL | APOITEMS~, APOITEMS+11*, APOITEMS+28, APORDITM~, APORDITM+1 |
QUICK | OK4CPRS~, OK4CPRS+8 |
RESPONSE | APDLGS+1~, APDLGS+5*, APDLGS+6, APDLGS+7 |
RESULT | ADD+1~, ADD+2*, ADD+3*, ADD+4*, ADD+5 |
RET | CONFIG~, CONFIG+11*, CONFIG+18, CONFIG+20, CONFIG+28, CONFIG+36, CONFIG+37, CONFIG+38, CONFIG+44, CONFIG+47 , CONFIG+48, CONFIG+49, CONFIG+51, CONFIG+54*, DEFAULT+5, DEFAULT+6, DEFAULT+7, DEFAULT+11, DEFAULT+12, DEFAULT+13 , DEFAULT+14, DEFAULT+16, DEFAULT+20, SPEC~, SPEC+8*, SPEC+10, SPEC+12, SPEC+14, SPEC1+7, END+1 , END+2 |
RQ | NRQ~, NRQ+1 |
SHOWALL | APOITEMS~, APOITEMS+11*, APOITEMS+22, APOITEMS+34 |
SP | CONFIG+10~, CONFIG+43*, CONFIG+44, CONFIG+45, CONFIG+46, CONFIG+47, CONFIG+49, SPEC+7~, SPEC+13*, SPEC+14 |
SPB | CONFIG+10~, CONFIG+46*, CONFIG+47, CONFIG+48, CONFIG+49, CONFIG+53*, CONFIG+54 |
STR | VWL+1~, VWL+3*, VWL+4 |
TEXT | ADD~, ADD+2, ADD+3, ADD+5*, ADDQ~, ADDQ+2 |
TEXT2 | ADD~, ADD+4 |
TXT | GETAPIENS+2~, GETAPIENS+22*, GETAPIENS+24, GETAPIENS+26, GETAPIENS+49*, GETAPIENS+50*, GETAPIENS+51, GETAPIENS+62*, GETAPIENS+63*, GETAPIENS+64* , GETAPIENS+65*, GETAPIENS+66, GETAPIENS+67*, GETAPIENS+68 |
TYP | CONFIG~, CONFIG+12, CONFIG+13, CONFIG+16, CONFIG+20, CONFIG+23, CONFIG+25, CONFIG+28, CONFIG+43, DEFAULT~ , DEFAULT+4, DEFAULT+10, DEFAULT+15, DEFAULT+16, DEFAULT+19, DEFAULT+20 |
U | CONFIG+27, CONFIG+28, CONFIG+33, CONFIG+36, CONFIG+37, CONFIG+38, CONFIG+44, CONFIG+47, CONFIG+48, CONFIG+49 , CONFIG+51, CONFIG+54, SPEC+10, SPEC+11, SPEC+14, SPEC1+3, EXT+3, APOITEMS+19, APOITEMS+23, APOITEMS+24 , APOITEMS+27, APOITEMS+28, APOITEMS+31, APOITEMS+32, APOITEMS+33, APOITEMS+34, OK4CPRS+4, OK4CPRS+11, OK4CPRS+12, OK4CPRS+14 , APDLGS+6, APDLGS+7, APDLGS+10, APDLGS+13, APDLGS+19, APDLGS+20, GETAPIENS+8, GETAPIENS+30, GETAPIENS+33, GETAPIENS+34 , GETAPIENS+40, GETAPIENS+43, GETAPIENS+46, GETAPIENS+53, GETAPIENS+56, GETAPIENS+57, GETAPIENS+58, GETAPIENS+59, GETAPIENS+72, GETAPIENS+73 |
UMAX | GETAPIENS+1~, GETAPIENS+4*, GETAPIENS+48, GETAPIENS+51 |
UNASSIGNED | GETAPIENS+3~, GETAPIENS+4 |
UNASSIGNED( | GETAPIENS+45, GETAPIENS+46, GETAPIENS+53, GETAPIENS+58, GETAPIENS+59 |
UNASSIGNED(9999999 | GETAPIENS+4 |
V | VWL+1~, VWL+2*, EXT+2 |
VI | EXT+2~*, EXT+3 |
W | CONFIG+10~, CONFIG+34*, CONFIG+35, CONFIG+36, CONFIG+37 |
WL | CONFIG+10~, CONFIG+35*, CONFIG+36 |
X | APOITEMS+9~, APOITEMS+26*, APOITEMS+27, APOITEMS+28, APOITEMS+31, APOITEMS+32, OK4CPRS+2~, OK4CPRS+13*, OK4CPRS+14, GETAPIENS+3~ , GETAPIENS+36!, GETAPIENS+47!, GETAPIENS+60! |
X0 | APDLGS+1~, APDLGS+18*, APDLGS+19, APDLGS+20 |
XREF | APOITEMS+9~, APOITEMS+13*, APOITEMS+15, APOITEMS+16, APOITEMS+26, APOITEMS+29 |
Y | APOITEMS~, APORDITM~, APORDITM+1, GETAPIENS+3~, GETAPIENS+27, GETAPIENS+36!, GETAPIENS+40, GETAPIENS+41, GETAPIENS+47!, GETAPIENS+53 , GETAPIENS+54, GETAPIENS+60!, GETAPIENS+71 |
Y( | APOITEMS+31*, APOITEMS+32*, APOITEMS+33*, APOITEMS+34* |