ORCDPS ;SLC/MKB-Pharmacy dialog utilities ;02:36 PM 2 Apr 2001
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 | 
| Outpatient Pharmacy | 1 | ($$SC,SC)^PSOCP | 
| Pharmacy Data Management | 1 | START^PSSJORDF | 
| Registration | 1 | $$LOWER^VALM1 | 
| VA Fileman | 1 | ^DIR | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| PTR(X) | ; -- Return ptr to prompt OR GTX X | |
| CHANGED(TYPE) | ; -- Kill dependent values when OI changes | |
| NF(DRUG) | ; -- Get alternatives for non-formulary drugs ; [Called from P-S Action for Dose] | |
| 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 | |
| INSTR(OI) | ; -- Get allowable instructions and routes | |
| NF1 | ||
| ASKSC() | ; -- Return 1 or 0, if SC prompt should be asked | |
| CHOICES(TYPE) | ; -- Get list of allowable dispense drugs | 
| 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+11 | 
| 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+8 | 
| 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+12 | 
| 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+9~*, RESETID+10*, RESETID+11 | 
| 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+12* | 
| >> ORDOSE("DD" | DISPDRUG+12, DISPDRUG+13, DISPDRUG+17, ID+4, RESETID+7 | 
| >> ORDOSE(1 | DISPDRUG+5, DISPDRUG+9, DISPDRUG+16, DISPDRUG+22, RESETID+9 | 
| >> ORDRUG | ASKSC+1, RESETID+7, RESETID+11 | 
| >> ORENEW | NF+3 | 
| ORESET | NF1+12! | 
| >> ORI | NF1+13* | 
| ORID | DISPDRUG+3~, DISPDRUG+12*, DISPDRUG+19, RESETID+3~, RESETID+4*, RESETID+12 | 
| 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+8, RESETID+9, RESETID+11 | 
| 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+9 | 
| UD | RESETID+9~*, RESETID+10, RESETID+11 | 
| UNT | RESETID+3~, RESETID+4*, RESETID+5, RESETID+11 | 
| 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+7*, RESETID+8, RESETID+11*, RESETID+12, PTR~ , PTR+1 | 
| 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 |