ACKQASU4 ;HCIOFO/AG - New/Edit Visit Utilities ;18 Nov 2013 4:38 PM
Source file <ACKQASU4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| COPYPCE(ACKVIEN,ACKPCENO) | ; Copies the visit data from given PCE Visit
; inputs:- ACKVIEN - QUASAR Visit ien to receive data ; ACKPCENO - PCE Visit ien to copy from ; outputs:- 0^ - everything ok ; n^ - n errors found ; errors filed in ^TMP("ACKQASU4",$J,"COPYPCE","ERROR",n)=field^int^ext^message ; NB. In the validation of Dx and CPT codes, the Visit Stop Code (A,S, ; AT or ST) is read from the Qsr Visit record. For this validation to ; work therefore, the Visit Stop Code must already be filed on the Qsr ; visit. |
|
| COPYPCEX | ; Exit point
|
|
| COPYPRIM | ; Copy the primary provider to QUASAR
|
|
| COPYSCND | ; copy a secondary provider to QUASAR
|
|
| ADDERR | ; add an error to return array in ^TMP
; ACKERR is current error count, ACKTMP is the error detail |
|
| DIAGHIST | ; ensure diagnosis is on Patient history
; this s/r checks for ACKICD (diagnosis ien) on the patient history ; of patient ACKPAT ; if the ICD is not found a new entry is automatically added using the ; visit date in ACKVD |
|
| PROVCHK(ACKPRV) | ; Check to see if Provider is on Quasar Staff file - if so
; function passes back Quasars Provider IEN No else null |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| 509850.22 | FIND^DIC |
| ^ACK(509850.3 - [#509850.3] | GET1^DIQ |
