Routine: ACKQASU5

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

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

Customize PDF page

Package: Quasar

Routine: ACKQASU5

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: