VPSMRAR0 ;DALOI/KML,WOIFO/BT - Update of VPS MRAR PDO file ;1/15/15 15:30
Source file <VPSMRAR0.m>
| 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)
|
