Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ACKQASU5

Package: Quasar

Routine: ACKQASU5


Information

ACKQASU5 ;HCIOFO/AG - New/Edit Visit Utilities ; 04/01/99

Source Information

Source file <ACKQASU5.m>

Entry Points

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 ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"One of the Diagnosis codes entered must be defined as the Primary Diagnosis."
  • Line Location: POSTDIAG+8
Function Call: WRITE
  • Prompt: !,"APPOINTMENT TIME : "_ACKQTME_" (Uneditable)"
  • Line Location: TIMECHEK+12
Function Call: WRITE
  • Prompt: !," NOTE - Once entered this field cannot be edited."
  • Line Location: TIMERR+1
Function Call: WRITE
  • Prompt: !," If you wish to edit the Visit Time use the Delete Visit option then",!
  • Line Location: TIMERR+2
Function Call: WRITE
  • Prompt: " re-enter the visit with the correct Visit Time.",!
  • Line Location: TIMERR+3

FileMan Files Accessed Via FileMan Db Call

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call