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 |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 9 ^DIC  FILE^DICN  DT^DICRW  ^DIK  EN1^DIP  DT^DIQ  ^DIR  ^DIWP  
^DIWW  
Integrated Billing 4 $$CONFADD^IBARXEL  ($$RXST,$$VFAOK)^IBARXEU  ($$LST,$$PLUS)^IBARXEU0  PAUSE^IBOUTL  
Kernel 2 HOME^%ZIS  ^%ZISC  
Registration 1 (ADD,KVAR)^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Integrated Billing 5 IB DO NOT USE  IB INACTIVE INS CO  IB RX PRINT EX LETERS  IBARXEL  IBARXEPE  

Entry Points

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

External References

Name Field # of Occurrence
HOME^%ZIS %+1, ONE+3
^%ZISC END+1
^DIC PRINT+1
FILE^DICN ADDT+3
DT^DICRW %
^DIK DELT+2
EN1^DIP PRINT+6
DT^DIQ ONE+10, ONE+16
^DIR %+15, %+24
^DIWP ONE+30
^DIWW ONE+31
$$CONFADD^IBARXEL ONE+21
$$RXST^IBARXEU ONE+16
$$VFAOK^IBARXEU ONE+16
$$LST^IBARXEU0 ONE+16
$$PLUS^IBARXEU0 ONE+16
PAUSE^IBOUTL ONE+25, ONE+32
ADD^VADPT ONE+20
KVAR^VADPT END+1

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
Routine Call
  • %ZIS
  • Line Location:
    • %+1
    • ONE+3
Routine Call
  • DIC
  • Line Location:
    • PRINT+1
Routine Call
  • DIR
  • Line Location:
    • %+15
    • %+24

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIBT - [#.401] DELT+1
^DIBT("B" %+7
^DIC(5 - [#5] ONE+24
^DPT - [#2] SCR+3, SCR+4
^IBA(354 - [#354] SCR+5
^IBE(354.2 - [#354.2] SCR+5
^IBE(354.6 - [#354.6] LET+1, ONE+9, ONE+16, ONE+30
^TMP("IBEX LIST" %+3!, END+4!, LET+3
^UTILITY($J ONE+29!, ONE+31!

Label References

Name Line Occurrences
ADDT %+19
DELT %+16
END %+12, %+19, LET+4
FINAL LET+4
ONE LET+3
PRINT %+28
SCRQ SCR+3, SCR+4, SCR+6, SCR+7

Naked Globals

Name Field # of Occurrence
^( LET+3, ONE+9, ONE+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BY END+4!, PRINT+4*
C END+2!
D0 END+2!, SCR+3, SCR+4, SCR+5
DA END+2!, DELT+2*!
DD ADDT+1!
DFN END+2!, LET+3*, ONE+16
DHD END+4!, PRINT+4*
DIC END+2!, ADDT+2*, PRINT+1*, PRINT+4*
DIC("DR" ADDT+2*
DIC(0 ADDT+2*, PRINT+1*
DIE END+2!
DIK DELT+2*!
DIOEND END+4!, PRINT+5*
DIR %+15!, %+24!, END+2!
DIR("?" %+14*, %+21*, %+22*, %+23*
DIR("A" %+13*, %+20*
DIR("B" %+13*, %+20*
DIR(0 %+13*, %+20*
DIRUT %+15, %+24, END+2!
DIWF ONE+29!*
DIWL ONE+29!*
DIWR ONE+29!
DLAYGO END+2!
DN ONE+29!
DO ADDT+1!
DR END+2!
DT %, ONE+10, ONE+16
FLDS END+4!, PRINT+4*
FR END+4!, PRINT+4*
I END+4!, ONE+9*
IB END+2!, ONE+5*, ONE+9*, ONE+30*
IBADD %+19, %+25*, END+2!
IBADDT %+4*, END+2!, ADDT+3*
IBALIN END+3!, LET+1*, LET+2*, ONE+19
IBCNT END+3!, ONE+8*, ONE+9*, ONE+10*, ONE+11*, ONE+12*, ONE+14*, ONE+19*, ONE+20*, ONE+22*
, ONE+23*, ONE+24*, ONE+28*, ONE+30*
IBCNTL END+3!, ONE+4*, FINAL+2
IBCONF ONE+1~, ONE+21*, ONE+22, ONE+23, ONE+24
IBDATA END+3!, LET+3*, ONE+13
IBJ END+3!
IBLET END+3!, PRINT+1*, PRINT+2, LET+1, ONE+9, ONE+16, ONE+30
IBNAM END+3!, LET+3*, ONE+20
IBOK %+4*, END+3!, SCR+2*, SCR+8*
IBQUIT %+4*, %+12, %+15*, %+19, %+24*, END+3!, LET+3, ONE+25, ONE+32
IBTEMP %+4*, %+7*, %+12, %+16*, %+19, END+2!, ADDT+3*, DELT+1, DELT+2, DELT+4*
IBX END+3!, SCR+2~, SCR+5*, SCR+6, SCR+7, ONE+16*
IOF %+1, %+2, ONE+3, ONE+4, ONE+33, FINAL+1
IOM ONE+9, ONE+12, ONE+13, ONE+16
IOST ONE+4, ONE+25, ONE+32, ONE+33
J END+2!
L END+4!, PRINT+4*
POP END+3!
TAB END+3!, ONE+2*, ONE+10, ONE+20, ONE+22, ONE+23, ONE+24
TO END+4!, PRINT+4*
VAPA END+4!
VAPA( ONE+22, ONE+23, ONE+24
VAPA(18 ONE+24
VAPA(6 ONE+24
X END+2!, ADDT+2*, PRINT+1*, ONE+9*, ONE+30*
Y %+16, %+25, END+2!, ADDT+3, PRINT+1, ONE+10*, ONE+16*
>> ZTQUEUED END
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 |  Naked Globals |  Local Variables |  All