ACKQUTL3 ;HCIOFO/AG - QUASAR Utility Routine ; 12/13/02 3:51pm
Source file <ACKQUTL3.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PCECHKV(ACKVIEN) | ; is PCE Visit still same patient etc.
; this function will check that the Qsr Visit (ACKVIEN) has the same ; values for Patient, Clinic, Date and Time as the PCE Visit that it ; points to. ; inputs:- ACKVIEN - QUASAR Visit IEN (reqd) ; outputs:- see function $$PCECHK below! |
|
| PCECHK(ACKPCE,ACKDT,ACKTM,ACKPAT,ACKCLN) | ; is PCE Visit still same patient etc.
; this function will check that the Qsr Visit (ACKVIEN) has the same ; values for Patient, Clinic, Date and Time as the PCE Visit that it ; points to. ; inputs:- ACKPCE - PCE Visit IEN (reqd) ; ACKDT - date of visit (reqd) (fileman internal) ; ACKTM - time of visit (reqd) (qsr time .n[nnnnn]) ; ACKPAT - patient (reqd) ; ACKCLN - clinic (reqd) ; outputs:- string ; value: "0^X^Y^Z" - either the date, patient or clinic differ ; where X=Clinics are same (1 or 0) ; Y=Patients are same (1 or 0) ; Z=Dates are same (1 or 0) ; eg "0^1^0^0" = patient and dates differ ; "1^.123" - only time is different (.123=Pce time) ; "2^" - all fields the same |
|
| DISPLAY(ACKVIEN,XPOS) | ; create summary line for visit selection
|
|
| PCEERR(ACKVIEN,ACKARR,ACKNUM,ACKWIDE) | ; retrieve PCE Errors for a visit and store in ACKARR
; inputs:- ACKVIEN - visit ien (reqd) ; ACKARR - array name in which to place errors (indirection ; used to file data ie @ACKARR@(x) (reqd) ; ACKNUM - Error number (if only one reqd) (opt) ; ACKWIDE - max number of characters in each line (opt) ; outputs:- ; ACKARR=n - number of lines to display ; ACKARR(1-n)=text - text of error (wrapped to ACKWIDE characters) ; if @ACKARR already contains data then this subroutine will append ; the PCE Errors starting at line @ACKARR+1. It is up to the calling ; routine to clear the array @ACKARR before calling this function. |
|
| PROBLIST(ACKPAT,ACKECHO) | ; re-build the problem list for a Patient
; this function will run down the QUASAR Visits for a patient and ; create an accurate problem list for the patient on the A&SP ; PATIENT file. The function will be called from the Patient ; Inquiry option and the Delete Visit function. ; inputs:- ACKPAT - patient DFN ; ACKECHO - whether to display progress |
|
| PROBLISX | ; all done
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^ACK(509850.2 - [#509850.2] | GETS^DIQ |
| ^ACK(509850.6 - [#509850.6] | GET1^DIQ, GETS^DIQ |
| 509850.65 | GETS^DIQ |
