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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ACKQUTL5

Package: Quasar

Routine: ACKQUTL5


Information

ACKQUTL5 ;HCIOFO/BH-Quasar utilities routine ; 12/24/09 2:15pm

Source Information

Source file <ACKQUTL5.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA FileMan 4 NOW^%DTC  LIST^DIC  (FILE,UPDATE)^DIE  ($$GET1,GETS)^DIQ  
Kernel 2 ENS^%ZISS  $$PATCH^XPDUTL  
CPT HCPCS Codes 1 ($$CODM,$$CPT)^ICPTCOD  
Quasar 1 $$CONVERT^ACKQUTL4  

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: 11

Package Total Caller Graph
Quasar 11 ACKQTE11  ACKQTE7  ACKQTM  ACKQUTL4  ^ACK(509850.5  ^ACK(509850.6  CPT MODIFIER  DIAGNOSTIC CODE  
EVENT CAPTURE PROCEDURE  PROCEDURE CODE  SECONDARY PROVIDER  

Entry Points

Name Comments DBIA/ICR reference
SETREF(X,ACKVIEN,ACKTYPE) ;
; Maintains APCE xRef When 3 of the 4 entries are present & the 4TH
; has been entered a new entry will be set up. If any of the 4 data
; items used within the X ref are changed the entry will be deleted & a
; new 1 set up
KILLREF(X,ACKVIEN,ACKTYPE) ;
; When any of the 4 var values that make up the APCE xRef are deleted
; or when the visit record is deleted the APCE xRef will be deleted
GETVAL ; Used with SETREF & KILLREF - Gets The Clinic, Visit Date, Visit
; time and Patient from the visit file currently being processed
EXCEPT(ACKVIEN,ACKFLD,ACKVAL) ; Called from xRefs within the LAST SENT TO PCE, LAST
; EDITED IN QSR and PCE VISIT IEN fields
SEND(ACKVIEN) ; Called when entering/editing any of the PCE fields.
; inputs: ACKVIEN - visit ien
; this s/r is used in the xRef of any data field that, if changed,
; should be sent to PCE to keep PCE up to date. The edit triggers the
; xRef call to this s/r. It ensures that the LAST EDITED IN QSR date is
; after the LAST SENT TO PCE date so that the visit becomes a PCE
; EXCEPTION. NB. The LAST EDITED IN QSR date will only be updated if
; a. it is currently earlier than the LAST SENT TO PCE and by updating
; it the visit becomes a PCE Exception. or b. the current value is
; earlier than today this saves the system from constantly updating
; this field and checking the exception status each time a pce field
; is changed
MOD ; Creates an array of valid CPT Modfrs. gets all valid Mods for the
; Proc then disgards any that are not on the A&SP Proc Mod file or that
; are on file but Inactive
MODW ; Called from x ref of Modfr field within 509850.6
MODS ; Screen for Modfrs input within Modifrs field of Modfrs File
CHK(Y,ACKVD,ACKCSC) ; Screen for EC codes
EVNTDIS ; Get EC Procs filed and display
SETCPT(DA,ACKQQIEN,X) ; When EC Code is entered create a CPT entry
KILLCPT(DA,ACKQQIEN) ; Deletes CPT entry if created by an EC entry
ECVOLPRV(DA,ACKQQIEN,X,ACKQQVP,ACKQQDS) ; Update CPT rec. when EC data entered
CPVOLPRV(DA,ACKQQIEN,X,ACKQQVP,ACKQQDS) ; Update EC rec. when CPT data entered
KILLEC(DA,ACKQQIEN) ; Delets EC entry if CPT entry has EC pter
EVENT(ACKDIV,ACKVD) ; params set up for Divn to use EC Codes ?

External References

Name Field # of Occurrence
NOW^%DTC EXCEPT+23, SEND+16
ENS^%ZISS EVNTDIS+1
$$CONVERT^ACKQUTL4 EVNTDIS+10
LIST^DIC EVNTDIS+3
FILE^DIE EXCEPT+19, EXCEPT+26, SEND+20, SEND+25, SETCPT+15, KILLCPT+6, ECVOLPRV+17, CPVOLPRV+17, KILLEC+6
UPDATE^DIE SETCPT+10
$$GET1^DIQ EXCEPT+5, EXCEPT+6, EXCEPT+8, EXCEPT+10, EXCEPT+12, EXCEPT+13, EXCEPT+22, SEND+14, SEND+15, CHK+3
EVNTDIS+11, EVNTDIS+12, SETCPT+4, KILLCPT+4, ECVOLPRV+12, CPVOLPRV+12, KILLEC+4
GETS^DIQ GETVAL+3
$$CODM^ICPTCOD MOD+5, MOD+6
$$CPT^ICPTCOD CHK+6
$$PATCH^XPDUTL MOD+5, MOD+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!," ",IOUON,"Event Capture Procedures currently entered for this visit",IOUOFF,!
  • Line Location: EVNTDIS+5
Function Call: WRITE
  • Prompt: !,?14,"Provider: ",ACKPRV
  • Line Location: EVNTDIS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: EVNTDIS+14
Routine Call
  • DIC
  • Line Location:
    • EVNTDIS+3
Routine Call
  • DIE
  • Line Location:
    • EXCEPT+19
    • EXCEPT+26
    • SEND+20
    • SEND+25
    • SETCPT+15
    • KILLCPT+6
    • ECVOLPRV+17
    • CPVOLPRV+17
    • KILLEC+6
Routine Call
  • DIE
  • Line Location:
    • SETCPT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.6 - [#509850.6] GET1^DIQ,  GETS^DIQ
509850.61 GET1^DIQ
509850.615 GET1^DIQ,  LIST^DIC
^EC(725 - [#725] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACK(509850.4 - [#509850.4] CHK+7, CHK+8, CHK+9
^ACK(509850.5 - [#509850.5] MOD+10, MOD+11
^ACK(509850.6 - [#509850.6] SETREF+12*, KILLREF+16, KILLREF+17!
^ACK(509850.8 - [#509850.8] EVENT+4, EVENT+6, EVENT+7
^EC(725 - [#725] CHK+2, CHK+10

Label References

Name Line Occurrences
GETVAL SETREF+6, KILLREF+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EXCEPT+24, EXCEPT+25, SEND+19, SEND+23, SEND+24
ACK SETCPT+2~, SETCPT+11!, KILLCPT+3~, ECVOLPRV+11~, CPVOLPRV+11~, KILLEC+3~
ACK( SETCPT+14*, KILLCPT+6*, ECVOLPRV+16*, CPVOLPRV+16*, KILLEC+6*
ACKARR EXCEPT+2~, SEND+12~
ACKARR( EXCEPT+18*, EXCEPT+25*, SEND+19*, SEND+24*
ACKARR1 SETCPT+2~, SETCPT+6!
ACKARR1( SETCPT+8*, SETCPT+9*
ACKCIEN SETCPT+2~, SETCPT+6*, KILLCPT+3~, KILLCPT+4*, KILLCPT+5, KILLCPT+6, ECVOLPRV+11~, ECVOLPRV+12*, ECVOLPRV+13, ECVOLPRV+16
ACKCIEN(1 SETCPT+14
ACKCLIN SETREF+5~, SETREF+8, SETREF+12, KILLREF+3~, KILLREF+7, KILLREF+13*, KILLREF+16, KILLREF+17, GETVAL+6*
ACKCSC CHK~, CHK+8
ACKDIV EVENT~, EVENT+4, EVENT+6, EVENT+7
>> ACKEC EVENT+7*, EVENT+8*, EVENT+9
ACKECIEN KILLEC+3~, KILLEC+4*, KILLEC+5, KILLEC+6
ACKEDIT EXCEPT+2~, EXCEPT+6*, EXCEPT+10*, EXCEPT+14*, EXCEPT+17, SEND+12~, SEND+14*, SEND+18, SEND+23
ACKEIEN CPVOLPRV+11~, CPVOLPRV+12*, CPVOLPRV+13, CPVOLPRV+16
>> ACKEVENT SETCPT+1, KILLCPT+1, KILLCPT+2, ECVOLPRV+9, ECVOLPRV+10, CPVOLPRV+9, CPVOLPRV+10, KILLEC+1, KILLEC+2
ACKEVTDS EVNTDIS+2~
ACKEVTDS("DILIST" EVNTDIS+4, EVNTDIS+7, EVNTDIS+8, EVNTDIS+9, EVNTDIS+13
ACKEXCP EXCEPT+2~, EXCEPT+22*, EXCEPT+24
ACKFIELD ECVOLPRV+11~, ECVOLPRV+14*, ECVOLPRV+16, CPVOLPRV+11~, CPVOLPRV+14*, CPVOLPRV+16
ACKFLD EXCEPT~, EXCEPT+3, EXCEPT+7, EXCEPT+11
ACKK2 MOD+4~, MOD+9*, MOD+10, MOD+11, MOD+12
ACKK3 EVNTDIS+2~, EVNTDIS+6*, EVNTDIS+7*, EVNTDIS+8, EVNTDIS+9, EVNTDIS+13
ACKKEY EVNTDIS+2~, EVENT+5*, EVENT+6*, EVENT+7
ACKM EVENT+1~, EVENT+2*, EVENT+3
ACKM1 MOD+4~, MOD+7*, MOD+8*, MOD+9, MOD+10, MOD+11, MOD+12
ACKMOD MOD+3!, MODS+1~
ACKMOD( MOD+12*, MOD+13*
ACKMOD1 MOD+4~, MOD+5*, MOD+6*
ACKMODD MOD+3!
ACKMODD( MOD+8, MOD+9, MOD+10!, MOD+11!, MOD+12!
ACKNATNM EVNTDIS+2~, EVNTDIS+12*, EVNTDIS+13
ACKNME EVNTDIS+2~, EVNTDIS+11*, EVNTDIS+13
ACKPARAM CHK+1~, CHK+6*
ACKPAT SETREF+5~, SETREF+10, SETREF+12, KILLREF+3~, KILLREF+9, KILLREF+12*, KILLREF+16, KILLREF+17, GETVAL+5*
>> ACKPC MOD+5, MOD+6, MOD+12, MOD+13
ACKPIEN EXCEPT+2~, EXCEPT+4*, EXCEPT+8*, EXCEPT+12*, EXCEPT+17
ACKPROC EVNTDIS+2~, EVNTDIS+8*, EVNTDIS+11, EVNTDIS+12
ACKPRV EVNTDIS+2~, EVNTDIS+9*, EVNTDIS+10*, EVNTDIS+13
ACKQCD CHK+1~, CHK+5*, CHK+6, CHK+7, CHK+8, CHK+9
ACKQDDD MODW+2~, MODW+3*, MODW+5, MODS+1~, MODS+2*, MODS+5
ACKQQCPT CHK+1~, CHK+3*, CHK+5, SETCPT+2~, SETCPT+4*, SETCPT+8
ACKQQD CHK+1~, CHK+10*, CHK+11
ACKQQDS ECVOLPRV~, ECVOLPRV+15, CPVOLPRV~, CPVOLPRV+15
ACKQQIEN SETCPT~, SETCPT+8, SETCPT+9, SETCPT+14, KILLCPT~, KILLCPT+4, KILLCPT+6, ECVOLPRV~, ECVOLPRV+12, ECVOLPRV+16
, CPVOLPRV~, CPVOLPRV+12, CPVOLPRV+16, KILLEC~, KILLEC+4, KILLEC+6
ACKQQVP ECVOLPRV~, ECVOLPRV+14, CPVOLPRV~, CPVOLPRV+14
ACKSENT EXCEPT+2~, EXCEPT+5*, EXCEPT+9*, EXCEPT+13*, EXCEPT+17, SEND+12~, SEND+15*, SEND+18
ACKTGT GETVAL+2~, EXCEPT+2~
ACKTGT( GETVAL+4, GETVAL+5, GETVAL+6, GETVAL+7
ACKTME SETREF+5~, SETREF+7, SETREF+12, KILLREF+3~, KILLREF+6, KILLREF+14*, KILLREF+16, KILLREF+17, GETVAL+7*
ACKTYPE SETREF~, SETREF+7, SETREF+8, SETREF+9, SETREF+10, KILLREF~, KILLREF+6, KILLREF+7, KILLREF+8, KILLREF+9
, KILLREF+11, KILLREF+12, KILLREF+13, KILLREF+14
ACKVAL EXCEPT~, EXCEPT+4, EXCEPT+9, EXCEPT+14, ECVOLPRV+11~, ECVOLPRV+15*, ECVOLPRV+16, CPVOLPRV+11~, CPVOLPRV+15*, CPVOLPRV+16
ACKVD SETREF+5~, SETREF+9, SETREF+12, KILLREF+3~, KILLREF+8, KILLREF+11*, KILLREF+16, KILLREF+17, GETVAL+4*, MOD+5
MODW+3, MODS+2, CHK~, CHK+6, CHK+11, EVENT~, EVENT+2
ACKVIEN SETREF~, SETREF+12, KILLREF~, KILLREF+16, KILLREF+17, GETVAL+3, GETVAL+4, GETVAL+5, GETVAL+6, GETVAL+7
, EXCEPT~, EXCEPT+5, EXCEPT+6, EXCEPT+8, EXCEPT+10, EXCEPT+12, EXCEPT+13, EXCEPT+18, EXCEPT+22, EXCEPT+25
, SEND~, SEND+14, SEND+15, SEND+19, SEND+24, EVNTDIS+3
ACKY EVENT+1~, EVENT+2*, EVENT+3*, EVENT+4, EVENT+6
CDT MOD+4~
D0 EVNTDIS+2~
DA SETCPT~, SETCPT+9, SETCPT+14, KILLCPT~, KILLCPT+4, ECVOLPRV~, ECVOLPRV+12, CPVOLPRV~, CPVOLPRV+12, KILLEC~
, KILLEC+4
>> DIC("S" MODS+4*
>> DIC("W" MODW+5*, MODS+5*
>> IOUOFF EVNTDIS+5
>> IOUON EVNTDIS+5
U MOD+9, MOD+11, CHK+8, CHK+9
X SETREF~, KILLREF~, KILLREF+11, KILLREF+12, KILLREF+13, KILLREF+14, MODW+1, SETCPT~, SETCPT+4, ECVOLPRV~
, ECVOLPRV+15, CPVOLPRV~, CPVOLPRV+15, EVENT+1~
Y CHK~, CHK+2, CHK+3, CHK+10, EVENT+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All