Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
CPT HCPCS Codes 2 $$CPT^ICPTCOD  $$MOD^ICPTMOD  
DRG Grouper 2 ($$CODEC,$$CSI)^ICDEX  ($$ICDDATA,$$ICDDESC)^ICDXCODE  
VA FileMan 2 NOW^%DTC  ($$GET1,GETS)^DIQ  
Quasar 1 $$PRIMARY^ACKQASU5  
Registration 1 (ELIG,SVC)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 12

Package Total Caller Graph
Quasar 11 ACKQAS UPDATE CPT MODIFIERS  ACKQAS3  ACKQASU  ACKQASU2  ACKQNQ  ACKQPCE1  ACKQR2  ACKQR3  
ACKQR4  ACKQUTL4  ACKQUTL7  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
NOW^%DTC DATE+2
$$PRIMARY^ACKQASU5 CHK1+40
$$GET1^DIQ CHK2+12
GETS^DIQ GET0, GET1+2, GET2+1
$$CODEC^ICDEX CONV+2
$$CSI^ICDEX DIAGTXT+3
$$ICDDATA^ICDXCODE DIAGTXT+4
$$ICDDESC^ICDXCODE LDIAGTXT+4
$$CPT^ICPTCOD PROCTXT+3
$$MOD^ICPTMOD MODTXT+3
ELIG^VADPT CHK2+8
SVC^VADPT CHK2+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^ACK(509850.6 - [#509850.6] GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.6 - [#509850.6] CHK1+14, CHK1+15, CHK1+23, CHK1+24, CHK1+34, CHK1+35

Label References

Name Line Occurrences
$$CONV LDIAGTXT+2
$$DATE DIAGTXT+2, LDIAGTXT+3, PROCTXT+2, MODTXT+2
CHKVSTX CHKVST+31, GET0+3, END0+1, END1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DATE+1~, DATE+3
ACKAO CHK2+5~, CHK2+7*, CHK2+10*, CHK2+21
ACKARR CHKVST~, CHKVST+28!*, CHKVST+31*, GET0+3*, CHK0+1*, CHK0+9*, CHK0+13*, CHK0+17*, END0+1, CHK1+1*
, CHK1+8*, CHK1+17*, CHK1+26*, CHK1+37*, CHK1+41*, CHK1+49*, CHK1+54*, CHK1+59*, END1+1, CHK2+1*
, CHK2+17*, CHK2+22*, CHK2+27*, CHK2+32*
ACKARR(0 CHK0+1*, CHK0+2*, CHK0+9*, CHK0+10*, CHK0+13*, CHK0+14*, CHK0+17*, CHK0+18*
ACKARR(1 CHK1+2*, CHK1+9*, CHK1+18*, CHK1+27*, CHK1+38*, CHK1+42*, CHK1+50*, CHK1+55*, CHK1+60*
ACKARR(2 CHK2+2*, CHK2+18*, CHK2+23*, CHK2+28*, CHK2+33*
ACKCP CHK1+46~, CHK1+47*, CHK1+48, CHK1+53
ACKCPT CHK1+13~, CHK1+14*, CHK1+15*, CHK1+16, CHK1+19!
ACKCVD DIAGTXT~, DIAGTXT+2*, DIAGTXT+4, LDIAGTXT~, LDIAGTXT+3*, LDIAGTXT+4, PROCTXT~, PROCTXT+2*, PROCTXT+3, MODTXT~
, MODTXT+2*, MODTXT+3
ACKD CHK1+34~*, CHK1+35
ACKDATA CHKVST+26~, GET1+1!, GET2!
ACKDATA( GET0+3, CHK0, CHK0+8, CHK0+12, CHK0+16, CHK1, CHK1+6, CHK1+47, CHK1+53, CHK1+58
, CHK2, CHK2+6, CHK2+13, CHK2+21, CHK2+26, CHK2+31
ACKEC CHK2+5~, CHK2+7*, CHK2+12*, CHK2+31
ACKENV CHK2+5~
ACKEV CHK1+22~*, CHK1+23*, CHK1+24*, CHK1+25, CHK1+28!
>> ACKEVENT CHK1+12, CHK1+21
ACKFROM CHK1+31~
ACKFULL CHKVST~, CHKVST+27*, END0+1, END1+1
ACKICD CHK1+31~, CHK1+34*, CHK1+35*, CHK1+36, CHK1+43!, DIAGTXT+3*, DIAGTXT+4, LDIAGTXT~, LDIAGTXT+4
ACKIR CHK2+5~, CHK2+7*, CHK2+11*, CHK2+26
ACKP CHK1+14~*, CHK1+15, CHK1+23~*, CHK1+24
ACKPRV CHK1+5~, CHK1+6*, CHK1+7
ACKQDCDS DIAGTXT~, DIAGTXT+3, DIAGTXT+4, LDIAGTXT~, LDIAGTXT+2*, LDIAGTXT+4, PROCTXT~, PROCTXT+3, CONV~, CONV+2
ACKQMCDS MODTXT~, MODTXT+3
ACKSC CHK2+5~, CHK2+7*, CHK2+9*, CHK2+16
ACKSCV CHK2+5~, CHK2+13*, CHK2+16, CHK2+21, CHK2+26, CHK2+31
ACKVIEN CHKVST~, CHKVST+31, GET0, GET0+3, CHK0, CHK0+8, CHK0+12, CHK0+16, GET1+2, CHK1
, CHK1+6, CHK1+14, CHK1+15, CHK1+23, CHK1+24, CHK1+34, CHK1+35, CHK1+40, CHK1+47, CHK1+53
, CHK1+58, GET2+1, CHK2, CHK2+6, CHK2+13, CHK2+21, CHK2+26, CHK2+31
CODE CONV+1~, CONV+2*, CONV+3
DFN CHK2+5~, CHK2+6*, CHK2+8, CHK2+12
DIAGTXT DIAGTXT+1~, DIAGTXT+4*, DIAGTXT+5*, DIAGTXT+6
LDIAGTXT LDIAGTXT+1~, LDIAGTXT+5*, LDIAGTXT+6*, LDIAGTXT+7
LST LDIAGTXT+1~
MODTXT MODTXT+1~, MODTXT+3*, MODTXT+4*, MODTXT+5
OUTARR LDIAGTXT+1~, LDIAGTXT+4
OUTARR(1 LDIAGTXT+6
PROCTXT PROCTXT+1~, PROCTXT+3*, PROCTXT+4*, PROCTXT+5
RET LDIAGTXT+1~, LDIAGTXT+4*, LDIAGTXT+5, LDIAGTXT+6
U CHK1+15, CHK1+24, CHK1+35
VAEL CHK2+5~
VAEL(3 CHK2+9
VASV CHK2+5~
VASV(2 CHK2+10
VASV(3 CHK2+11
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All