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

Package: Integrated Billing

Routine: IBARXEPV


Information

IBARXEPV ;ALB/AAS - RX COPAY EXEMPTION VERIFY STATUS ; 02/12/2004

Source Information

Source file <IBARXEPV.m>

Entry Points

Name Comments DBIA/ICR reference
DEV
DQ ; -- entry point from task man to start comparison
END
REPORT ; -- print report
REPORTQ
LINE ; -- write each line
CHK ; -- check if current status = computed status
CHKQ
UP ; -- update current exemption status
UP1
UPQ
SET ; -- set ^tmp node if not okay
HDR ; -- print header

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Verify Medication Copayment Exemption Status"
  • Line Location: IBARXEPV+9
Function Call: WRITE
  • Prompt: !!
  • Line Location: IBARXEPV+10
Function Call: WRITE
  • Prompt: !
  • Line Location: IBARXEPV+14
Function Call: WRITE
  • Prompt: !
  • Line Location: IBARXEPV+18
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!",!
  • Line Location: DEV+0
Function Call: WRITE
  • Prompt: !,"HMMMM, LET ME THINK ABOUT THIS FOR A MINUTE"
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !,"No discrepancies found in ",IBPCNT," exemptions checked."
  • Line Location: REPORT+2
Function Call: WRITE
  • Prompt: !!,"There were ",IBDCNT," discrepancies found in ",IBPCNT," exemptions checked."
  • Line Location: REPORT+7
Function Call: WRITE
  • Prompt: !,$E(IBNAM,1,20),?22,$P(IBER,"^",8)
  • Line Location: LINE+3
Function Call: WRITE
  • Prompt: ?39,$S(X=3:"Exemption incorrect",X=1!(X=2)!(X=5):"Not Current Status",X=4:"Name Missing",1:"Hmmmm")
  • Line Location: LINE+4
Function Call: WRITE
  • Prompt: ?61,$$DAT1^IBOUTL($P(IBER,"^",2))_" "_$E($P($G(^IBE(354.2,+IBER,0)),"^"),1,15)
  • Line Location: LINE+5
Function Call: WRITE
  • Prompt: ?88,$$DAT1^IBOUTL($P(IBER,"^",4))_" "_$E($P($G(^IBE(354.2,+$P(IBER,"^",3),0)),"^"),1,15)
  • Line Location: LINE+6
Function Call: WRITE
  • Prompt: ?115,$P(IBER,"^",6)
  • Line Location: LINE+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Medication Copayment Exemption Problem Report",?(IOM-31),IBPDAT," Page ",IBPAG
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Patient",?22,"PT. ID",?39,"Error",?61,"Current Exemption",?88,"Computed Exemption",?115,"Action"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,$TR($J(" ",IOM)," ","-")
  • Line Location: HDR+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(354 - [#354] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call