ACKQASU6 ;HCIOFO/AG - New/Edit Visit Utilities ; 04/01/99
Source file <ACKQASU6.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 |
---|---|---|
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 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACKARR | SETPRIM+8~, SETSCND+8~, SETSTUD+8~ |
ACKARR( | SETPRIM+38*, SETSCND+38*, SETSTUD+38* |
ACKPACT | SETPRIM+8~, SETPRIM+26*, SETPRIM+30, SETSCND+8~, SETSCND+26*, SETSCND+30, SETSTUD+8~, SETSTUD+26*, SETSTUD+30 |
ACKPINA | SETPRIM+8~, SETPRIM+27*, SETPRIM+34, SETSCND+8~, SETSCND+27*, SETSCND+34, SETSTUD+8~, SETSTUD+27*, SETSTUD+34 |
ACKPRIM | SETPRIM+8~, SETPRIM+9*, SETPRIM+15*, SETPRIM+22*, SETPRIM+31*, SETPRIM+35*, SETPRIM+40*, SETPRIMX+1 |
ACKPRVN | SETPRIM+8~, SETPRIM+11*, SETPRIM+14, SETPRIM+18, SETPRIM+26, SETPRIM+27, SETPRIM+38, SETSCND+8~, SETSCND+11*, SETSCND+14 , SETSCND+18, SETSCND+26, SETSCND+27, SETSCND+38, SETSTUD+8~, SETSTUD+11*, SETSTUD+14, SETSTUD+18, SETSTUD+26, SETSTUD+27 , SETSTUD+38 |
ACKQPRV | SETPRIM~, SETPRIM+11, SETSCND~, SETSCND+11, SETSTUD~, SETSTUD+11 |
ACKSCND | SETSCND+8~, SETSCND+9*, SETSCND+15*, SETSCND+22*, SETSCND+31*, SETSCND+35*, SETSCND+40*, SETSCNDX+1 |
ACKSTAT | SETPRIM+8~, SETPRIM+18*, SETPRIM+21, SETSCND+8~, SETSCND+18*, SETSCND+21, SETSTUD+8~, SETSTUD+18*, SETSTUD+21 |
ACKSTUD | SETSTUD+8~, SETSTUD+9*, SETSTUD+15*, SETSTUD+22*, SETSTUD+31*, SETSTUD+35*, SETSTUD+40*, SETSTUDX+1 |
ACKVD | SETPRIM+8~, SETPRIM+25*, SETPRIM+30, SETPRIM+34, SETSCND+8~, SETSCND+25*, SETSCND+30, SETSCND+34, SETSTUD+8~, SETSTUD+25* , SETSTUD+30, SETSTUD+34 |
ACKVIEN | SETPRIM~, SETPRIM+25, SETPRIM+38, SETSCND~, SETSCND+25, SETSCND+38, SETSTUD~, SETSTUD+25, SETSTUD+38 |