VPSMRAR0 ;DALOI/KML,WOIFO/BT - Update of VPS MRAR PDO file ;1/15/15 15:30
Source file <VPSMRAR0.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TABLE(ARRAY) | ;build array of valid fields defined to VPS MRAR PDO (#853.5)
|
|
| ERROR(FDAERR,STRING,MSG) | ;
; INPUT ; FDAERR : error array that was created when attempting to file the changes ; STRING : Field Name^IENS^Field Value ; IENS is composite string assigned to a subscript in the local array passed in by Vecna for the specific field ; MSG : message to be appended to the returned result |
|
| RESULT(DATA,RETCODE,ERRMSG) | ; return result with a structure recognized by vecna
; INPUT ; DATA : Field Name^IENS^Field Value ; IENS is composite string assigned to a subscript in the local array passed in by Vecna for the specific field ; RETCODE : Return Code ; ERRMSG : Error Message (optional) |
|
| GREQFLD(VARRAY,DDARRY,REQFLDS) | ;Build REQFLDS array. Each sub file must have the required field in the array otherwise generates error
; INPUTS ; VARRAY : encounter, statistics, allergy and medication related data sent in a subscripted array by kiosk client ; VARRAY(n) = FIELD NAME^ARRAY IENS^FIELD VALUE ; DDARRY : array of DD definitions defined at 853.51, 853.52, 853.53, 853.57 used for ; validating and filing the data sent by kiosk client ; each subscript at this array is constructed as: ; DDARRY(n) = FILE NUMBER^FIELD NUMBER^FIELD NAME ; OUTPUT ; REQFLDS : array of required field name by required fieldname and entry number ; if the required field name and value exists in VARRAY, the node (REQFLDS(reqfieldname, entry#)) will be defined. |
|
| ADDMRAR(SUBFIL,SUBS,ENTRYNO,DIEFLAG) | ;Add multiple entry
; INPUTS ; PTIEN : D0 - Patient DFN for 853.5 entry ; DTIEN : D1 - transaction date/time ien for 853.51 sub-entry ; ENTRYNO : Entry Number ; DIEFLAG : Filing Type (I = Internal, E = External) ; OUTPUT ; Success : > 0 ; Failed : 0 |
|
| FILE(FIL,WP,IENS,FLD,DIEFLAG,DATA) | ; Store field in FIL
; INPUTS ; FIL : File # where the data will be filed ; WP : Boolean indicates whether or not the field is a WP field ; IENS : IENS sub script where the data will be filed ; FLD : Field # where the data will be filed ; DIEFLAG : Filing Type (I = Internal, E = External) ; DATA : Field Name^IENS^Field Value ; ; OUTPUT ; success : RESULT = Field Name^IENS^Field Value^1 ; failed : RESULT = Field Name^IENS^Field Value^99^error text describing why data did not get filed |
|
| MRARFLDS | ; list of encounter, MRAR, and Kiosk statistics fields defined in VPS MRAR PDO file (#853.5)
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^TMP("DIERR" | ADDMRAR+10!, ADDMRAR+12, ADDMRAR+13! |
| Name | Line Occurrences |
|---|---|
| $$ERROR | FILE+25 |
| $$RESULT | ERROR+16, ERROR+17, FILE+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDOK | ADDMRAR+12~*, ADDMRAR+14 |
| ARRAY | TABLE~, TABLE+6! |
| ARRAY( | TABLE+7* |
| DATA | RESULT~, RESULT+11, FILE~, FILE+16, FILE+21, FILE+24, FILE+25 |
| DATA(1 | FILE+16* |
| DDARRY | GREQFLD~ |
| DDFLD | GREQFLD+30~, GREQFLD+34*, GREQFLD+35, GREQFLD+38, GREQFLD+40, GREQFLD+41, GREQFLD+42 |
| DIEFLAG | ADDMRAR~, ADDMRAR+11, FILE~, FILE+22 |
| ENTRY2 | GREQFLD+30~, GREQFLD+36*, GREQFLD+41, GREQFLD+42 |
| ENTRY3 | GREQFLD+30~, GREQFLD+37*, GREQFLD+42 |
| ENTRYNO | ADDMRAR~, ADDMRAR+9 |
| ERRMSG | RESULT~, RESULT+13 |
| ERRNUM | ERROR+12~*, ERROR+13*, ERROR+14 |
| ERRTXT | ERROR+14~*, ERROR+15, ERROR+17 |
| EXIST | ERROR+15~*, ERROR+16, ERROR+17 |
| FDAERR | ERROR~ |
| FDAERR("DIERR" | ERROR+13, ERROR+14 |
| FIL | FILE~, FILE+17, FILE+21 |
| FLD | FILE~, FILE+17, FILE+21 |
| FLDVAL | GREQFLD+30~, GREQFLD+39*, GREQFLD+41, GREQFLD+42 |
| IENS | FILE~, FILE+17, FILE+21 |
| LINE | TABLE+5~, TABLE+7* |
| LN | TABLE+5~, TABLE+7* |
| MSG | ERROR~, ERROR+17 |
| REQFLDS | GREQFLD~ |
| REQFLDS( | GREQFLD+38, GREQFLD+40*, GREQFLD+41*, GREQFLD+42* |
| REQFLDS("ADD | ALLERGY-PROVIDER" , GREQFLD+22*, ALLERGY-VET" , GREQFLD+21* |
| REQFLDS("ENCO | UNTER CLINIC" , GREQFLD+14* |
| REQFLDS("INTE | RFACE MODULE" , GREQFLD+15* |
| REQFLDS("KIOS | K GROUP" , GREQFLD+13* |
| REQFLDS("LOCA | L ALLERGY ID" , GREQFLD+16*, L REACTION ID" , GREQFLD+26* |
| REQFLDS("MED | ID" , GREQFLD+19* |
| REQFLDS("MEDI | CATION NAME" , GREQFLD+20* |
| REQFLDS("PATI | ENT-FACING ADD MEDICATION" , GREQFLD+23* |
| REQFLDS("REMO | TE ALLERGY ID" , GREQFLD+17*, TE ALLERGY NAME" , GREQFLD+18*, TE REACTION ID" , GREQFLD+27*, TE REACTION NAME" , GREQFLD+28* |
| REQFLDS("STAF | F VIEW ADD MEDICATION" , GREQFLD+24* |
| REQFLDS("VET | VIEW ADD MEDICATION" , GREQFLD+25* |
| RESULT | ERROR+11~, ERROR+16*, ERROR+17*, ERROR+18, RESULT+10~, RESULT+11*, RESULT+12*, RESULT+13*, RESULT+14, FILE+24* , FILE+25*, FILE+27 |
| RETCODE | RESULT~, RESULT+12 |
| STRING | TABLE+5~, TABLE+7*, ERROR~, ERROR+16, ERROR+17 |
| SUB | GREQFLD+31~*, GREQFLD+33*, GREQFLD+34, GREQFLD+36, GREQFLD+37, GREQFLD+39 |
| SUBFIL | ADDMRAR~, ADDMRAR+9 |
| SUBS | ADDMRAR~, ADDMRAR+9 |
| U | TABLE+7, RESULT+11, RESULT+12, RESULT+13, GREQFLD+34, GREQFLD+36, GREQFLD+37, GREQFLD+39, FILE+16, FILE+21 |
| VARRAY | GREQFLD~ |
| VARRAY( | GREQFLD+33, GREQFLD+34, GREQFLD+36, GREQFLD+37, GREQFLD+39 |
| VPSERR | FILE+13~, FILE+24, FILE+25 |
| VPSFDA | ADDMRAR+9~, FILE+20~ |
| VPSFDA( | ADDMRAR+9*, FILE+21* |
| VPSFILE | GREQFLD+30~ |
| WP | FILE~, FILE+15, FILE+19 |
| Name | Field # of Occurrence |
|---|---|
| $T(MRARFLDS+LN | TABLE+7 |
