VPSMRAR3 ;DALOI/KML,WOIFO/BT - Cont. Update of VPS MRAR PDO file ;1/15/15 15:30
Source file <VPSMRAR3.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SUB53(PTIEN,INTERFC,DTIEN,FLD,DIEFLAG,DATA,REQFLDS) | ; file the ADDITIONAL ALLERGIES multiple (853.53)
; INPUTS ; PTIEN : Patient DFN for 853.5 entry ; INTERFC : value of 'S' indicates that the entries in VPSMRAR coming from Staff-facing interface module. ; : value of 'P' indicates that the entries in VPSMRAR coming from Patient-facing interface module. ; 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 : Field Name^IENS^Field Value ; 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 ; |
|
CHKADALR(INTERFC,REQFLDS,DATA) | ;Check required Additional Allergy fields
; INPUTS ; INTERFC : value of 'S' indicates that the entries in VPSMRAR coming from Staff-facing interface module. ; : value of 'P' indicates that the entries in VPSMRAR coming from Patient-facing interface module. ; 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 |