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

Package: Quasar

Routine: ACKQUTL4


Information

ACKQUTL4 ;HCIOFO/BH - NEW/EDIT Visit Template Utilities for QUASAR ;11/13/08 12:57pm

Source Information

Source file <ACKQUTL4.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Quasar 4 ($$PAGE,CLASDIS,RATDIS)^ACKQNQ  $$EVENT^ACKQUTL5  LONG^ACKQUTL6  ($$DIAGTXT,$$MODTXT)^ACKQUTL8  
Registration 4 $$CVEDT^DGCV  $$GETSTAT^DGMSTAPI  GETCUR^DGNTAPI  (ELIG,SVC)^VADPT  
VA FileMan 3 LIST^DIC  FILE^DIE  ($$GET1,GETS)^DIQ  
Kernel 2 ENS^%ZISS  $$PATCH^XPDUTL  
Automated Medical Information Exchange 1 $$EN1^DVBCTRN  
CPT HCPCS Codes 1 $$MOD^ICPTMOD  
DRG Grouper 1 $$CODEC^ICDEX  

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

Package Total Caller Graph
Quasar 19 ACKQAS  ACKQAS VISIT ENTRY  ACKQAS2  ACKQASU2  ACKQCP  ACKQDWB  ACKQNQ  ACKQPCE1  
ACKQR2  ACKQR3  ACKQR5  ACKQRU  ACKQTE  ACKQTE2  ACKQTE6  ACKQTE7  
ACKQUTL5  ACKQUTL9  ^ACK(509850.3  
DSS Extracts 1 ECXQSR  

Entry Points

Name Comments DBIA/ICR reference
CHK(Y,ACKVD) ;
CLEAR(ACKVIEN,ACKZNUM) ;
MST(ACKPCE,ACKVD,ACKPAT) ;
PROB(ACKPCE,ACKDIV) ; Decides if Update PCE Problem List prompt appears
SETUP ; Called from within the New/Edit visit template to set up parameters
PCE(ACKDIV,ACKVD) ; Sets ACKPCE to 1 if - The send to PCE flag is set
; (for the division) and the PCE INTERFACE START DATE is before or on
; the same day as the Visit Date and the INTERFACE WITH PCE flag for
; the site is set to true.
STATUS ; Sets Agent orange, Radiation and Environmental Contaminant and Combat indicators
; AO,Rad
AUDIO() ; Pass back 1 if user is valid to enter audimetric scores else 0
ELIG ; Set up eligibiliy variables and if more than one eligibility create
; display array used in block ELIGDISP
ELIGDIS ; Display patients eligibilities
PATDIS ;
ACKCP() ; This initializes the C&P Parameter.
; First check site parameters file for C&P flag
PROVDIS ; Get providers already filed and display
CPTDIS ; Get procedures already filed and display
DIAGDIS ; Get diagnoses already filed and display
HLOSS ; Sets hearing loss variable if one or more diagnosis are for hearing
; loss
MODDIS ; Display Modifiers - Called within Executable Help of Modiifer
; Enter Edit.
CONVERT(ACKPRV) ; Converts the QSR Prov Code into a name string from file 200.
  • ICR #5494
    • Status: Active
    • Usage: Supported
    CONVERT1(ACKPRV) ; Converts the Provider IEN number used within Quasar
    ; to its equivalent code used on the 200 file.
  • ICR #5494
    • Status: Active
    • Usage: Supported
    CONVERT2(ACKPRV) ; Converts the Provider IEN number used within Quasar
    ; to its equivalent code used on the 200 file.
  • ICR #5494
    • Status: Active
    • Usage: Supported

    External References

    Name Field # of Occurrence
    ENS^%ZISS SETUP+2, ELIGDIS+3, PROVDIS+3, CPTDIS+2, DIAGDIS+1
    $$PAGE^ACKQNQ ELIGDIS+4, ELIGDIS+9, PROVDIS+12, PROVDIS+18, PROVDIS+21, DIAGDIS+5, DIAGDIS+16
    CLASDIS^ACKQNQ PATDIS+2
    RATDIS^ACKQNQ PATDIS+1
    $$EVENT^ACKQUTL5 SETUP+16
    LONG^ACKQUTL6 CPTDIS+13
    $$DIAGTXT^ACKQUTL8 DIAGDIS+12
    $$MODTXT^ACKQUTL8 CPTDIS+28, MODDIS+7
    $$CVEDT^DGCV STATUS+5
    $$GETSTAT^DGMSTAPI MST+5
    GETCUR^DGNTAPI STATUS+8
    LIST^DIC PROVDIS+5, CPTDIS+4, CPTDIS+22, DIAGDIS+3
    FILE^DIE CLEAR+3, SETUP+7, ELIG+7
    $$GET1^DIQ PROB+2, SETUP+18, SETUP+21, PCE+5, PCE+6, STATUS+11, ELIG+9, ELIG+10, ELIGDIS+12, ACKCP+3
    , CPTDIS+12, CONVERT+3, CONVERT1+3, CONVERT2+3
    GETS^DIQ PROVDIS+10
    $$EN1^DVBCTRN ACKCP+6, ACKCP+8
    $$CODEC^ICDEX DIAGDIS+11
    $$MOD^ICPTMOD MODDIS+6, MODDIS+7
    ELIG^VADPT SETUP+24
    SVC^VADPT STATUS+2
    $$PATCH^XPDUTL MST+1

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: IOUON,"This Patient has other Entitled Eligibilities",IOUOFF,!!
    • Line Location: ELIGDIS+5
    Function Call: WRITE
    • Prompt: " ",IOUON,"Providers currently recorded for this visit",IOUOFF,!
    • Line Location: PROVDIS+13
    Function Call: WRITE
    • Prompt: !," Primary Provider - "_ACKPROV(509850.6,ACKK2,"6","E")
    • Line Location: PROVDIS+14
    Function Call: WRITE
    • Prompt: !," Secondary Provider - "_ACKARR(ACKK1)
    • Line Location: PROVDIS+19
    Function Call: WRITE
    • Prompt: !," Student - "_ACKPROV(509850.6,ACKK2,"7","E")
    • Line Location: PROVDIS+22
    Function Call: WRITE
    • Prompt: !
    • Line Location: PROVDIS+23
    Function Call: WRITE
    • Prompt: !!," ",IOUON,"Procedures currently entered for this visit",IOUOFF,!
    • Line Location: CPTDIS+6
    Function Call: WRITE
    • Prompt: " Provider : ",ACKPRV
    • Line Location: CPTDIS+12
    Function Call: WRITE
    • Prompt: !
    • Line Location: CPTDIS+14
    Function Call: WRITE
    • Prompt: !
    • Line Location: CPTDIS+18
    Function Call: WRITE
    • Prompt: " Modifiers:"
    • Line Location: CPTDIS+24
    Function Call: WRITE
    • Prompt: ?19,$$MODTXT^ACKQUTL8(ACKTMOD("DILIST",1,ACKKEY),ACKVD),!
    • Line Location: CPTDIS+28
    Function Call: WRITE
    • Prompt: !
    • Line Location: CPTDIS+30
    Function Call: WRITE
    • Prompt: " ",IOUON,"Diagnoses currently entered for this visit:",IOUOFF,!
    • Line Location: DIAGDIS+6
    Function Call: WRITE
    • Prompt: !," ",ACKD(ACK1)
    • Line Location: DIAGDIS+18
    Function Call: WRITE
    • Prompt: !
    • Line Location: DIAGDIS+19
    Function Call: WRITE
    • Prompt: !," "_$P($$MOD^ICPTMOD(ACK1,"I"),U,2),?5,$$MODTXT^ACKQUTL8(ACK1,""),?53,$S(ACKSRCE="C":"CPT",ACKSRCE="H":"HCPCS",ACKSRCE="V":"VA NATIONAL",1:"")
    • Line Location: MODDIS+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: MODDIS+8
    Routine Call
    • DIC
    • Line Location:
      • PROVDIS+5
      • CPTDIS+4
      • CPTDIS+22
      • DIAGDIS+3
    Routine Call
    • DIE
    • Line Location:
      • CLEAR+3
      • SETUP+7
      • ELIG+7

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^DPT - [#2] GET1^DIQ
    ^ACK(509850.3 - [#509850.3] GET1^DIQ
    ^ACK(509850.4 - [#509850.4] GET1^DIQ
    ^ACK(509850.6 - [#509850.6] GET1^DIQ,  GETS^DIQ
    509850.61 LIST^DIC
    509850.63 LIST^DIC
    509850.64 LIST^DIC
    509850.66 LIST^DIC
    ^ACK(509850.8 - [#509850.8] GET1^DIQ
    509850.83 GET1^DIQ
    ^DIC(8 - [#8] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^ACK(509850.1 - [#509850.1] HLOSS+7
    ^ACK(509850.5 - [#509850.5] MODDIS+4
    ^ACK(509850.6 - [#509850.6] SETUP+30, SETUP+31, ACKCP+8, CPTDIS+17, HLOSS+5, HLOSS+6
    ^EC(725 - [#725] CHK+2

    Label References

    Name Line Occurrences
    $$CONVERT CPTDIS+11
    $$PCE SETUP+13
    ELIG SETUP+38
    STATUS SETUP+34

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ACK1 DIAGDIS+2~, DIAGDIS+14*, DIAGDIS+15*, DIAGDIS+18, MODDIS+3*, MODDIS+4*, MODDIS+6, MODDIS+7
    >> ACKAO SETUP+33*, SETUP+35, STATUS+2*
    ACKAR SETUP+5!, SETUP+7!, ELIG+6!, ELIG+7!
    ACKAR( SETUP+6*, ELIG+6*
    ACKARR CLEAR+1~, PROVDIS+4~, PROVDIS+11, PROVDIS+15
    ACKARR( CLEAR+2*, PROVDIS+8*, PROVDIS+17, PROVDIS+19
    >> ACKATS SETUP+29*, SETUP+31*
    >> ACKBA SETUP+21*, AUDIO+3
    >> ACKCLNO SETUP+18*
    ACKCODE CPTDIS+3~
    ACKCODE( CPTDIS+16, CPTDIS+19*
    >> ACKCP AUDIO+2
    ACKCPTDS CPTDIS+3~
    ACKCPTDS("DILIST" CPTDIS+5, CPTDIS+8, CPTDIS+9, CPTDIS+10, CPTDIS+12
    >> ACKCSC ACKCP+8
    >> ACKCV SETUP+33*, STATUS+5*
    ACKD DIAGDIS+2~
    ACKD( DIAGDIS+12*, DIAGDIS+15, DIAGDIS+18
    ACKD0 SETUP+9~, SETUP+30*, SETUP+31
    ACKDIAG HLOSS+3~, HLOSS+6*, HLOSS+7
    ACKDIAGD DIAGDIS+2~
    ACKDIAGD("DILIST" DIAGDIS+4, DIAGDIS+8, DIAGDIS+9, DIAGDIS+12
    ACKDIV PROB~, PROB+2, SETUP+13, SETUP+16, SETUP+18, SETUP+21, PCE~, PCE+6, ACKCP+3
    ACKELDIS ELIG+17!
    ACKELDIS( ELIG+19*, ELIG+20*, ELIG+25*, ELIGDIS+7, ELIGDIS+8, ELIGDIS+11
    ACKELDIS(5 ELIG+28*
    >> ACKELGCT ELIG+5*, ELIG+17*, ELIG+19*, ELIG+20*, ELIG+24*, ELIG+28*
    >> ACKELIG ELIG+5*, ELIG+13*, ELIGDIS+8
    >> ACKELIG1 ELIG+5*, ELIG+6
    >> ACKENV SETUP+33*, SETUP+36, STATUS+11*, STATUS+12*, STATUS+13*
    >> ACKEVENT SETUP+15*, SETUP+16*
    >> ACKHNC SETUP+33*, STATUS+9*
    ACKHNC0 STATUS+7~
    ACKHNC0("STAT" STATUS+9
    ACKI DIAGDIS+2~, DIAGDIS+11*, DIAGDIS+12
    ACKK1 PROVDIS+4~, PROVDIS+6*, PROVDIS+7*, PROVDIS+8, PROVDIS+16*, PROVDIS+17*, PROVDIS+19
    ACKK2 ELIG+22*, ELIG+23*, ELIG+25, ELIGDIS+2~, ELIGDIS+6*, ELIGDIS+7*, ELIGDIS+8, ELIGDIS+11, ELIGDIS+12, PROVDIS+4~
    , PROVDIS+9*, PROVDIS+10, PROVDIS+11, PROVDIS+14, PROVDIS+20, PROVDIS+22
    ACKK3 CPTDIS+3~, CPTDIS+7*, CPTDIS+8*, CPTDIS+9, CPTDIS+10, CPTDIS+12, DIAGDIS+2~, DIAGDIS+7*, DIAGDIS+8*, DIAGDIS+9
    , DIAGDIS+12
    ACKK4 DIAGDIS+2~, DIAGDIS+9*, DIAGDIS+11, DIAGDIS+12, HLOSS+3~, HLOSS+4*, HLOSS+5*, HLOSS+6
    ACKKEY CPTDIS+3~, CPTDIS+26*, CPTDIS+27*, CPTDIS+28
    >> ACKLAMD SETUP+33*
    >> ACKLOSS SETUP+33*, AUDIO+3, HLOSS+4*, HLOSS+5, HLOSS+7*
    ACKMSG PROVDIS+4~
    ACKOUT PCE+4~*, PCE+6*, PCE+7
    ACKPAT MST~, MST+5, SETUP+24, SETUP+30, STATUS+5, STATUS+11, PATDIS+1, ACKCP+6, ACKCP+8
    ACKPCE MST~, MST+2, PROB~, PROB+1, SETUP+13*, SETUP+34
    ACKPIEN CPTDIS+3~, CPTDIS+16*, CPTDIS+17*, CPTDIS+18, CPTDIS+19, CPTDIS+21*, CPTDIS+22
    ACKPROC CPTDIS+3~, CPTDIS+9*, CPTDIS+12, CPTDIS+13, CPTDIS+16, CPTDIS+17, CPTDIS+19
    ACKPROV PROVDIS+4~, PROVDIS+9!
    ACKPROV( PROVDIS+11, PROVDIS+14, PROVDIS+20, PROVDIS+22
    ACKPRV CPTDIS+3~, CPTDIS+10*, CPTDIS+11*, CPTDIS+12, CONVERT~, CONVERT+3, CONVERT1~, CONVERT1+3, CONVERT2~, CONVERT2+3
    >> ACKQCPS ACKCP+6*, ACKCP+7*, ACKCP+8, ACKCP+9
    >> ACKQECON SETUP+36*
    >> ACKQIR SETUP+36*
    >> ACKQORG SETUP+35*
    ACKQQD CHK+1~, CHK+2*, CHK+3
    >> ACKQSER SETUP+35*
    >> ACKRAD SETUP+33*, SETUP+36, STATUS+2*
    ACKRET MST+3~, MST+5*, MST+7
    >> ACKSC SETUP+24*, SETUP+35
    >> ACKSP DIAGDIS+7*, DIAGDIS+12
    ACKSRCE MODDIS+2~, MODDIS+6*, MODDIS+7
    ACKTGT PROVDIS+4~
    ACKTGT("DILIST" PROVDIS+7, PROVDIS+8
    ACKTMOD CPTDIS+3~, CPTDIS+29!
    ACKTMOD("DILIST" CPTDIS+23, CPTDIS+27, CPTDIS+28
    ACKVD CHK~, CHK+3, MST~, MST+5, SETUP+11, SETUP+13, SETUP+16, PCE~, PCE+6, STATUS+5
    , CPTDIS+28, DIAGDIS+12
    >> ACKVELG ELIG+9*, ELIG+10*, ELIG+13, ELIG+19
    ACKVIEN CLEAR~, CLEAR+2, SETUP+6, ELIG+6, ELIG+9, ACKCP+8, PROVDIS+5, PROVDIS+9, CPTDIS+4, CPTDIS+17
    , CPTDIS+21, DIAGDIS+3, HLOSS+5, HLOSS+6
    >> ACKVISIT SETUP+4
    ACKX SETUP+9~, SETUP+30*, SETUP+31
    ACKXKEEP MST+3~, MST+4*, MST+6
    ACKZNUM CLEAR~, CLEAR+2
    D0 PROVDIS+4~, CPTDIS+3~, DIAGDIS+2~
    >> DFN SETUP+24*, STATUS+8, PATDIS+1*
    >> ICDVDT SETUP+11*
    >> ICPTVDT SETUP+11*
    >> IOUOFF ELIGDIS+5, ELIGDIS+10, PROVDIS+13, CPTDIS+6, DIAGDIS+6, DIAGDIS+17
    >> IOUON ELIGDIS+5, ELIGDIS+10, PROVDIS+13, CPTDIS+6, DIAGDIS+6, DIAGDIS+17
    RC ELIGDIS+2~, ELIGDIS+4*, ELIGDIS+7, ELIGDIS+9*, ELIGDIS+10, PROVDIS+2~, PROVDIS+12*, PROVDIS+15*, PROVDIS+17, PROVDIS+18*
    , PROVDIS+21*, DIAGDIS+2~, DIAGDIS+5*, DIAGDIS+16*, DIAGDIS+17
    U SETUP+24, STATUS+5, STATUS+9, ELIG+4, ELIG+5, ELIG+13, ELIG+19, ELIG+20, ELIG+25, ELIGDIS+8
    , ELIGDIS+11, ACKCP+7, HLOSS+6, HLOSS+7, MODDIS+6, MODDIS+7
    VAEL SETUP+40!
    VAEL(1 ELIG+5, ELIG+13, ELIG+20, ELIG+23, ELIG+25
    VAEL(3 SETUP+24, ELIG+4
    VASV SETUP+40!
    VASV(2 STATUS+2
    VASV(3 STATUS+2
    >> X MST+4, MST+6*
    Y CHK~, CHK+2
    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