ORCDPS ;SLC/MKB - Pharmacy dialog utilities ;Oct 19, 2022@13:32:56
Source file <ORCDPS.m>
Package | Total | Call Graph |
---|---|---|
Order Entry Results Reporting | 3 | ($$PTR,$$VAL,LIST)^ORCD (CHANGED,OI2)^ORCDPS1 D1^ORCDPS2 |
Inpatient Medications | 1 | (ENDD,ENRFA)^PSJORUTL |
Integrated Billing | 1 | $$RXST^IBARXEU |
List Manager | 1 | $$LOWER^VALM1 |
Outpatient Pharmacy | 1 | ($$SC,SC)^PSOCP |
Pharmacy Data Management | 1 | START^PSSJORDF |
VA FileMan | 1 | ^DIR |
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHANGED(TYPE) | ; -- Kill dependent values when OI changes
|
|
ASKSC() | ; -- Return 1 or 0, if SC prompt should be asked
|
|
INSTR(OI) | ; -- Get allowable instructions and routes
|
|
CHOICES(TYPE) | ; -- Get list of allowable dispense drugs
|
|
NF(DRUG) | ; -- Get alternatives for non-formulary drugs
; [Called from P-S Action for Dose] |
|
NF1 | ||
DISPDRUG() | ; -- Get Dispense Drug from dose selection(s) [from EXDOSE^ORCDPS2]
; Expects PROMPT, ORDIALOG(), ORDOSE() |
|
ID() | ; -- Return ID string for dose instance INST
|
|
RESETID | ; -- Reset ORDIALOG(DOSE) nodes for new ORDRUG
; From EXDOSE^ORCDPS2: Expects PROMPT, DRUG |
|
PTR(X) | ; -- Return ptr to prompt OR GTX X
|
Name | Field # of Occurrence |
---|---|
^DIR | NF1+6 |
$$RXST^IBARXEU | ASKSC+2 |
$$PTR^ORCD | INSTR+6, INSTR+8, NF1+10 |
$$VAL^ORCD | CHOICES+2 |
LIST^ORCD | NF1+12 |
CHANGED^ORCDPS1 | NF1+11 |
OI2^ORCDPS1 | NF1+11 |
D1^ORCDPS2 | NF1+11 |
ENDD^PSJORUTL | CHOICES+3, CHOICES+4, CHOICES+5 |
ENRFA^PSJORUTL | NF+5 |
$$SC^PSOCP | ASKSC+1 |
SC^PSOCP | ASKSC+1 |
START^PSSJORDF | INSTR+3 |
$$LOWER^VALM1 | INSTR+10 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^ORD(100.98 - [#100.98] | INSTR+5 |
^ORD(101.41 - [#101.41] | CHANGED+10, PTR+1 |
^ORD(101.43 - [#101.43] | INSTR+3, CHOICES+2, NF+6, NF+10, NF1+8 |
^TMP("PSJINS" | INSTR+2!, INSTR+9 |
^TMP("PSJMR" | INSTR+2! |
^TMP("PSJNOUN" | INSTR+2!, INSTR+7 |
^TMP("PSJSCH" | INSTR+4 |
Name | Line Occurrences |
---|---|
$$PTR | DISPDRUG+4, DISPDRUG+12, ID+2, RESETID+4 |
Name | Field # of Occurrence |
---|---|
^( | INSTR+7 |
^($J | INSTR+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CNT | INSTR+1~, INSTR+6*, INSTR+7*, INSTR+8 |
DD | NF+2~, NF+7*, NF+8, DISPDRUG+3~, DISPDRUG+4*, DISPDRUG+5*, DISPDRUG+6, DISPDRUG+9*, DISPDRUG+10*, DISPDRUG+11 , DISPDRUG+12*, DISPDRUG+13, DISPDRUG+17, DISPDRUG+18, DISPDRUG+20, DISPDRUG+21, DISPDRUG+22*, DISPDRUG+23*, DISPDRUG+24, ID+1~ , ID+2*, ID+3*, ID+4 |
DIR | NF1+1~ |
DIR("?" | NF1+4* |
DIR("A" | NF1+2*, NF1+3*, NF1+13* |
DIR(0 | NF1+1* |
DONE | NF1+12! |
DOSE | DISPDRUG+3~, DISPDRUG+7*, DISPDRUG+8, DISPDRUG+9, DISPDRUG+15*, DISPDRUG+17, DISPDRUG+18, DISPDRUG+19, ID+1~, ID+2* , ID+3, ID+4, RESETID+3~, RESETID+7*, RESETID+8, RESETID+9, RESETID+10, RESETID+11, RESETID+13 |
DRUG | NF~, NF+3, NF+5, RESETID+4 |
DTOUT | NF+2~, NF1+6 |
DUOUT | NF+2~, NF1+6 |
FORM | DISPDRUG+3~, DISPDRUG+5*, DISPDRUG+9, RESETID+3~, RESETID+5*, RESETID+10 |
HALFOK | DISPDRUG+3~, DISPDRUG+13*, DISPDRUG+20 |
I | CHANGED+1~, CHANGED+11*, INSTR+1~, INSTR+6*, INSTR+7*, INSTR+9*, CHOICES+1~, CHOICES+6*, CHOICES+7*, CHOICES+8* , CHOICES+12, NF+2~, NF+7*, NF+9*, NF+12, NF1, NF1+3*, DISPDRUG+3~, DISPDRUG+6*, DISPDRUG+7 , DISPDRUG+14*, DISPDRUG+15, DISPDRUG+18, DISPDRUG+19, DISPDRUG+20, DISPDRUG+23*, RESETID+3~, RESETID+6*, RESETID+7, RESETID+14 |
ID | ID+1~, ID+2*, ID+4*, ID+5 |
>> INST | NF1+13*, ID+2 |
INSTR | INSTR+1~, INSTR+8*, INSTR+10, INSTR+11, ID+1~, ID+2*, ID+3 |
NAME | CHANGED+1~, CHANGED+9*, CHANGED+10 |
NOUN | INSTR+1~, INSTR+6*, INSTR+7, INSTR+8, RESETID+11~*, RESETID+12*, RESETID+13 |
OI | INSTR~, INSTR+3, CHOICES+1~, CHOICES+2* |
OK | DISPDRUG+3~, DISPDRUG+13*, DISPDRUG+14, DISPDRUG+17*, DISPDRUG+21* |
>> ORCAT | NF+4, DISPDRUG+9, DISPDRUG+10, RESETID+3 |
>> ORDG | INSTR+5 |
>> ORDIALOG( | CHANGED+11!, CHANGED+12!, INSTR+7*, INSTR+8*, INSTR+10*, INSTR+11*, CHOICES+1, CHOICES+12*, CHOICES+13*, NF1+10* , NF1+12, NF1+13, DISPDRUG+4, DISPDRUG+6, DISPDRUG+7, DISPDRUG+8, DISPDRUG+14, DISPDRUG+15, DISPDRUG+19, ID+2 , ID+3, RESETID+6, RESETID+7, RESETID+14* |
>> ORDOSE("DD" | DISPDRUG+12, DISPDRUG+13, DISPDRUG+17, ID+4, RESETID+9 |
>> ORDOSE(1 | DISPDRUG+5, DISPDRUG+9, DISPDRUG+16, DISPDRUG+22, RESETID+11 |
>> ORDRUG | ASKSC+1, RESETID+9, RESETID+13 |
>> ORENEW | NF+3 |
ORESET | NF1+12! |
>> ORI | NF1+13* |
ORID | DISPDRUG+3~, DISPDRUG+12*, DISPDRUG+19, RESETID+3~, RESETID+4*, RESETID+14 |
ORLEAD | INSTR+2!, INSTR+10*, INSTR+11 |
ORNOUNS | INSTR+2!, INSTR+6*, INSTR+7*, INSTR+11 |
>> OROI | NF+6, NF+10, NF1+9 |
ORPSOI | NF+2~, NF+6*, NF+8 |
ORQTY | CHANGED+3!, CHANGED+4!, CHANGED+7! |
>> ORQUIT | NF1, NF1+6* |
ORSCHED | CHANGED+3!, CHANGED+4!, CHANGED+7!, INSTR+2!, INSTR+4* |
>> ORVP | ASKSC+1, ASKSC+2, CHOICES+4 |
ORX | CHOICES+1~, CHOICES+3*, CHOICES+4, CHOICES+5, CHOICES+7*, CHOICES+8*, DISPDRUG+3~ |
ORX( | DISPDRUG+17!, DISPDRUG+18*, DISPDRUG+20*, DISPDRUG+21!, DISPDRUG+23 |
ORX(0 | DISPDRUG+22 |
ORY | CHOICES+1~, CHOICES+4, CHOICES+5, CHOICES+6, CHOICES+13, NF+2~, NF+5, NF+7, NF+12, NF1 , NF1+1 |
ORY( | CHOICES+6!, NF+7, NF+8 |
ORY("B" | CHOICES+6*, CHOICES+8, NF+9*, NF1+3, NF1+8 |
ORY("PS" | NF+8, NF+9* |
P | CHANGED+1~, CHANGED+9* |
>> PROMPT | CHOICES+1, CHOICES+12, CHOICES+13, NF1+12, NF1+13, DISPDRUG+6, DISPDRUG+7, DISPDRUG+8, DISPDRUG+14, DISPDRUG+15 , RESETID+6, RESETID+7 |
PROMPTS | CHANGED+1~, CHANGED+2*, CHANGED+3*, CHANGED+4*, CHANGED+5*, CHANGED+6*, CHANGED+7*, CHANGED+8*, CHANGED+9 |
PSJOI | CHOICES+1~, CHOICES+2*, CHOICES+4, CHOICES+5 |
PSOI | INSTR+1~, INSTR+3*, NF+2~, NF+8*, NF+9, NF1+8* |
PTR | CHANGED+1~, CHANGED+10*, CHANGED+11, CHANGED+12 |
STR | DISPDRUG+3~, DISPDRUG+13*, DISPDRUG+19, RESETID+3~, RESETID+4*, RESETID+10, RESETID+11, RESETID+13 |
TYPE | CHANGED~, CHANGED+2, CHANGED+3, CHANGED+4, CHANGED+5, CHANGED+6, CHANGED+7, CHANGED+8, CHOICES~, CHOICES+4 , CHOICES+5, NF+2~, NF+4*, NF+5 |
U | CHANGED+9, INSTR+3, INSTR+5, INSTR+7, INSTR+9, CHOICES+2, CHOICES+6, CHOICES+9, CHOICES+10, CHOICES+11 , CHOICES+12, NF+6, NF+8, NF+10, NF1+3, DISPDRUG+5, DISPDRUG+13, RESETID+4, RESETID+11 |
UD | RESETID+11~*, RESETID+12, RESETID+13 |
UNT | RESETID+3~, RESETID+4*, RESETID+5, RESETID+13 |
X | INSTR+1~, INSTR+7*, INSTR+9*, INSTR+10, CHOICES+1~, CHOICES+6*, CHOICES+8*, CHOICES+9, CHOICES+10, CHOICES+11 , CHOICES+12, NF+2~, NF1+8*, NF1+9, NF1+10, DISPDRUG+3~, DISPDRUG+7*, DISPDRUG+8*, DISPDRUG+9, DISPDRUG+10 , DISPDRUG+17*, DISPDRUG+19*, DISPDRUG+20, DISPDRUG+23*, RESETID+3~, RESETID+9*, RESETID+10, RESETID+13*, RESETID+14, PTR~ , PTR+1 |
>> XQY0 | DISPDRUG+4 |
Y | CHOICES+1~, CHOICES+9*, CHOICES+10*, CHOICES+11*, CHOICES+12, NF+2~, NF1+7, NF1+8 |
Name | Field # of Occurrence |
---|---|
$T(ENDD^PSJORUTL | CHOICES+3 |
$T(SC^PSOCP | ASKSC+1 |