ACKQASU4 ;HCIOFO/AG - New/Edit Visit Utilities ;18 Nov 2013 4:38 PM
Source file <ACKQASU4.m>
| Package | Total | Call Graph |
|---|---|---|
| Quasar | 3 | ($$SETDIAG,$$SETMDFR,$$SETPROC)^ACKQASU5 ($$SETPRIM,$$SETSCND,$$SETSTUD)^ACKQASU6 $$STACT^ACKQUTL |
| VA FileMan | 3 | FIND^DIC (FILE,UPDATE)^DIE $$GET1^DIQ |
| CPT HCPCS Codes | 2 | $$CPT^ICPTCOD $$MOD^ICPTMOD |
| DRG Grouper | 1 | $$CODEC^ICDEX |
| PCE Patient Care Encounter | 1 | ENCEVENT^PXAPI |
| 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 |
|---|---|---|
| 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 |
| Name | Field # of Occurrence |
|---|---|
| $$SETDIAG^ACKQASU5 | COPYPCE+25 |
| $$SETMDFR^ACKQASU5 | COPYPCE+71 |
| $$SETPROC^ACKQASU5 | COPYPCE+60 |
| $$SETPRIM^ACKQASU6 | COPYPRIM+5 |
| $$SETSCND^ACKQASU6 | COPYSCND+25 |
| $$SETSTUD^ACKQASU6 | COPYSCND+9 |
| $$STACT^ACKQUTL | COPYPCE+53 |
| FIND^DIC | DIAGHIST+8 |
| FILE^DIE | COPYPCE+98 |
| UPDATE^DIE | DIAGHIST+16 |
| $$GET1^DIQ | COPYPCE+55, COPYPRIM+8, COPYPRIM+13, COPYSCND+4, COPYSCND+12, COPYSCND+18, COPYSCND+28, COPYSCND+33, PROVCHK+6 |
| $$CODEC^ICDEX | COPYPCE+30 |
| $$CPT^ICPTCOD | COPYPCE+64 |
| $$MOD^ICPTMOD | COPYPCE+75 |
| ENCEVENT^PXAPI | COPYPCE+17 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| 509850.22 | FIND^DIC |
| ^ACK(509850.3 - [#509850.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ACK(509850.3 - [#509850.3] | PROVCHK+7, PROVCHK+8 |
| ^TMP("ACKQASU4" | COPYPCE+13!, COPYPCEX+2*, ADDERR+3* |
| ^TMP("PXKENC" | COPYPCE+21, COPYPCE+22, COPYPCE+23, COPYPCE+37, COPYPCE+38, COPYPCE+46, COPYPCE+47, COPYPCE+50, COPYPCE+68, COPYPCE+69 , COPYPCE+82, COPYPCE+87, COPYPCEX+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACKA | PROVCHK+3~ |
| ACKAO | COPYPCE+11~, COPYPCE+89*, COPYPCE+93 |
| ACKARR | COPYPCE+10~, COPYPCE+79!, COPYPCE+99! |
| ACKARR( | COPYPCE+83*, COPYPCE+92*, COPYPCE+93*, COPYPCE+94*, COPYPCE+95* |
| ACKB | PROVCHK+3~*, PROVCHK+4, PROVCHK+7, PROVCHK+8 |
| ACKCPT | COPYPCE+11~, COPYPCE+48*, COPYPCE+60, COPYPCE+64 |
| ACKDPRIM | COPYPCE+12~, COPYPCE+20*, COPYPCE+23*, COPYPCE+25, COPYPCE+26* |
| ACKE | COPYPCE+10~, COPYPCE+25*, COPYPCE+28, COPYPCE+30, COPYPCE+60*, COPYPCE+62, COPYPCE+64, COPYPCE+67, COPYPCE+71*, COPYPCE+73 , COPYPCE+75, COPYPRIM+5*, COPYPRIM+6, COPYPRIM+7, COPYPRIM+9, COPYSCND+9*, COPYSCND+10, COPYSCND+11, COPYSCND+13, COPYSCND+25* , COPYSCND+26, COPYSCND+27, COPYSCND+29 |
| ACKEC | COPYPCE+11~, COPYPCE+91*, COPYPCE+95 |
| ACKERR | COPYPCE+10~, COPYPCE+14*, COPYPCEX+2, COPYPCEX+3, ADDERR+2*, ADDERR+3 |
| ACKI | COPYPCE+10~, COPYPCE+20*, COPYPCE+21*, COPYPCE+22, COPYPCE+23, COPYPCE+36*, COPYPCE+37*, COPYPCE+38, COPYPCE+45*, COPYPCE+46* , COPYPCE+47, COPYPCE+50, COPYPCE+68, COPYPCE+69 |
| ACKICD | COPYPCE+10~, COPYPCE+22*, COPYPCE+25, COPYPCE+30, DIAGHIST+8, DIAGHIST+14 |
| ACKIR | COPYPCE+11~, COPYPCE+90*, COPYPCE+94 |
| >> ACKM | COPYPCE+67*, COPYPCE+68*, COPYPCE+69 |
| >> ACKMOD | COPYPCE+69*, COPYPCE+71, COPYPCE+75 |
| >> ACKPAT | DIAGHIST+8, DIAGHIST+14, DIAGHIST+15 |
| ACKPCENO | COPYPCE~, COPYPCE+17, COPYPCE+21, COPYPCE+22, COPYPCE+23, COPYPCE+37, COPYPCE+38, COPYPCE+46, COPYPCE+47, COPYPCE+50 , COPYPCE+68, COPYPCE+69, COPYPCE+82, COPYPCE+87 |
| >> ACKPIEN | COPYPCE+67*, COPYPCE+71 |
| ACKPRIM | COPYPCE+10~, COPYPCE+36*, COPYPRIM+3, COPYPRIM+6* |
| ACKPRV | COPYPCE+11~, COPYPCE+39*, COPYPCE+50*, COPYPCE+51, COPYPCE+52, COPYPCE+55, COPYPCE+79!, COPYPRIM+4, COPYPRIM+8, COPYPRIM+13 , COPYSCND+3, COPYSCND+12, COPYSCND+18, COPYSCND+28, COPYSCND+33, PROVCHK~, PROVCHK+4, PROVCHK+6 |
| ACKPRVCK | COPYPCE+12~, COPYPCE+53*, COPYPCE+54 |
| ACKQPRV | COPYPCE+12~, COPYPCE+51*, COPYPCE+53, COPYPCE+58*, COPYPCE+60, COPYPRIM+4*, COPYPRIM+5, COPYPRIM+6, COPYSCND+3*, COPYSCND+4 , COPYSCND+9, COPYSCND+10, COPYSCND+25 |
| ACKQTY | COPYPCE+11~, COPYPCE+48*, COPYPCE+60 |
| ACKREC | COPYPCE+11~, COPYPCE+38*, COPYPCE+39, COPYPCE+40, COPYPCE+47*, COPYPCE+48, COPYPCE+87*, COPYPCE+88, COPYPCE+89, COPYPCE+90 , COPYPCE+91 |
| ACKSC | COPYPCE+11~, COPYPCE+88*, COPYPCE+92 |
| ACKSTUD | COPYPCE+10~, COPYPCE+36*, COPYSCND+8, COPYSCND+10*, COPYSCND+17 |
| ACKTGT | DIAGHIST+5~ |
| ACKTGT("DILIST" | DIAGHIST+11 |
| ACKTMP | COPYPCE+10~, COPYPCE+30*, COPYPCE+55*, COPYPCE+56*, COPYPCE+64*, COPYPCE+75*, COPYPRIM+8*, COPYPRIM+9*, COPYPRIM+13*, COPYPRIM+14* , COPYSCND+12*, COPYSCND+13*, COPYSCND+18*, COPYSCND+19*, COPYSCND+28*, COPYSCND+29*, COPYSCND+33*, COPYSCND+34*, ADDERR+3 |
| ACKTYP | COPYPCE+11~, COPYPCE+40*, COPYPCE+41, COPYPCE+42 |
| >> ACKTYPQ | COPYSCND+4*, COPYSCND+8, COPYSCND+17, COPYSCND+24 |
| >> ACKUPD( | DIAGHIST+14*, DIAGHIST+15* |
| >> ACKVD | COPYPCE+53, DIAGHIST+15 |
| ACKVELG | COPYPCE+10~, COPYPCE+82*, COPYPCE+83 |
| ACKVIEN | COPYPCE~, COPYPCE+25, COPYPCE+60, COPYPCE+71, COPYPCE+83, COPYPCE+92, COPYPCE+93, COPYPCE+94, COPYPCE+95, COPYPRIM+5 , COPYSCND+9, COPYSCND+25 |
| ACKVTME | COPYPCE+11~ |
| NPNAME | PROVCHK+3~, PROVCHK+6*, PROVCHK+7, PROVCHK+8 |
| U | COPYPCE+22, COPYPCE+23, COPYPCE+30, COPYPCE+39, COPYPCE+40, COPYPCE+48, COPYPCE+50, COPYPCE+55, COPYPCE+64, COPYPCE+69 , COPYPCE+75, COPYPCE+82, COPYPCE+88, COPYPCE+89, COPYPCE+90, COPYPCE+91, COPYPCEX+3, COPYPRIM+8, COPYPRIM+9, COPYPRIM+13 , COPYSCND+12, COPYSCND+13, COPYSCND+18, COPYSCND+28, COPYSCND+29, COPYSCND+33, DIAGHIST+11 |
