VPSMRAR2 ;DALOI/KML,WOIFO/BT - Cont. Update of VPS MRAR PDO file ;1/15/15 15:30
Source file <VPSMRAR2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUB52(PTIEN,DTIEN,FLD,DIEFLAG,DATA,REQFLDS) | ; file the ALLERGY multiple (853.52)
; INPUTS ; PTIEN : D0 - Patient DFN for 853.5 entry1 ; DTIEN : D1 - 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 |
|
| SUB52X(SUBFIL,SUBS,PTIEN,DTIEN,DATA,REQFLDS,DIEFLAG) | ; file the ALLERGY CHANGED INDICATORS (853.525)
; INPUTS ; SUBFIL : Sub File# : 853.525, 853.526, or 853.527 ; SUBS : Subscript associated with the Sub File : ACHG, ACNFR, ADISCR ; 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 |
|
| CHKALR(REQFLDS,DATA) | ;Check required Allergy 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 |
|
| CHKALC(REQFLDS,DATA) | ;Check required Allergy 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 |
| FileNo | Call Tags |
|---|---|
| ^GMR(120.8 - [#120.8] | GET1^DIQ |
