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

Package: IHS Accounts Receivable

Routine: BARDMLPR


Information

BARDMLPR ;IHS/OIT/FCJ - REPRINT DEBT MANAGEMENT PRINT LETTERS

Source Information

Source file <BARDMLPR.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA Fileman 6 DD^%DT  (,COMMA,NOW)^%DTC  ^DIC  ^DIE  $$GET1^DIQ  ^DIR  
IHS Accounts Receivable 3 PRINT^BARDMLP1  (MCD,MCR,PRVT,RR)^BARDMRE  (INSTYP,PAR,RRDT)^BARDMU  
Kernel 3 ^%ZIS  ^%ZISC  $$NPI^XUSNPI  
IHS VA Utilities 2 ($$VAL,$$VALI)^XBDIQ1  $$DIR^XBDIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Accounts Receivable 1 BAR DM PRT REPRINT LETTER  

Entry Points

Name Comments DBIA/ICR reference
ONEDM ;
PAID(BARDM,BARDMC) ;SET THE PRINT QUEUED STATUS TO NOT QUEUED AND BILL STATUS TO PAID P.OTT MAY 2013
TSTPRT ;EP
PERCHK ;
INSCHK1 ;
POLCHK ;TEST FOR POLICY NO, POLICY HOLDER AND POLICY HOLDER DOB
NOTPRT(BARDM) ;
SEL ;EP;SELECT BILL BAR*1.8*24 NEW CODE - EXCLUDE NOT PRINTED LETTERS FROM LOOKUP
B ;SELECT BATCH
LERR ;
L ;SELECT LETTER
PATCHK ;
XIT ;
VAR ;SET LET VARIABLES
LET2(BARCYCLE,BARDM,BARDMC) ;
INSCHK ;
VARSET ;RESET VARS
LETB ;SET CYCLES TO PRINT BATCHES
ST ;
LETS ;SET CYCLES TO SINGLE LETTERS
XIT2 ;
LET ;BEGIN PRINT LETTERS
SORT1
SORT0
SORT3
SORT2

External References

Name Field # of Occurrence
DD^%DT LET2+2, ONEDM+1
^%DTC PATCHK+9
COMMA^%DTC LET2+4, ONEDM+3
NOW^%DTC TSTPRT+9
^%ZIS ST+11, XIT+1, TSTPRT+5
^%ZISC XIT+2, TSTPRT+24
PRINT^BARDMLP1 TSTPRT+23, ONEDM+14
MCD^BARDMRE INSCHK1+3
MCR^BARDMRE INSCHK1+1
PRVT^BARDMRE INSCHK1+4
RR^BARDMRE INSCHK1+2
INSTYP^BARDMU LET2+13, ONEDM+12
PAR^BARDMU TSTPRT+1
RRDT^BARDMU ST+5
^DIC B+5, SEL+6
^DIE PAID+3, PAID+6
$$GET1^DIQ POLCHK+8, POLCHK+10
^DIR LERR+6
$$VAL^XBDIQ1 VAR+10, LET2+9, LET2+12, LET2+14, ONEDM+8, ONEDM+11, PATCHK+2, PATCHK+3, PATCHK+5, PERCHK+1
, PERCHK+3, PERCHK+4, PERCHK+5, PERCHK+6
$$VALI^XBDIQ1 PATCHK+7, PATCHK+8
$$DIR^XBDIR ST+6, TSTPRT+3, L+15, B+15
$$NPI^XUSNPI POLCHK+9, POLCHK+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ST+10
Function Call: WRITE
  • Prompt: !?5,"Select Letter for Bill : "
  • Line Location: L+10
Function Call: WRITE
  • Prompt: !?10,I_". ",$P(BARDM(I),U,3)," Letter"
  • Line Location: L+11
Function Call: WRITE
  • Prompt: !?10,I,". All Letters"
  • Line Location: L+12
Function Call: WRITE
  • Prompt: !?10,I,". Letters 1-3"
  • Line Location: L+13
Function Call: WRITE
  • Prompt: !
  • Line Location: L+14
Function Call: WRITE
  • Prompt: !?5,"Select Cycle for Batch:"
  • Line Location: B+12
Function Call: WRITE
  • Prompt: !?10,I_". ",$P(BARDM(I),U,2)," - Total Letters = ",$P(BARDM(I),U,3)
  • Line Location: B+13
Function Call: WRITE
  • Prompt: !?10,I,". All Letters"
  • Line Location: B+14
Function Call: WRITE
  • Prompt: !,"MISSING DATA IN ^BARBL(",DUZ(2),",",BARBIEN
  • Line Location: LET2+8
Function Call: WRITE
  • Prompt: !,"Cycle: ",BARCYCLE," Bill status of ",$P(^BARBL(DUZ(2),BARBIEN,0),U,1)," changed."
  • Line Location: LET2+16
