ORAMSET ; ISL/JER - Anticoagulation Setup ;11/20/14 11:12
Source file <ORAMSET.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ; Enter Parameters
|
|
| SETDIV | ; Enter Site Parameters
|
|
| SETCLIN | ; Enter Clinic Parameters
|
|
| TIMEOUT(T0) | ; Evaluate whether TED^XPAREDIT timed-out (since it NEWs DTOUT and DIRUT)
|
|
| GETCLINS(RESULT) | ; Get Clinics
|
|
| CLIN4PT(RESULT,ORAMDFN) | ; Get the Clinic which is following the patient
|
|
| GET(RESULT,ORAMENT,ORVDT) | ; Get Parameters
|
|
| INDICS(RESULT,ORVDT) | ; RPC To Get indications for care
|
|
| GETDIV() | ; get division
|
|
| SELDIV() | ; select division
|
|
| SELLOC() | ; select hospital location
|
|
| GOODLOC(LOC) | ; Returns 1 if ^SC hospital location IFN LOC is good, else 0
|
|
| GETPARM(X) | ; Get parameter as IEN^NAME
|
|
| GETCMPDT(CODESYS) | ; Returns compare date for indication set-up
|
|
| ISCODEOK(CODE,CODESYS) | ; Boolean - is code active as of compare date for code system
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| RPC Name | Call Tags |
|---|---|
| ORAMSET GET | GET |
| ORAMSET GETCLINS | GETCLINS |
| ORAMSET INDICS | INDICS |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
