ORCD ; SLC/MKB - Order Dialog utilities ;12/15/2006
Source file <ORCD.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
INPT() | ; -- Return 1 or 0, if patient/order sheet = inpatient
|
|
EXT(P,I,F) | ; -- Returns external value of ORDIALOG(Prompt,Instance)
|
|
FTDATE(X,F) | ; -- Returns free text form of date (i.e. TODAY)
|
|
FTD1 | ||
FTDHELP | ; -- Displays ??-help for R-type prompts
|
|
FTDCOMP(X1,X2,OPER) | ; -- Compares free text dates from prompts X1 & X2
; Returns 1 or 0, IF $$VAL(X1)<OPER>$$VAL(X2) is true |
|
TIME(X) | ; -- Returns 00:00 PM formatted time
|
|
VAL(TEXT,INST) | ; -- Returns internal form of TEXT's current value
|
|
ORDMSG(OI) | ; -- Display order message for orderable OI
|
|
PTR(NAME) | ; -- Returns pointer to Dialog file for prompt NAME
|
|
NMSP(PKG) | ; -- Returns package namespace from pointer
|
|
GETQDLG(QIFN) | ; -- define ORDIALOG(PROMPT) for quick order QIFN
|
|
DEFDLG(QDLG) | ; -- Returns default dialog for QDLG
|
|
GETDLG(IFN) | ; -- define ORDIALOG(PROMPT) for dialog IFN
|
|
GETDLG1(IFN) | ; -- basic ORDIALOG(PROMPT) for dialog IFN
|
|
GETORDER(ROOT,ARRAY) | ; -- retrieve order values from RESPONSES in ARRAY()
|
|
RESTXT | ; -- resolve objects in text [from GETORDER+8]
|
|
DUP(PROMPT,CURRENT) | ; -- Compare CURRENT instance of PROMPT for duplicates
|
|
LIST | ; -- Show contents of ORDIALOG(PROMPT,"LIST")
|
|
LIST1 | ||
SETLIST | ; -- Show allowable set of codes
|
|
SETLST1 | ||
MORE() | ; -- show more?
|
|
FIRST(P,I) | ; -- Returns 1 or 0, if current instance I is first of multiple
|
|
RECALL(P,I) | ; -- Returns first value for prompt P, instance I
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(9.4 - [#9.4] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | INPT+1 |
^ORD(100.5 - [#100.5] | INPT+3, INPT+4 |
^ORD(100.98 - [#100.98] | DEFDLG+2, DEFDLG+3 |
^ORD(101.41 - [#101.41] | PTR+1, GETQDLG+3, DEFDLG+1, GETDLG+3, GETDLG+4, GETDLG+6, GETDLG+7, GETDLG1+3, GETDLG1+4, GETDLG1+5 , GETDLG1+6, GETORDER+5 |
^ORD(101.43 - [#101.43] | ORDMSG+1, ORDMSG+3 |
^TMP("ORECALL" | RECALL+1 |
^TMP("ORWORD" | GETDLG+2!, GETDLG1+2!, GETORDER+9* |
^TMP("ORX" | RESTXT+1* |
Name | Field # of Occurrence |
---|---|
^( | ORDMSG+3, GETDLG+4 |
^(1 | GETDLG+4 |
^(3 | GETQDLG+3 |
^(4 | GETDLG+4 |
^(6 | GETDLG+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | FTDATE+9~*, FTDCOMP+2~, FTDCOMP+3*, FTDCOMP+4*, TIME+1~, TIME+5* |
ARRAY | GETORDER~, GETORDER+1*, GETORDER+7, GETORDER+9, GETORDER+10, RESTXT+2~ |
CNT | LIST1~*, LIST1+2* |
CURRENT | DUP~, DUP+2, DUP+3 |
D | FTDATE+1~, FTDATE+2*, FTDATE+8, FTDATE+10, FTDATE+11, FTD1+2, FTD1+3, FTD1+6, FTD1+7, FTD1+8 |
DA | GETDLG+1~, GETDLG+3*, GETDLG+4, GETDLG+7, GETDLG1+1~, GETDLG1+3*, GETDLG1+4, GETDLG1+5, GETDLG1+7, GETORDER+1~ , GETORDER+4*, GETORDER+5 |
DG | DEFDLG+1~*, DEFDLG+2, DEFDLG+3 |
DIR | MORE+1~ |
DIR("A" | MORE+2* |
DIR(0 | MORE+2* |
DLG | DEFDLG+1~, DEFDLG+2*, DEFDLG+3*, DEFDLG+4 |
>> DOMAIN | SETLST1 |
DONE | LIST1~*, LIST1+1, LIST1+2* |
F | EXT~, EXT+7*, EXT+8, EXT+12*, EXT+13, EXT+14, FTDATE~, FTDATE+8, FTDATE+9* |
FNUM | EXT+1~, EXT+10*, EXT+12, EXT+13 |
HELP | GETDLG+1~, GETDLG+4*, GETDLG+11* |
I | EXT~, EXT+3, VAL+1~, VAL+2*, ORDMSG+2~*, ORDMSG+3*, DUP+1~, DUP+3*, LIST1~*, LIST1+1* , LIST1+3, SETLST1~*, FIRST~, FIRST+1, RECALL~, RECALL+1* |
ID | GETORDER+1~, GETORDER+3*, GETORDER+4 |
IENS | EXT+1~, EXT+11*, EXT+12, EXT+13 |
IFN | GETDLG~, GETDLG+3, GETDLG+4, GETDLG1~, GETDLG1+3, GETDLG1+4, GETDLG1+5 |
INDEX | GETDLG+1~, GETDLG+5*, GETDLG+13 |
INPUTXFM | GETDLG+1~, GETDLG+4*, GETDLG+8 |
INST | VAL~, VAL+1*, VAL+4, GETORDER+1~, GETORDER+4*, GETORDER+7, GETORDER+9, GETORDER+10, RESTXT+2~ |
IOSL | LIST1+2 |
ITEM | GETDLG+1~, GETDLG+4*, GETDLG+5, GETDLG+9, GETDLG+10 |
J | EXT+1~, EXT+11*, EXT+14* |
LKP | GETDLG+1~, GETDLG+11* |
NAME | PTR~, PTR+1 |
NUM | FTD1+1~, FTD1+2*, FTD1+3, FTD1+4, FTD1+5, LIST+1~*, LIST+2 |
OFFSET | FTD1+1~, FTD1+2* |
OI | ORDMSG~, ORDMSG+1, ORDMSG+3 |
OPER | FTDCOMP~, FTDCOMP+5 |
ORD | GETDLG+1~, GETDLG+6!, GETDLG+7*, GETDLG+16 |
ORD("?" | GETDLG+11* |
ORD("??" | GETDLG+12* |
ORD("A" | GETDLG+9* |
ORD("D" | GETDLG+13* |
ORD("LKP" | GETDLG+11* |
ORD("MAX" | GETDLG+10* |
ORD("MORE" | GETDLG+10* |
ORD("S" | GETDLG+14* |
ORD("TTL" | GETDLG+9* |
ORD(0 | GETDLG+8* |
>> ORDIALOG | GETQDLG+1*, GETQDLG+2, GETORDER+5, RECALL+1 |
>> ORDIALOG( | EXT+2, EXT+3, VAL+4, GETDLG+16*, GETDLG1+7*, GETDLG1+8*, GETORDER+6, DUP+2, DUP+3, LIST+1 , LIST1+1, LIST1+3, FIRST+1 |
>> ORDIALOG("B" | VAL+2, VAL+3, GETDLG+15* |
>> OREVENT | INPT+2, INPT+3 |
ORI | GETORDER+1~, GETORDER+3*, GETORDER+7, RESTXT+1, RESTXT+3 |
ORTXT | GETORDER+1~, GETORDER+9, GETORDER+10, GETORDER+11, RESTXT+1*, RESTXT+3 |
>> ORTYPE | RESTXT+1 |
>> ORVP | INPT+1, RESTXT+3 |
>> ORWARD | INPT+1 |
P | EXT~, EXT+2, EXT+3, FTDATE+1~, FTDATE+10*, FTDATE+11, FTD1+2, FTD1+3, FTD1+6, FTD1+7 , FTD1+8, FIRST~, FIRST+1, RECALL~, RECALL+1 |
PARAM | EXT+1~, EXT+2*, EXT+10*, EXT+11, EXT+14 |
PKG | NMSP~, NMSP+1 |
PROMPT | GETDLG+1~, GETDLG+7*, GETDLG+8, GETDLG1+1~, GETDLG1+6*, GETDLG1+7, GETDLG1+8, DUP~, DUP+2, DUP+3 , LIST+1, LIST1+1, LIST1+3 |
PTR | GETDLG+1~, GETDLG+5*, GETDLG+6, GETDLG+7, GETDLG+15, GETDLG+16, GETDLG1+1~, GETDLG1+4*, GETDLG1+6, GETDLG1+7 , GETDLG1+8, GETORDER+1~, GETORDER+4*, GETORDER+5*, GETORDER+6, GETORDER+7, GETORDER+9, GETORDER+10, RESTXT+2~ |
QDLG | DEFDLG~, DEFDLG+1 |
QIFN | GETQDLG~, GETQDLG+1, GETQDLG+2, GETQDLG+3 |
ROOT | GETORDER~, GETORDER+2*, GETORDER+3, GETORDER+7, RESTXT+1, RESTXT+3 |
SCREEN | GETDLG+1~, GETDLG+4*, GETDLG+14 |
SEQ | GETDLG+1~, GETDLG+2*, GETDLG+3*, GETDLG+15, GETDLG1+1~, GETDLG1+2*, GETDLG1+3* |
T | FTDATE+1~, FTDATE+2*, FTD1+9 |
TEXT | VAL~, VAL+2*, VAL+3, GETDLG+1~, GETDLG+5*, GETDLG+6*, GETDLG+9, GETDLG+15 |
TOP | DEFDLG+1~, DEFDLG+3* |
TYPE | EXT+1~, EXT+2*, EXT+4, EXT+5, EXT+6, EXT+7, EXT+8, EXT+9, EXT+14, GETORDER+1~ , GETORDER+6*, GETORDER+7 |
U | INPT+4, INPT+5, INPT+7, INPT+8, EXT+2, EXT+10, VAL+3, DEFDLG+1, DEFDLG+2, DEFDLG+3 , GETDLG+5, GETDLG+6, GETDLG+7, GETDLG+8, GETDLG+9, GETDLG+10, GETDLG+11, GETDLG+12, GETDLG+15, GETDLG1+4 , GETDLG1+5, GETDLG1+7, GETDLG1+8, GETORDER+4, GETORDER+5, DUP+3, LIST+2, LIST1+3 |
UNIT | FTD1+1~, FTD1+2*, FTD1+3, FTD1+4 |
WINCTRL | GETDLG1+1~, GETDLG1+5*, GETDLG1+7 |
X | INPT+3~*, INPT+5*, INPT+6, INPT+7, INPT+8, EXT+1~, EXT+3*, EXT+4*, EXT+5, EXT+6 , EXT+7, EXT+8, EXT+11, EXT+14, FTDATE~, FTDATE+1, FTDATE+2*, FTDATE+3, FTDATE+4, FTDATE+5 , FTDATE+6, FTDATE+7, FTDATE+8, FTDATE+9*, FTDCOMP+2~, FTDCOMP+3*, FTDCOMP+4*, TIME~, TIME+2, TIME+3 , TIME+4, TIME+5*, VAL+1~*, VAL+2, VAL+3*, VAL+4, GETORDER+1~, GETORDER+7*, DUP+1~, DUP+2* , SETLST1~*, SETLST1+1, MORE+1~ |
X0 | INPT+3~*, INPT+4*, INPT+5, INPT+7, INPT+8 |
X1 | FTDCOMP~, FTDCOMP+3 |
X2 | FTDCOMP~, FTDCOMP+4 |
XHELP | GETDLG+1~, GETDLG+4*, GETDLG+12 |
Y | INPT+1~*, INPT+6*, INPT+7*, INPT+8*, INPT+9, EXT+1~, EXT+9, EXT+12*, EXT+13*, EXT+14* , EXT+15, FTDATE+1~, FTDATE+9, FTDATE+11*, FTD1+3*, FTD1+4*, FTD1+5*, FTD1+6*, FTD1+7*, FTD1+8* , FTD1+9*, FTD1+10, FTDCOMP+2~, FTDCOMP+3, FTDCOMP+4, TIME+1~, TIME+5, TIME+6, NMSP+1~*, NMSP+2* , NMSP+3, DUP+1~, DUP+2*, DUP+3*, DUP+4, MORE+1~, MORE+4, RECALL+1~*, RECALL+2 |
Y1 | FTDCOMP+2~, FTDCOMP+3*, FTDCOMP+5 |
Y2 | FTDCOMP+2~, FTDCOMP+4*, FTDCOMP+5 |
Z | EXT+1~, EXT+11*, EXT+14*, FTDCOMP+2~, FTDCOMP+5*, TIME+1~, TIME+6*, TIME+7 |