ACKQUTL8 ;HCIOFO/AG - QUASAR Utility Routine ;30 Jan 2013 3:16 PM
Source file <ACKQUTL8.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CHKVST(ACKVIEN,ACKARR,ACKFULL) | ; check a visit for missing fields
; this function will validate a visit to determine if there are any ; missing required fields. ; required inputs: ACKVIEN - visit ien number ; ACKARR - array to hold errors (must be passed by ref ie ".ACKARR") ; ACKFULL - if true, the visit will be checked in full and may ; return type 0 errors, and type 1 and type 2. if false, the ; function will only look for type 1s if there are no type 0s etc. ; output: ; ACKARR=typ - type of error found ; -1 = Error - unable to process visit ; 0 = visit does not have minimum data required ; for Quasar ; 1 = visit has minimum for Quasar but some additional ; required fields are missing ; 2 = all Quasar required fields are present but one ; or more PCE fields are missing (ie will not be ; accepted by PCE if the interface is on). ; 3 = everything ok ; ACKARR(typ)=num - number of fields in error ; ACKARR(typ,1-num)=field - free text name of field ; example: ; ACKARR=0 - visit does not have minimum reqd by Quasar ; and ACKARR(0)=2,ACKARR(0,1)="Clinic",ACKARR(0,2)="Patient" ; this visit does not have a clinic or a patient |
|
GET0 | ||
CHK0 | ||
END0 | ; if errors found and we're not doing a full check then exit
|
|
GET1 | ; get data for level 1 check
|
|
CHK1 | ||
END1 | ; if errors found and we're not doing a full check then exit
|
|
GET2 | ||
CHK2 | ||
CHKVSTX | ; that'll do
|
|
DIAGTXT(ACKQDCDS,ACKCVD) | ; Get Short ICD Description
|
|
LDIAGTXT(ACKQDCDS,ACKCVD,ACKICD) | ; Get Long ICD Description
|
|
PROCTXT(ACKQDCDS,ACKCVD) | ; Get Short CPT Description
|
|
MODTXT(ACKQMCDS,ACKCVD) | ; Get Short CPT Modifier Description
|
|
CONV(ACKQDCDS) | ;
|
|
DATE() | ;
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GET1^DIQ |
^ACK(509850.6 - [#509850.6] | GETS^DIQ |