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 |  Local Variables |  All
Print Page as PDF
Routine: BARPPY02

Package: IHS Accounts Receivable

Routine: BARPPY02


Information

BARPPY02 ; IHS/SD/TMM - PREPAYMENT RECEIPTS MAY 11,2010 ; 05/11/2010

Source Information

Source file <BARPPY02.m>

Call Graph

Call Graph Total: 14

Package Total Call Graph
IHS Accounts Receivable 7 BARPPAY^BARCLU1  $$ASKCOPY^BARDBQ01  ^BARDBQ02  RESETDIR^BARPPY01  INIT^BARUTL  BARPSAT^BARUTL0  $$EN^BARVDF  
VA Fileman 6 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  $$GET1^DIQ  ^DIR  
IHS VA Utilities 1 $$DIC^XBDIQ1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Accounts Receivable 2 BAR PST REPRINT RECEIPT  BARPPY01  

Entry Points

Name Comments DBIA/ICR reference
PRINT(BARPPIEN) ; Test print logic
; Print report to device. Queuing allowed.
; prompt user for number of copies to print
R1 ; Print Receipt. Prompt for number of copies and device.
RECAPDSP ; Display re-print data for user to review before select print
PRTDT ;
RECEIPT(BARRIEN) ; Print Receipt Y/N?
CLEAN1 ; Clear variables before print receipt
CLEAN0 ; Fake cleanup for multi copy printing. Routine needed for ^BARDBQ01.
PRTDATE ;Update Receipt Print date in A/R Prepayment file
RECAPDAT ; Get recap receipt data (reprints)
CLEAN ; Clean up after print/re-print receipt
MDY(BARFMDT) ; format Date from FM to MM/DD/YYYY
PRTRECPT ; Receipt output
REPRINT ; Re-print receipt
RCPT(BARPPIEN) ; Receipt data to print

External References

Name Field # of Occurrence
NOW^%DTC RCPT+10, PRTDATE+6, PRTDT+7
BARPPAY^BARCLU1 RCPT+6, REPRINT+14
$$ASKCOPY^BARDBQ01 PRINT+4
^BARDBQ02 PRINT+14
RESETDIR^BARPPY01 R1+1
INIT^BARUTL REPRINT+3
BARPSAT^BARUTL0 RCPT+5
$$EN^BARVDF RECAPDSP+2, RECAPDSP+3
^DIC REPRINT+8
FILE^DICN PRTDT+11
^DIE PRTDATE+12
$$GET1^DIQ RCPT+19, RECAPDAT+13
^DIR R1+5
$$DIC^XBDIQ1 PRTDATE+11, PRTDT+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: R1+11
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTRECPT+1
Function Call: WRITE
  • Prompt: !,?(80-$L(BARFAC)/2),BARFAC
  • Line Location: PRTRECPT+2
Function Call: WRITE
  • Prompt: !,?(80-$L(BARHDR2)/2),BARHDR2
  • Line Location: PRTRECPT+3
Function Call: WRITE
  • Prompt: !,?(80-$L(BARHDR3)/2),BARHDR3
  • Line Location: PRTRECPT+4
Function Call: WRITE
  • Prompt: !,?(80-$L(BARTMP)/2),BARTMP
  • Line Location: PRTRECPT+6
Function Call: WRITE
  • Prompt: " *REPRINT*"
  • Line Location: PRTRECPT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTRECPT+8
Function Call: WRITE
  • Prompt: !,"PATIENT: ",BARPAT,?39,"HRN: ",BARHRN
  • Line Location: PRTRECPT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTRECPT+10
Function Call: WRITE
  • Prompt: !,"RECEIPT NO: ",BARCPT,?39,"PAYMENT RECEIVE DATE: "_BARPMTDT
  • Line Location: PRTRECPT+11
Function Call: WRITE
  • Prompt: !,"PAYMENT TYPE: ",BARPMTY1
  • Line Location: PRTRECPT+12
Function Call: WRITE
  • Prompt: !,BARTMP_BARPMTY2,?39,"AMOUNT: $ ",$FN(BARPPAMT,",",2)
  • Line Location: PRTRECPT+14
Function Call: WRITE
  • Prompt: !,"PAYMENT FOR DOS: ",BARPPDOS
  • Line Location: PRTRECPT+15
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTRECPT+16
Function Call: WRITE
  • Prompt: !,BARCMT(CT)
  • Line Location: PRTRECPT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRTRECPT+18
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF"),!
  • Line Location: RECAPDSP+2
Function Call: WRITE
  • Prompt: $$EN^BARVDF("CLR")
  • Line Location: RECAPDSP+3
Function Call: WRITE
  • Prompt: !,"Receipt Number: ",BARECPT,!!
  • Line Location: RECAPDSP+4
Function Call: WRITE
  • Prompt: !,"1)",?4,"PAYMENT FOR DOS:",?22,BARPMTDI
  • Line Location: RECAPDSP+5
Function Call: WRITE
  • Prompt: !!,"2)",?4,"CREDIT:",?22,"$ ",$FN(BARPPAMT,",",2)
  • Line Location: RECAPDSP+6
