ACKQUTL5 ;HCIOFO/BH-Quasar utilities routine ; 12/24/09 2:15pm
Source file <ACKQUTL5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETREF(X,ACKVIEN,ACKTYPE) | ;
; Maintains APCE xRef When 3 of the 4 entries are present & the 4TH ; has been entered a new entry will be set up. If any of the 4 data ; items used within the X ref are changed the entry will be deleted & a ; new 1 set up |
|
| KILLREF(X,ACKVIEN,ACKTYPE) | ;
; When any of the 4 var values that make up the APCE xRef are deleted ; or when the visit record is deleted the APCE xRef will be deleted |
|
| GETVAL | ; Used with SETREF & KILLREF - Gets The Clinic, Visit Date, Visit
; time and Patient from the visit file currently being processed |
|
| EXCEPT(ACKVIEN,ACKFLD,ACKVAL) | ; Called from xRefs within the LAST SENT TO PCE, LAST
; EDITED IN QSR and PCE VISIT IEN fields |
|
| SEND(ACKVIEN) | ; Called when entering/editing any of the PCE fields.
; inputs: ACKVIEN - visit ien ; this s/r is used in the xRef of any data field that, if changed, ; should be sent to PCE to keep PCE up to date. The edit triggers the ; xRef call to this s/r. It ensures that the LAST EDITED IN QSR date is ; after the LAST SENT TO PCE date so that the visit becomes a PCE ; EXCEPTION. NB. The LAST EDITED IN QSR date will only be updated if ; a. it is currently earlier than the LAST SENT TO PCE and by updating ; it the visit becomes a PCE Exception. or b. the current value is ; earlier than today this saves the system from constantly updating ; this field and checking the exception status each time a pce field ; is changed |
|
| MOD | ; Creates an array of valid CPT Modfrs. gets all valid Mods for the
; Proc then disgards any that are not on the A&SP Proc Mod file or that ; are on file but Inactive |
|
| MODW | ; Called from x ref of Modfr field within 509850.6
|
|
| MODS | ; Screen for Modfrs input within Modifrs field of Modfrs File
|
|
| CHK(Y,ACKVD,ACKCSC) | ; Screen for EC codes
|
|
| EVNTDIS | ; Get EC Procs filed and display
|
|
| SETCPT(DA,ACKQQIEN,X) | ; When EC Code is entered create a CPT entry
|
|
| KILLCPT(DA,ACKQQIEN) | ; Deletes CPT entry if created by an EC entry
|
|
| ECVOLPRV(DA,ACKQQIEN,X,ACKQQVP,ACKQQDS) | ; Update CPT rec. when EC data entered
|
|
| CPVOLPRV(DA,ACKQQIEN,X,ACKQQVP,ACKQQDS) | ; Update EC rec. when CPT data entered
|
|
| KILLEC(DA,ACKQQIEN) | ; Delets EC entry if CPT entry has EC pter
|
|
| EVENT(ACKDIV,ACKVD) | ; params set up for Divn to use EC Codes ?
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^ACK(509850.6 - [#509850.6] | GET1^DIQ, GETS^DIQ |
| 509850.61 | GET1^DIQ |
| 509850.615 | GET1^DIQ, LIST^DIC |
| ^EC(725 - [#725] | GET1^DIQ |
