ACKQUTL3 ;HCIOFO/AG - QUASAR Utility Routine ; 12/13/02 3:51pm
Source file <ACKQUTL3.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^ACK(509850.2 - [#509850.2] | GETS^DIQ |
| ^ACK(509850.6 - [#509850.6] | GET1^DIQ, GETS^DIQ |
| 509850.65 | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACK(509850.6 - [#509850.6] | PROBLIST+16 |
| ^TMP("ACKQUTL3" | PCEERR+13!, PCEERR+14, PCEERR+40!, PROBLIST+11!, PROBLIST+12, PROBLISX+1! |
| ^TMP("PXKENC" | PCECHK+18!, PCECHK+22, PCECHK+24, PCECHK+25, PCECHK+26! |
| Name | Line Occurrences |
|---|---|
| $$PCECHK | PCECHKV+14 |
| PROBLISX | PROBLIST+43 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | DISPLAY+9, DISPLAY+10, DISPLAY+13, DISPLAY+14, DISPLAY+16 |
| ACKAM | DISPLAY+1~ |
| ACKARR | PCEERR~, PCEERR+19, PCEERR+25, PCEERR+28, PCEERR+30, PCEERR+38, PCEERR+39, PROBLIST+7~, PROBLIST+30!, PROBLIST+38! , PROBLIST+53! |
| ACKARR( | PROBLIST+31*, PROBLIST+39*, PROBLIST+54*, PROBLIST+55* |
| ACKCLN | PCECHKV+6~, PCECHKV+13*, PCECHKV+14, PCECHK~, PCECHK+29, PCECHK+31, DISPLAY+1~, DISPLAY+4*, DISPLAY+11*, DISPLAY+12 , DISPLAY+14*, DISPLAY+15, DISPLAY+17*, DISPLAY+18 |
| ACKCT | PCEERR+12~, PCEERR+19*, PCEERR+25*, PCEERR+28*, PCEERR+30*, PCEERR+38*, PCEERR+39 |
| ACKDIEN | PROBLIST+7~, PROBLIST+22*, PROBLIST+23, PROBLIST+24, PROBLIST+36*, PROBLIST+37, PROBLIST+39 |
| ACKDISP | DISPLAY+1~, DISPLAY+12*, DISPLAY+15*, DISPLAY+18*, DISPLAY+22*, DISPLAY+23 |
| ACKDT | PCECHKV+6~, PCECHKV+10*, PCECHKV+14, PCECHK~, PCECHK+29, PCECHK+33, PROBLIST+7~, PROBLIST+18*, PROBLIST+26, PROBLIST+27 , PROBLIST+48*, PROBLIST+52*, PROBLIST+55 |
| ACKDT1 | PROBLIST+7~, PROBLIST+25*, PROBLIST+26 |
| ACKECHO | PROBLIST~, PROBLIST+10*, PROBLIST+43, PROBLIST+51 |
| ACKICD | PROBLIST+7~, PROBLIST+24*, PROBLIST+25, PROBLIST+26, PROBLIST+47*, PROBLIST+48, PROBLIST+52*, PROBLIST+54 |
| ACKIVDT | PROBLIST+7~, PROBLIST+15*, PROBLIST+27*, PROBLIST+31 |
| ACKLEN | DISPLAY+1~, DISPLAY+7*, DISPLAY+8, DISPLAY+11, DISPLAY+17, DISPLAY+20*, DISPLAY+21 |
| ACKNUM | PCEERR~, PCEERR+15*, PCEERR+17, PCEERR+18 |
| >> ACKP | DISPLAY+5*, DISPLAY+12, DISPLAY+15, DISPLAY+18, DISPLAY+22 |
| ACKPAT | PCECHKV+6~, PCECHKV+12*, PCECHKV+14, PCECHK~, PCECHK+29, PCECHK+32, DISPLAY+1~, DISPLAY+3*, DISPLAY+8*, DISPLAY+12 , DISPLAY+18, DISPLAY+21*, DISPLAY+22, PROBLIST~, PROBLIST+9, PROBLIST+16, PROBLIST+31, PROBLIST+35, PROBLIST+37, PROBLIST+54 , PROBLIST+55 |
| ACKPCE | PCECHKV+6~, PCECHKV+8*, PCECHKV+9, PCECHKV+14, PCECHK~, PCECHK+21, PCECHK+22, PCECHK+24, PCECHK+25 |
| ACKSTR | PCECHK+17~, PCECHK+29, PCECHK+30*, PCECHK+31*, PCECHK+32*, PCECHK+33* |
| ACKSUB | PCEERR+12~, PCEERR+20*, PCEERR+21, PCEERR+23, PCEERR+27, PCEERR+29, PCEERR+32 |
| ACKTGT | PCECHKV+6~ |
| ACKTGT( | PCECHKV+8, PCECHKV+10, PCECHKV+11, PCECHKV+12, PCECHKV+13 |
| ACKTIME | DISPLAY+1~, DISPLAY+2*, DISPLAY+12, DISPLAY+15, DISPLAY+18, DISPLAY+22 |
| ACKTM | PCECHKV+6~, PCECHKV+11*, PCECHKV+14, PCECHK~, PCECHK+36, DISPLAY+1~, DISPLAY+2* |
| ACKTMP | PCEERR+12~, PCEERR+14*, PCEERR+17, PCEERR+18, PCEERR+20, PCEERR+23, PCEERR+27, PCEERR+29, PCEERR+32, PROBLIST+7~ , PROBLIST+12*, PROBLIST+20, PROBLIST+22, PROBLIST+24, PROBLIST+25, PROBLIST+26, PROBLIST+35, PROBLIST+36, PROBLIST+43, PROBLIST+47 , PROBLIST+48, PROBLIST+52 |
| ACKVIEN | PCECHKV~, PCECHKV+7, PCECHKV+8, PCECHKV+10, PCECHKV+11, PCECHKV+12, PCECHKV+13, DISPLAY~, DISPLAY+2, DISPLAY+3 , DISPLAY+4, DISPLAY+5, PCEERR~, PCEERR+17, PCEERR+18, PCEERR+21, PROBLIST+7~, PROBLIST+16*, PROBLIST+18, PROBLIST+20 , PROBLIST+23 |
| ACKWIDE | PCEERR~, PCEERR+16*, PCEERR+24, PCEERR+26, PCEERR+27, PCEERR+29, PCEERR+34, PCEERR+35 |
| I | PCEERR+12~, PCEERR+34*, PCEERR+35*, PCEERR+36 |
| PCECLN | PCECHK+17~, PCECHK+25*, PCECHK+29, PCECHK+31 |
| PCEDT | PCECHK+17~, PCECHK+23*, PCECHK+29, PCECHK+33 |
| PCEDTTM | PCECHK+17~, PCECHK+22*, PCECHK+23 |
| PCEPAT | PCECHK+17~, PCECHK+24*, PCECHK+29, PCECHK+32 |
| PCETM | PCECHK+17~, PCECHK+23*, PCECHK+36 |
| TXT | PCEERR+12~, PCEERR+23*, PCEERR+24, PCEERR+25, PCEERR+26, PCEERR+27*, PCEERR+28, PCEERR+29*, PCEERR+30, PCEERR+32* , PCEERR+33, PCEERR+34, PCEERR+37* |
| TXT2 | PCEERR+12~, PCEERR+34*, PCEERR+35, PCEERR+36*, PCEERR+37, PCEERR+38 |
| U | PCECHK+22, PCECHK+24, PCECHK+25, PCECHK+31, PCECHK+32, PCECHK+33 |
| XPOS | DISPLAY~, DISPLAY+6, DISPLAY+7, DISPLAY+19, DISPLAY+20 |
