ACKQASU5 ;HCIOFO/AG - New/Edit Visit Utilities ; 04/01/99
Source file <ACKQASU5.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETDIAG(ACKVIEN,ACKICD,ACKDPRIM) | ; add ICD9 code to A&SP Clinic Visit
; inputs: ACKVIEN - A&SP visit ien ; ACKICD - ICD9 Diagnosis ien from ICD9 file ; ACKDPRIM - Primary Diag. flag ; outputs: 1^ - everything ok ; 0^xxxxxxx - update failed (reason=xxxxxx) ; NB. This function checks the Stop Code for the visit against the ; valid stop codes for the Diagnosis. It therefore assumes that the ; visit stop code has already been filed. |
|
SETDIAGX | ; exit point
|
|
SETPROC(ACKVIEN,ACKCPT,ACKQTY,ACKPPRV) | ; add CPT code to A&SP Clinic Visit
; inputs: ACKVIEN - A&SP visit ien ; ACKCPT - CPT Procedure ien from ICPT file ; ACKQTY - number of time procedure was performed (opt) ; ACKPPRV - Procedure Provider ; outputs: n^ - everything ok (n=cpt ien on visit) ; 0^xxxxxxx - update failed (reason=xxxxxx) ; NB. This function checks the Stop Code for the visit against the ; valid stop codes for the procedure. It therefore assumes that the ; visit stop code has already been filed. |
|
SETPROCX | ; exit point
|
|
SETMDFR(ACKVIEN,ACKPIEN,ACKMOD) | ; add modifier to A&SP Clinic Visit
; inputs: ACKVIEN - A&SP visit ien ; ACKPIEN - Procedure ien from visit file ; ACKMOD - modifier (ien from file 81.3) ; outputs: 1^ - everything ok ; 0^xxxxxxx - update failed (reason=xxxxxx) |
|
SETMODX | ; exit point
|
|
PRIMARY(ACKVIEN,ACKDD) | ; Does the visit contain a Primary Diagnosis
; Input - Visit IEN ; Output - 1=Visit has a Primary Diagnosis ; 0=Visit Does not have a Primary Diagnosis ; or User editing diagnosis that is the Primary |
|
POSTDIAG(ACKVIEN) | ; After Diagnosis codes have been entered check that
; one is a Primary diagnosis. |
|
TIMECHEK(ACKVIEN,ACKPARAM) | ; Prevet user from editing a Visit Time
|
|
TIMERR | ;
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^ACK(509850.1 - [#509850.1] | FIND1^DIC, GET1^DIQ |
^ACK(509850.4 - [#509850.4] | FIND1^DIC, GET1^DIQ |
^ACK(509850.5 - [#509850.5] | FIND1^DIC, GET1^DIQ |
^ACK(509850.6 - [#509850.6] | GET1^DIQ |
509850.63 | FIND1^DIC, GET1^DIQ, LIST^DIC |