Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ACKQUTL8

Package: Quasar

Routine: ACKQUTL8


Information

ACKQUTL8 ;HCIOFO/AG - QUASAR Utility Routine ;30 Jan 2013 3:16 PM

Source Information

Source file <ACKQUTL8.m>

Entry Points

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() ;

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^ACK(509850.6 - [#509850.6] GETS^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call