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

Package: Integrated Billing

Routine: IBARXEPL


Information

IBARXEPL ;ALB/AAS - PRINT EXEMPTION LETTER - 28-APR-93

Source Information

Source file <IBARXEPL.m>

Entry Points

Name Comments DBIA/ICR reference
END
ADDT ; -- create new template in ^dibt
DELT ; -- delete search template
SCR ; -- don't send letters to deceased patients, non-vets, vfa exempt
; called by print template IB DO NOT USE
SCRQ
PRINT ; -- run through list of letters to PRINT
LET ; -- called by dioend, prints list from tmp array
ONE ; -- print one letter
FINAL ; -- Print last page

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,"Print Exemption letters to patients"
  • Line Location: IBARXEPL+6
Function Call: WRITE
  • Prompt: !!!
  • Line Location: IBARXEPL+14
Function Call: WRITE
  • Prompt: !!,"<<< Search Template IB EXEMPTION LETTER created!",!
  • Line Location: ADDT+3
Function Call: WRITE
  • Prompt: !!,"<<< Search Template IB EXEMPTION LETTER deleted!",!
  • Line Location: DELT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: !?(IOM-$L(X)+1/2),X
  • Line Location: ONE+9
Function Call: WRITE
  • Prompt: !?TAB
  • Line Location: ONE+10
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+11
Function Call: WRITE
  • Prompt: !?(IOM-28),"In Reply Refer To:"
  • Line Location: ONE+12
Function Call: WRITE
  • Prompt: !?(IOM-28),$E($P(IBDATA,"^")),$P($P(IBDATA,"^",2),"-",3),!
  • Line Location: ONE+13
Function Call: WRITE
  • Prompt: ?(IOM-28),"Renewal Date: "
  • Line Location: ONE+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+19
Function Call: WRITE
  • Prompt: !?TAB,$P(IBNAM,",",2)," ",$P(IBNAM,",")
  • Line Location: ONE+20
Function Call: WRITE
  • Prompt: !?TAB,VAPA($S(IBCONF:13,1:1))
  • Line Location: ONE+22
Function Call: WRITE
  • Prompt: ", ",VAPA($S(IBCONF:15,1:3))
  • Line Location: ONE+23
Function Call: WRITE
  • Prompt: !?TAB,VAPA($S(IBCONF:16,1:4)),", ",$P($G(^DIC(5,+VAPA($S(IBCONF:17,1:5)),0)),"^",2)," ",$S(IBCONF:$P(VAPA(18),"^",2),1:VAPA(6))
  • Line Location: ONE+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: ONE+28
Function Call: WRITE
  • Prompt: !,X
  • Line Location: ONE+30
Function Call: WRITE
  • Prompt: @IOF,!!!,?20,"EXEMPTION LETTERS PRINTING COMPLETED"
  • Line Location: FINAL+1
Function Call: WRITE
  • Prompt: !!,?20,$G(IBCNTL)," LETTERS PRINTED"
  • Line Location: FINAL+2

FileMan Files Accessed Via FileMan Db Call

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