Function Call: WRITE
  • Prompt: !!,"3)",?4,"DEPARTMENT:",?22,BARHDR3
  • Line Location: RECAPDSP+7
Function Call: WRITE
  • Prompt: !!,"4)",?4,"PAYMENT TYPE:",?22,$P(BARTMP,U)
  • Line Location: RECAPDSP+12
Function Call: WRITE
  • Prompt: !,?4,$P(BARTMP,U,2),?22,BARTMP1
  • Line Location: RECAPDSP+15
Function Call: WRITE
  • Prompt: !,?4,$P(BARTMP,U,3),?22,BARCNAME
  • Line Location: RECAPDSP+17
Function Call: WRITE
  • Prompt: !!,"5)",?4,"A/R BILL NUMBER:",?22,BARPPAY(.09)
  • Line Location: RECAPDSP+18
Function Call: WRITE
  • Prompt: !,?4,"PATIENT NAME:",?22,BARPAT
  • Line Location: RECAPDSP+19
Function Call: WRITE
  • Prompt: !,?4,"BILL DOS:",?22,BARDOSB
  • Line Location: RECAPDSP+20
Function Call: WRITE
  • Prompt: !!,"6)",?4,"PATIENT:",?22,BARPTNM1
  • Line Location: RECAPDSP+21
Function Call: WRITE
  • Prompt: !!,"7)",?4,"COMMENTS:"
  • Line Location: RECAPDSP+23
Function Call: WRITE
  • Prompt: " "
  • Line Location: RECAPDSP+26
Function Call: WRITE
  • Prompt: " "
  • Line Location: RECAPDSP+28
Function Call: WRITE
  • Prompt: BARCMT(CT)
  • Line Location: RECAPDSP+29
Function Call: WRITE
  • Prompt: !
  • Line Location: RECAPDSP+30
Routine Call
  • DIE
  • Line Location:
    • PRTDATE+12
Routine Call
  • DIC
  • Line Location:
    • REPRINT+8
