Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
VA FileMan 3 ($$FIND1,LIST)^DIC  UPDATE^DIE  $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Quasar 5 ACKQASU4  ACKQTE  ACKQTE2  ACKQUTL6  ACKQUTL8  

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 ;

External References

Name Field # of Occurrence
$$FIND1^DIC SETDIAG+13, SETDIAG+37, SETPROC+16, SETMDFR+12
LIST^DIC PRIMARY+8
UPDATE^DIE SETDIAG+47, SETPROC+44, SETMDFR+27
$$GET1^DIQ SETDIAG+20, SETDIAG+27, SETDIAG+28, SETPROC+23, SETPROC+30, SETPROC+31, SETMDFR+19, PRIMARY+6, TIMECHEK+9

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
Routine Call
  • DIC
  • Line Location:
    • SETDIAG+13
    • SETDIAG+37
    • SETPROC+16
    • SETMDFR+12
Routine Call
  • DIC
  • Line Location:
    • PRIMARY+8
Routine Call
  • DIE
  • Line Location:
    • SETDIAG+47
    • SETPROC+44
    • SETMDFR+27

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

Label References

Name Line Occurrences
$$PRIMARY POSTDIAG+7
SETDIAGX SETDIAG+16, SETDIAG+23, SETDIAG+31, SETDIAG+33, SETDIAG+41
SETMODX SETMDFR+15, SETMDFR+22
SETPROCX SETPROC+19, SETPROC+26, SETPROC+34, SETPROC+36

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACKARR SETDIAG+9~, SETPROC+10~, SETMDFR+6~
ACKARR( SETDIAG+45*, SETDIAG+46*, SETPROC+40*, SETPROC+41*, SETPROC+42*, SETMDFR+26*
ACKCPT SETPROC~, SETPROC+16
ACKCPTN SETPROC+10~, SETPROC+16*, SETPROC+19, SETPROC+23, SETPROC+31, SETPROC+40
ACKDD PRIMARY~, PRIMARY+6!, PRIMARY+12!
ACKDIAG SETDIAG+9~, SETDIAG+11*, SETDIAG+17*, SETDIAG+24*, SETDIAG+32*, SETDIAG+34*, SETDIAG+42*, SETDIAG+48*, SETDIAGX+1
ACKDIAG("DILIST" PRIMARY+10, PRIMARY+11
ACKDPRIM SETDIAG~, SETDIAG+46
ACKDSC SETDIAG+9~, SETDIAG+28*, SETDIAG+31, SETDIAG+33
ACKE SETDIAG+9~, SETDIAG+37*, SETDIAG+41, SETPROC+10~
ACKFLAG PRIMARY+7~, PRIMARY+9*, PRIMARY+10, PRIMARY+11*, PRIMARY+13
ACKICD SETDIAG~, SETDIAG+13
ACKICDN SETDIAG+9~, SETDIAG+13*, SETDIAG+16, SETDIAG+20, SETDIAG+28, SETDIAG+37, SETDIAG+45
ACKIEN SETPROC+10~, SETPROC+43!
ACKIEN(1 SETPROC+45
ACKK3 PRIMARY+7~, PRIMARY+9*, PRIMARY+10*, PRIMARY+11
ACKMDFR SETMDFR+6~, SETMDFR+9*
ACKMOD SETMDFR~, SETMDFR+12, SETMDFR+16*, SETMDFR+23*, SETMDFR+28*, SETMODX+1
ACKMODN SETMDFR+6~, SETMDFR+12*, SETMDFR+15, SETMDFR+19, SETMDFR+26
ACKPARAM TIMECHEK~, TIMECHEK+11, TIMECHEK+13!
ACKPIEN SETMDFR~, SETMDFR+26
ACKPPRV SETPROC~, SETPROC+42
ACKPROC SETPROC+10~, SETPROC+13*, SETPROC+20*, SETPROC+27*, SETPROC+35*, SETPROC+37*, SETPROC+45*, SETPROCX+1
ACKPSC SETPROC+10~, SETPROC+31*, SETPROC+34, SETPROC+36
ACKQTME TIMECHEK+8~, TIMECHEK+9*, TIMECHEK+10, TIMECHEK+12
ACKQTY SETPROC~, SETPROC+13*, SETPROC+41
ACKSTAT SETDIAG+9~, SETDIAG+20*, SETDIAG+23, SETPROC+10~, SETPROC+23*, SETPROC+26, SETMDFR+6~, SETMDFR+19*, SETMDFR+22
ACKVIEN SETDIAG~, SETDIAG+27, SETDIAG+37, SETDIAG+45, SETDIAG+46, SETPROC~, SETPROC+30, SETPROC+40, SETPROC+41, SETPROC+42
, SETMDFR~, SETMDFR+26, PRIMARY~, PRIMARY+6, PRIMARY+8, POSTDIAG~, POSTDIAG+7, TIMECHEK~, TIMECHEK+9
ACKVSC SETDIAG+9~, SETDIAG+27*, SETDIAG+31, SETDIAG+33, SETPROC+10~, SETPROC+30*, SETPROC+34, SETPROC+36
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All