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

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

    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

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