Routine Call
  • DIR
  • Line Location:
    • R1+5

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARPPAY( PRTDATE+4
^DD(90050.06 PRTDT+6

Label References

Name Line Occurrences
$$MDY RCPT+12, RCPT+23, RCPT+32
CLEAN R1+14
CLEAN1 REPRINT+20, RECAPDAT+1
PRINT R1+12
PRTDATE R1+13
RECAPDAT REPRINT+16
RECAPDSP REPRINT+17
RECEIPT REPRINT+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % RCPT+11, PRTDATE+7, PRTDT+8, PRTDT+10
>> BAR("MULTI" PRINT+7*
>> BAR("NOQUE" PRINT+13*
>> BARBL RECAPDAT+10*, RECAPDAT+12*
>> BARBLIEN RECAPDAT+11*, RECAPDAT+13
>> BARCARD RCPT+28*, RCPT+34
>> BARCK RCPT+27*, RCPT+34, RECAPDAT+7*, RECAPDSP+13
BARCMT RCPT+38!*, RECAPDAT+16!*
BARCMT( PRTRECPT+17, RECAPDSP+24, RECAPDSP+25, RECAPDSP+28, RECAPDSP+29
BARCMT(5 RECAPDSP+25*, RECAPDSP+28
>> BARCNAME RECAPDAT+9*, RECAPDSP+16, RECAPDSP+17
BARCNTPP CLEAN+3!, CLEAN1+3!
>> BARCOPY PRINT+3*, PRINT+4*, PRINT+7
>> BARCPT RCPT+21*, PRTRECPT+11
>> BARCPTDT RCPT+11*, RCPT+12*, PRTRECPT+5
>> BARCTYPN RECAPDAT+8*, RECAPDSP+13
>> BARDOSB RECAPDAT+14*, RECAPDSP+20
BARECPT RECAPDAT+2*, RECAPDSP+4, CLEAN+3!, CLEAN1+3!
>> BARFAC RCPT+7*, PRTRECPT+2
BARFMDD CLEAN+2!, CLEAN1+2!, MDY+2*, MDY+4
BARFMDT CLEAN+2!, CLEAN1+2!, MDY~, MDY+1, MDY+2, MDY+3, MDY+4*, MDY+5
BARFMMM CLEAN+2!, CLEAN1+2!, MDY+1*, MDY+4
BARFMYY CLEAN+2!, CLEAN1+2!, MDY+3*, MDY+4
BARHDR RCPT+1!
>> BARHDR2 RCPT+8*, PRTRECPT+3
>> BARHDR3 RCPT+9*, PRTRECPT+4, RECAPDAT+5*, RECAPDSP+7
>> BARHRN RCPT+19*, PRTRECPT+9
>> BARIENS RCPT+18*, RCPT+19
BARLINE RCPT+2!
BARNOPP CLEAN+3!, CLEAN1+3!
>> BARPAT RCPT+15*, PRTRECPT+9, RECAPDAT+13*, RECAPDSP+19
>> BARPATI RCPT+16*, RCPT+18
BARPAYDT CLEAN+3!, CLEAN1+3!
BARPAYTY CLEAN+3!, CLEAN1+3!
BARPMTDD CLEAN+3!, CLEAN1+3!
BARPMTDI RCPT+22*, RCPT+23, RCPT+31*, RCPT+32, RECAPDAT+3*, RECAPDSP+5, CLEAN+3!, CLEAN1+3!
BARPMTDT RCPT+23*, PRTRECPT+11, CLEAN+3!, CLEAN1+3!
BARPMTMM CLEAN+4!, CLEAN1+4!
>> BARPMTY1 RCPT+25*, PRTRECPT+12
>> BARPMTY2 RCPT+34*, PRTRECPT+14
BARPMTYP RCPT+26*, RCPT+34, PRTRECPT+13, RECAPDAT+6*, RECAPDSP+8, RECAPDSP+9, RECAPDSP+10, RECAPDSP+11, RECAPDSP+13, RECAPDSP+16
, CLEAN+4!, CLEAN1+4!
BARPMTYY CLEAN+4!, CLEAN1+4!
BARPP CLEAN+4!, CLEAN1+4!
BARPPAMT RCPT+29*, PRTRECPT+14, RECAPDAT+4*, RECAPDSP+6, CLEAN+3!, CLEAN1+3!
BARPPAY REPRINT+13!, CLEAN+4!
BARPPAY( RCPT+9, RCPT+15, RCPT+16, RCPT+21, RCPT+22, RCPT+25, RCPT+26, RCPT+27, RCPT+28, RCPT+29
, RCPT+31, RCPT+38, RECAPDAT+2, RECAPDAT+3, RECAPDAT+4, RECAPDAT+5, RECAPDAT+6, RECAPDAT+7, RECAPDAT+8, RECAPDAT+9
, RECAPDAT+10, RECAPDAT+11, RECAPDAT+12, RECAPDAT+14, RECAPDAT+15, RECAPDAT+16, RECAPDSP+18
BARPPAY(101 RCPT+36, RCPT+37
BARPPCMT CLEAN+4!, CLEAN1+4!
>> BARPPDOS RCPT+32*, PRTRECPT+15
BARPPDTM CLEAN+4!, CLEAN1+4!
BARPPIEN R1+12, RCPT~, RCPT+6, REPRINT+10*, REPRINT+14, REPRINT+22, PRINT~, CLEAN+4!, PRTDATE+4, PRTDATE+10
, PRTDT+3
>> BARPRTDT PRTDATE+4*, PRTDATE+5, PRTDATE+7*
>> BARPSAT( RCPT+5, RCPT+7
BARPTNM CLEAN+4!, CLEAN1+4!
>> BARPTNM1 RECAPDAT+15*, RECAPDSP+21
BARQ CLEAN+5!, CLEAN1+5!
BARREPRT PRTRECPT+7, REPRINT+21*, REPRINT+23!, CLEAN+5!
BARRIEN RECEIPT~
BARSELPP CLEAN+5!, CLEAN1+5!
>> BARSTOP R1+7*, R1+10, REPRINT+15*, RECAPDSP+1, PRINT+6*
>> BARTMP RCPT+35*, RCPT+37*, PRTRECPT+5*, PRTRECPT+6, PRTRECPT+13*, PRTRECPT+14, RECAPDSP+8*, RECAPDSP+9*, RECAPDSP+10*, RECAPDSP+11*
, RECAPDSP+12, RECAPDSP+14, RECAPDSP+15, RECAPDSP+17
>> BARTMP1 RECAPDSP+13*, RECAPDSP+15, RECAPDSP+16*
>> BARUSR REPRINT+3
CT PRTRECPT+17~*, RECAPDSP+24~*, RECAPDSP+25, RECAPDSP+26, RECAPDSP+28, RECAPDSP+29
DA PRTDATE+2!, PRTDATE+10*, PRTDT+2!
DA(1 PRTDT+3*
DD PRTDT+2!
DIC REPRINT+4!, REPRINT+6*, PRTDT+2!, PRTDT+4*
DIC("B" REPRINT+5*
DIC("P" PRTDT+6*
DIC(0 REPRINT+7*, PRTDT+5*
DIE PRTDATE+2!, PRTDATE+11*
>> DIR("A" R1+2*
>> DIR(0 R1+4*
>> DIROUT R1+7, PRINT+6
DO PRTDT+2!
DR PRTDATE+2!, PRTDATE+8*, PRTDT+2!
>> DTOUT R1+8
>> DUOUT R1+8, PRINT+5
DUZ PRTDT+10
DUZ(2 RCPT+5, RCPT+7, RCPT+18, PRTDATE+4
>> I RCPT+36*, RCPT+37, PRTRECPT+1*
>> PRTDAT PRTDT+8*
U RECAPDSP+12, RECAPDSP+14, RECAPDSP+15, RECAPDSP+17, PRTDATE+4, PRTDT+6, PRTDT+10
>> X PRTDT+10*
>> XBNS PRINT+8*
>> XBRC PRINT+9*
>> XBRP PRINT+10*
>> XBRX PRINT+12*
>> Y R1+6, REPRINT+9, REPRINT+10
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 |  Local Variables |  All