Function Call: WRITE
  • Prompt: !,"This reprint will keep the original status."
  • Line Location: LET2+17
Function Call: WRITE
  • Prompt: !,"MISSING DATA IN ^BARBL(",DUZ(2),",",BARBIEN
  • Line Location: ONEDM+7
Function Call: WRITE
  • Prompt: !,"Letters have not been printed for this Bill"
  • Line Location: LERR+1
Routine Call
  • DIE
  • Line Location:
    • PAID+3
    • PAID+6
Routine Call
  • DIC
  • Line Location:
    • B+5
    • SEL+6
Routine Call
  • DIR
  • Line Location:
    • LERR+6
Routine Call
  • %ZIS
  • Line Location:
    • ST+11
    • XIT+1
    • TSTPRT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^BARBL(2906 - [#90050.01] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ABMDBILL( POLCHK+4, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
^AUPNPAT - [#9000001] POLCHK+5, POLCHK+6
^AUTNINS - [#9999999.18] INSCHK+1
^BAR(90052.06 VAR+2
^BARBL( LET2+6, LET2+10, LET2+11, ONEDM+5, ONEDM+9, ONEDM+10, POLCHK+3
^BARDM( L+5, L+7, L+8, LETB+5, LET2+2, LET2+4, LET2+5, ONEDM+1, ONEDM+3, ONEDM+4
, NOTPRT+3, NOTPRT+4
^BARDMLG( B+9, B+10, LETB+2, LETB+3
^DD("DD" TSTPRT+10
^DPT - [#2] POLCHK+7, PATCHK+4
^TMP("BARDMERR" LET+1!, SORT0+2, SORT0+3, SORT0+4, SORT1+1, SORT1+3, SORT1+4, SORT1+5, SORT2+1, SORT2+3
, SORT2+4, SORT2+5, SORT3+3, SORT3+4, SORT3+5, SORT3+6, SORT3+7, LET2+19*, LET2+21*, LET2+24*
, LET2+27*, LET2+31*
^VA(200 - [#200] LET2+7, ONEDM+6

Label References

Name Line Occurrences
@( ST+8
INSCHK POLCHK+13
INSCHK1 INSCHK+9, INSCHK+11
LERR L+5, L+9, B+11
LET ST+14
LET2 LETS+5, LETB+8
LETB LET+11, LET+12
LETS LET+4, LET+5, LET+7
ONEDM SORT0+4, SORT1+5, SORT2+5, SORT3+7
PATCHK POLCHK+14
PERCHK POLCHK+15
POLCHK LET2+18, ONEDM+13
SEL L+2
SORT0 LET+15
SORT1 LET+16
SORT2 LET+17
SORT3 LET+18
TSTPRT ST+2, TSTPRT+25
VAR ST+13, TSTPRT+8
VARSET TSTPRT+8, POLCHK+11
XIT ST+4, ST+7, ST+9, ST+15

Naked Globals

Name Field # of Occurrence
^(0 LET2+10, ONEDM+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TSTPRT+10
AGE XIT2+2!, PATCHK+9*
>> BARAD1 VAR+3*
>> BARAD2 VAR+3*
>> BARAMTO TSTPRT+19*, LET2+4*, ONEDM+3*
>> BARB LETB+1*, LETB+2*, LETB+3
>> BARBAT B+7*, B+9, B+10, LETB+2, LETB+3
>> BARBIEN LET2+5*, LET2+6, LET2+8, LET2+10, LET2+11, LET2+12, ONEDM+4*, ONEDM+5, ONEDM+9, ONEDM+10
, ONEDM+11, POLCHK+3, POLCHK+10, PATCHK+7
>> BARBILN TSTPRT+19*, LET2+9*, ONEDM+8*
BARCT XIT2+1!, L+6*, L+8*, L+9, L+11, L+12, L+13, B+8*, B+10*, B+11
, B+13, B+14, LETB+1*
>> BARCTY VAR+3*
BARCYCLE XIT2+1!, SORT0+1*, SORT0+2, SORT0+3, SORT0+4, SORT1+2*, SORT1+3, SORT1+4, SORT1+5, SORT2+2*
, SORT2+3, SORT2+4, SORT2+5, SORT3+2*, SORT3+3, SORT3+4, SORT3+5, SORT3+6, SORT3+7, LETS+2*
, LETS+5, LETB+4*, LETB+5, LETB+8, LET2~, LET2+21, LET2+24, LET2+27, LET2+31
BARCYL XIT2+1!, L+6*, L+7*, L+8, L+15*, B+8*, B+9*, B+10, B+15*, LET+4
, LET+5, LET+7, LET+11, LET+12, NOTPRT+1~, NOTPRT+3*, NOTPRT+4
>> BARD3P LET2+10*, ONEDM+9*, POLCHK+4, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
>> BARD3PD LET2+11*, ONEDM+10*, POLCHK+4, INSCHK+7, INSCHK+8, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
>> BARDAC LET2+10*, LET2+14, ONEDM+9*
>> BARDACG TSTPRT+13*, POLCHK+2, POLCHK+13, POLCHK+14, POLCHK+15
>> BARDACI INSCHK+1, INSCHK+7, INSCHK+8, INSCHK+11, PERCHK+1, PERCHK+3, PERCHK+4, PERCHK+5, PERCHK+6
>> BARDBDT LET2+10*, ONEDM+9*
>> BARDI LET2+14*
BARDM L+5, L+7, L+8, SORT0+3*, SORT0+4, SORT1+4*, SORT1+5, SORT2+4*, SORT2+5, SORT3+6*
, SORT3+7, LETS+2*, LETS+4, LETS+5, LETB+3*, LETB+5, LETB+7, LETB+8, LET2~, LET2+2
, LET2+4, LET2+5, LET2+9, LET2+21, LET2+24, LET2+27, LET2+31, ONEDM+1, ONEDM+3, ONEDM+4
, ONEDM+8, PAID~, PAID+1, PAID+5, SEL+8*, NOTPRT~, NOTPRT+3, NOTPRT+4
BARDM( L+8*, L+11, L+12*, L+13*, B+10*, B+13, B+14*, LET+4, LET+5, LET+11
, LET+12, LETS+2, LETB+2, LETB+3, LETB+4
BARDM("DOS" TSTPRT+20*, LET2+3*, LET2+12*, ONEDM+2*, ONEDM+11*
BARDM("INS" VARSET+2*, INSCHK+1*, INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5
BARDM("INS_CTY" TSTPRT+16*, INSCHK+3*, PATCHK+3*, PERCHK+4*
BARDM("INS_NM" TSTPRT+14*, LET2+26, LET2+29, INSCHK+2*, PATCHK+1*, PERCHK+2*
BARDM("INS_ST" TSTPRT+17*, INSCHK+3*, PATCHK+4*, PERCHK+5*
BARDM("INS_STR" TSTPRT+15*, INSCHK+2*, PATCHK+2*, PERCHK+3*
BARDM("INS_TX" VARSET+2*, INSCHK+5*
BARDM("INS_ZP" TSTPRT+18*, INSCHK+4*, PATCHK+5*, PERCHK+6*
BARDM("MEMBER" VARSET+2*
BARDM("PAT_IEN" POLCHK+3*, POLCHK+5, POLCHK+6, POLCHK+7, POLCHK+8, PATCHK+2, PATCHK+3, PATCHK+4, PATCHK+5, PATCHK+8
BARDM("POL_DOB" VARSET+2*
BARDM("POL_HOLDER" VARSET+2*, LET2+23, LET2+30
BARDM("POL_HOLDER_IEN" VARSET+2*
BARDM("POL_NUM" VARSET+2*
BARDMC SORT0+4*, SORT1+5*, SORT2+5*, SORT3+7*, LETS+2*, LETS+3, LETS+5, LETB+5*, LETB+6, LETB+8
, LET2~, LET2+2, LET2+4, LET2+21, LET2+24, LET2+27, LET2+31, ONEDM+1, ONEDM+3, PAID~
, PAID+1
>> BARDMINS SORT0+2*, SORT0+3, SORT0+4, SORT1+3*, SORT1+4, SORT1+5, SORT2+3*, SORT2+4, SORT2+5, SORT3+4*
, SORT3+5, SORT3+6, SORT3+7, LET2+20*, LET2+21, LET2+24, LET2+27, LET2+31
>> BARDOB TSTPRT+21*, POLCHK+8*
>> BARDTP TSTPRT+10*, LET2+2*, ONEDM+1*
BARERRCT XIT2+2!
BARERRT XIT2+2!
>> BARFAC VAR+10*
>> BARHRN POLCHK+5*, POLCHK+6*
BARL XIT2+1!, TSTPRT+13*, INSCHK+8*, INSCHK+11*, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
>> BARLDOB VAR+7*
>> BARLEN VAR+1*
>> BARLTY ST+6*, ST+8, LET+3, LET+9
>> BARMIN TSTPRT+12*, VARSET+1*, POLCHK+1*, POLCHK+13*, PATCHK+9*
>> BARMRGL VAR+4*, VAR+9*
>> BARMRGT VAR+4*, VAR+8*
>> BARNPI VAR+7*
>> BARNPIF TSTPRT+21*, POLCHK+9*
>> BARNPIP TSTPRT+21*, POLCHK+10*
BARPAR VAR+5, VAR+6, VAR+7, VAR+11!
BARPAR1 VAR+2*, VAR+3, VAR+4, VAR+11!
>> BARPAT TSTPRT+19*, POLCHK+7*, PATCHK+1, PERCHK+1*, PERCHK+2
>> BARPBDT TSTPRT+22*
>> BARPCP( VAR+6*
>> BARPH VAR+3*
>> BARPIEN VAR+2
>> BARPMX VAR+4*
>> BARPSRT LET+15, LET+16, LET+17, LET+18, LET2+21, LET2+22, LET2+25, LET2+28
>> BARQ ST+3, ST+9, TSTPRT+2, L+3, L+16*, B+1*, B+6*, B+16*, LET+2*, LET+6
, LETS+1*, LERR+1*, SEL+1*, SEL+7*
>> BARREQ B+1*, SEL+1*
BARRET NOTPRT+1~, NOTPRT+2*, NOTPRT+5*, NOTPRT+6
>> BARRPT ST+1*
>> BARSEQ LET2+19*
>> BARSG VAR+5*
>> BARSG1 VAR+5*
>> BARSG2 VAR+5*
BARSORT SORT1~, SORT1+1*, SORT1+3, SORT1+4, SORT1+5, SORT2~, SORT2+1*, SORT2+3, SORT2+4, SORT2+5
, LET2+23*, LET2+24, LET2+26*, LET2+27
BARSORT1 SORT3~, SORT3+3*, SORT3+4, SORT3+5, SORT3+6, SORT3+7, LET2+29*, LET2+31
BARSORT2 SORT3~, SORT3+5*, SORT3+6, SORT3+7, LET2+30*, LET2+31
>> BARST VAR+3*
BARTMP NOTPRT+1~, NOTPRT+4*, NOTPRT+5
>> BARTST INSCHK+6*, INSCHK+10
>> BARVLOC POLCHK+4*, POLCHK+5
>> BARZP VAR+3*
>> C VAR+6*
CY XIT2+1!, TSTPRT+13*, LET+4*, LET+5*, LET+7*, LET+10*, LET+11*, LET+12*, SORT0*, SORT0+2*
, SORT1+2*, SORT1+3*, SORT2+2*, SORT2+3*, SORT3+1*, SORT3+3*, LETS+2, LETB+2, LETB+3, LETB+4
DA XIT2+1!, LERR+2!, PAID+1*, PAID+4!, PAID+5*, PAID+7!
DA(1 PAID+1*
DIC XIT2+1!, B+2*, LERR+2!, SEL+2*
DIC("A" B+3*, SEL+4*
DIC("S" SEL+3*
DIC(0 B+4*, SEL+5*
DIE PAID+1*, PAID+4!, PAID+5*, PAID+7!, SEL+2*
DIR LERR+2!
DIR("A" LERR+5*
DIR(0 LERR+4*
DR LERR+2!, PAID+2*, PAID+4!, PAID+5*, PAID+7!
>> DUOUT ST+4, ST+7, TSTPRT+7, L+16, B+16
DUZ LET2+7, ONEDM+6
DUZ(2 VAR+2, VAR+10, L+5, L+7, L+8, B+2, B+9, B+10, LETB+2, LETB+3
, LETB+5, LET2+2, LET2+4, LET2+5, LET2+6, LET2+8, LET2+10, LET2+11, ONEDM+1, ONEDM+3
, ONEDM+4, ONEDM+5, ONEDM+9, ONEDM+10, POLCHK+3, POLCHK+6, POLCHK+9, PAID+1, PAID+5, SEL+2
, NOTPRT+3, NOTPRT+4
I XIT2+1!, VAR+1*, VAR+6*, L+11*, L+12*, L+13*, L+15, B+13*, B+14*, B+15
I1 XIT2+1!
IO ST+12, TSTPRT+6
IO("S" XIT+1, LERR+3
>> IOP XIT+1*
>> IOS XIT+1
IOST LERR+3
U VAR+3, VAR+4, VAR+5, VAR+6, L+8, L+11, B+10, B+13, LETS+2, LETB+2
, LETB+3, LETB+4, LET2+2, LET2+4, LET2+5, LET2+7, LET2+10, LET2+11, ONEDM+1, ONEDM+3
, ONEDM+4, ONEDM+6, ONEDM+9, ONEDM+10, POLCHK+3, POLCHK+4, POLCHK+5, POLCHK+6, POLCHK+7, POLCHK+9
, POLCHK+10, INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5, INSCHK+11, INSCHK1+1, INSCHK1+2, INSCHK1+3, INSCHK1+4
, PATCHK+4, NOTPRT+4
X XIT2+1!, LET2+4*, ONEDM+3*, PATCHK+9
>> X1 PATCHK+7*
>> X2 LET2+4*, ONEDM+3*, PATCHK+8*
>> Y TSTPRT+3*, TSTPRT+4, TSTPRT+10*, B+6, B+7, LET2+2*, ONEDM+1*, SEL+7, SEL+8
Z XIT2+1!
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