VPSMRAR4 ;DALOI/KML,WOIFO/BT - Update of VPS MRAR PDO file ;1/15/15 15:30
Source file <VPSMRAR4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUB54(PTIEN,DTIEN,FLD,DIEFLAG,DATA,REQFLDS) | ; file the MEDICATIONS multiple (853.54)
; INPUTS ; PTIEN : Patient DFN for 853.5 entry ; DTIEN : transaction date/time ien for 853.51 sub-entry ; FLD : Field # where the data will be filed ; DIEFLAG : Filing Type (I = Internal, E = External) ; DATA : composite string assigned to a subscript in the local array passed in by Vecna for the specific field ; REQFLDS : Array of required fields by fieldname and entry number ; ; 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 ; |
|
| SUB54X(SUBFIL,SUBS,PTIEN,DTIEN,DATA,REQFLDS,DIEFLAG) | ; file the MED CHANGED/CONFIRMED/DISCREPANCY INDICATORS
; INPUTS ; SUBFIL : Sub File# : 853.5454, 853.5455, or 853.5452 ; SUBS : Subscript associated with the Sub File : MCHG, MCNFR, MDISCR ; PTIEN : D0 - Patient DFN for 853.5 entry1 ; DTIEN : D1 - transaction date/time ien for 853.51 sub-entry ; DATA : Field Name^IENS^Field Value ; REQFLDS : Array of required fields by fieldname and entry number ; DIEFLAG : Filing Type (I = Internal, E = External) ; ; 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 |
|
| CHKMED(REQFLDS,DATA) | ;Check required Medication fields
; INPUTS ; REQFLDS : Array of required fields by fieldname and entry number ; 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 |
|
| CHKALM(REQFLDS,DATA) | ;Check required Med Changed/confirmed/discrepancy fields
; INPUTS ; REQFLDS : Array of required fields by fieldname and entry number ; 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 |
