ACKQASU6 ;HCIOFO/AG - New/Edit Visit Utilities ; 04/01/99
Source file <ACKQASU6.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SETPRIM(ACKVIEN,ACKQPRV) | ; add primary provider to A&SP Clinic Visit
; inputs: ACKVIEN - A&SP visit ien ; ACKQPRV - provider ien from Quasar or null ; outputs: 1^ - everything ok ; 0^xxxxxxx - update failed (reason=xxxxxx) ; NB. This function checks the visit date for the visit against the ; activation and inactivation dates for the Provider. it therefore ; assumes that the visit date has already been filed. |
|
| SETPRIMX | ; exit point
|
|
| SETSCND(ACKVIEN,ACKQPRV) | ; add secondary provider to A&SP Clinic Visit
; inputs: ACKVIEN - A&SP visit ien ; ACKQPRV - provider ien from Quasar file or null ; outputs: 1^ - everything ok ; 0^xxxxxxx - update failed (reason=xxxxxx) ; NB. This function checks the visit date for the visit against the ; activation and inactivation dates for the Provider. it therefore ; assumes that the visit date has already been filed. |
|
| SETSCNDX | ; exit point
|
|
| SETSTUD(ACKVIEN,ACKQPRV) | ; add student to A&SP Clinic Visit
; inputs: ACKVIEN - A&SP visit ien ; ACKQPRV - provider ien from Quasar file or null ; outputs: 1^ - everything ok ; 0^xxxxxxx - update failed (reason=xxxxxx) ; NB. This function checks the visit date for the visit against the ; activation and inactivation dates for the Provider. it therefore ; assumes that the visit date has already been filed. |
|
| SETSTUDX | ; exit point
|
| FileNo | Call Tags |
|---|---|
| ^ACK(509850.3 - [#509850.3] | GET1^DIQ |
| ^ACK(509850.6 - [#509850.6] | GET1^DIQ |
