Routine: BARPPY01

Package	Total	Call Graph
IHS Accounts Receivable	4	(FINDBIL,SELFRBIL)^BARFPST3 RECEIPT^BARPPY02 ($$CARDTYPE,$$PAYTYPE,FILE,RECAP)^BARPPY1A (ASKPATB,GETBIL,GETDOS,SELBILL)^BARPUTL
VA Fileman	3	^DIC ($$GET1,D)^DIQ ^DIR
Kernel	1	SIG^XUSESIG

Package	Total	Caller Graph
IHS Accounts Receivable	3	BAR PST PRE-PAYMENTS BARPPY02 BARPPY1A

Entry Points

Name	Comments	DBIA/ICR reference
DEBIT	;data related to DEBIT CARD payment
INIT	;
CLEAN	; Clean up
SELPMT1	; Select Payment Type
CLEARVAR	; kill variables
CARDNM	;prompt for name on credit card
ARBILL	; Get A/R Bill, Patient, A/R Bill DOS
ASKPATB	;EP - select patient ; Same functionality as ASKPAT^BARPUTL but and allows user select a patient ; with A/R Bills and passes default value for DIC("B"))
GETBIL()	; EP
GETPAT1	; Select Patient if not selected in ARBILL1
CMTS	; Enter Pre-payment Comments
RESETDIR	; Clear variables for DIR no longer used
ARBILL1	; Prompt for A/R bill #, Patient Name, Bill DOS
SELDEPT	;
CASH	; Collect additional data related to CASH payment ; Account name/account number not needed for cash payments
EN1	; Loop
AMOUNT	; Enter Credit amount
GETDATA	; Get Pre-payment data ; Select Department (Clinic Stop)
CHECK	; data related to CHECK payment
EN	;EP - Prepayment Collections
PAYDOS1	; Enter DOS for the Payment
GETPAT	;
PMTDATA	;
PAYDOS	; Get DOS for this payment
SELPMT	; Select Payment Type
CREDIT	;data related to CREDIT CARD payment
ASKPAT	; EP
GB1	; Return point when user enters "^" in ASKPAT tag ; EP - Flat Rate Posting - Bill Entry ; If Editing, ask Flat Rate Posting Bill ; Kill identifying Vars if chg'g BILL ; IHS/SD/PKD 1/5/11
CHECKNM	;Checking account name
XIT	;
AMOUNT1	;prompt for payment

External References

Name	Field # of Occurrence
FINDBIL^BARFPST3	ARBILL1+21
SELFRBIL^BARFPST3	GB1+10
RECEIPT^BARPPY02	EN1+13
$$CARDTYPE^BARPPY1A	CREDIT+5
$$PAYTYPE^BARPPY1A	SELPMT1+5
FILE^BARPPY1A	EN1+12
RECAP^BARPPY1A	EN1+6
ASKPATB^BARPUTL	ASKPAT+3
GETBIL^BARPUTL	ASKPAT+9
GETDOS^BARPUTL	ASKPATB+26
SELBILL^BARPUTL	GB1+11
^DIC	SELDEPT+9, GETPAT1+13, ASKPATB+8
$$GET1^DIQ	ARBILL1+27, ARBILL1+28, ARBILL1+42, GETPAT1+6, GETPAT1+9
D^DIQ	PAYDOS1+8
^DIR	SELPMT1+8, CHECK+9, CHECKNM+7, CREDIT+9, CARDNM+6, AMOUNT1+7, PAYDOS1+11, GETPAT1+30, CMTS+5, ASKPATB+20
SIG^XUSESIG	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: SELDEPT+3
Function Call: WRITE	Prompt: ! Line Location: SELPMT1+2
Function Call: WRITE	Prompt: ! Line Location: CHECK+3
Function Call: WRITE	Prompt: !,?5,"Check Number is required",!! Line Location: CHECK+11
Function Call: WRITE	Prompt: ! Line Location: CHECKNM+3
Function Call: WRITE	Prompt: !,?5,"Checking Account Name is required",!! Line Location: CHECKNM+9
Function Call: WRITE	Prompt: ! Line Location: CREDIT+2
Function Call: WRITE	Prompt: !,?5,"Card type is required",!! Line Location: CREDIT+11
Function Call: WRITE	Prompt: ! Line Location: CARDNM+2
Function Call: WRITE	Prompt: !,?5,"Card holder name is required",!! Line Location: CARDNM+8
Function Call: WRITE	Prompt: ! Line Location: AMOUNT1+3
Function Call: WRITE	Prompt: ! Line Location: ARBILL1+4
Function Call: WRITE	Prompt: ! Line Location: PAYDOS1+2
Function Call: WRITE	Prompt: ! Line Location: GETPAT1+2
Function Call: WRITE	Prompt: !,?5,"Patient Name is required",!! Line Location: GETPAT1+17
Function Call: WRITE	Prompt: ! Line Location: GETPAT1+25
Function Call: WRITE	Prompt: ! Line Location: CMTS+1
Function Call: WRITE	Prompt: ! Line Location: ASKPAT+1
Function Call: WRITE	Prompt: ! Line Location: RESETDIR+1
Function Call: WRITE	Prompt: ! Line Location: ASKPATB+15
Routine Call	DIC Line Location: SELDEPT+9 GETPAT1+13 ASKPATB+8
Routine Call	DIR Line Location: SELPMT1+8 CHECK+9 CHECKNM+7 CREDIT+9 CARDNM+6 AMOUNT1+7 PAYDOS1+11 GETPAT1+30 CMTS+5 ASKPATB+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(40.7 - [#40.7]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
^BARBL(2906 - [#90050.01]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BARBL(	GETPAT1+24, ASKPATB+14
^DPT - [#2]	GETPAT1+23, ASKPATB+13

Label References

Name	Line Occurrences
$$GETBIL	ARBILL1+14
@(	PMTDATA+2, PMTDATA+6
AMOUNT	ARBILL+4
AMOUNT1	AMOUNT+2
ARBILL	PAYDOS+4
ARBILL1	ARBILL+1
ASKPAT	ASKPAT+12
ASKPATB	ASKPATB+23
CARDNM	CARDNM+7
CHECK	CHECK+10, CHECKNM+11
CHECKNM	CHECKNM+8
CLEAN	XIT+1
CLEARVAR	INIT+1, CLEAN+1
CMTS	GETPAT+8
CREDIT	CREDIT+10, CARDNM+10
EN1	EN+5, EN1+5, EN1+11
GB1	ASKPAT+6
GETDATA	EN1+1, SELPMT+4
GETPAT1	GETPAT+1, GETPAT1+16, GETPAT1+33
INIT	GETDATA+3
PAYDOS	GETPAT+4, GETPAT+11
PAYDOS1	PAYDOS+1, PAYDOS1+14
PMTDATA	AMOUNT+5
SELDEPT	GETDATA+4
SELPMT	PMTDATA+9, PMTDATA+10, PMTDATA+12
SELPMT1	SELPMT+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BARAMT	AMOUNT1+2, AMOUNT1+10, CLEARVAR+1!
BARAMTUP	PMTDATA+2, PMTDATA+3, PMTDATA+4!, AMOUNT+1!, AMOUNT+5*, CLEARVAR+1!
BARASK	ARBILL1+21, CLEARVAR+1!
BARBIL	ARBILL1+9, ARBILL1+10, ARBILL1+13, ARBILL1+17, ARBILL1+33, CLEARVAR+2!
BARBL	ARBILL1+6!, GB1+15*, GB1+16, CLEARVAR+2!
BARBLIEN	ARBILL1+6!, ARBILL1+9, ARBILL1+26, ARBILL1+27, ARBILL1+28, ARBILL1+36*, ARBILL1+37, CLEARVAR+2!
BARCK	CASH+5, CHECK+6, CHECK+14, CARDNM+15*, CLEARVAR+3!
BARCMT	CLEARVAR+3!
BARCMTS	CMTS+2, CMTS+8, CLEARVAR+3!
BARCNAME	CASH+5, CHECKNM+14, CARDNM+12*, CLEARVAR+3!
BARCNT	ARBILL1+21, CLEARVAR+3!
BARCPT	CLEARVAR+3!
BARCTYPE	CASH+5, CHECKNM+17, CREDIT+5, CREDIT+14*, CLEARVAR+3!
BARCTYPN	CASH+5, CHECKNM+17, CREDIT+15*, CLEARVAR+3!
BARDAT	SELPMT+8, PMTDATA+12, CASH+3, CHECKNM+15, CARDNM+13, CLEARVAR+4!
BARDEPTE	SELDEPT+6, SELDEPT+13, SELDEPT+15, CLEARVAR+4!
BARDEPTI	GETDATA+7, SELDEPT+13, SELDEPT+14, CLEARVAR+4!
BARDONE	EN1+5, GETPAT+15, INIT+2, CLEAN+3!
BARDOSB	ARBILL1+6!, ARBILL1+32, ARBILL1+34, PAYDOS1+6, CLEARVAR+4!
BARDOSE	ARBILL1+6!, ARBILL1+35*, CLEARVAR+4!
BAREND	ARBILL1+6!, ASKPATB+28, CLEARVAR+5!
BARESIG	EN+1, EN+4, CLEARVAR+5!
BARFILE	EN1+11, CLEARVAR+6!
BARFPASS	ARBILL1+2!, ARBILL1+7!, ARBILL1+11, ARBILL1+14, ARBILL1+16, ARBILL1+17, ARBILL1+19, ARBILL1+21, ARBILL1+25, ARBILL1+26 , ARBILL1+29, ARBILL1+30, ARBILL1+34, ARBILL1+35, ARBILL1+36, ARBILL1+37, CLEARVAR+6!
BARIENS	CLEARVAR+7!
BARITEM	CLEARVAR+7!
BARLIST	CLEARVAR+8!
BARLNG	CLEARVAR+8!
BARNEWPT	ARBILL1+3, ARBILL1+10, ARBILL1+11, ARBILL1+18, GETPAT1+35, ASKPATB+4, ASKPATB+25, ASKPATB+26, ASKPATB+27, CLEARVAR+8!
BARNOTE	INIT+3*, CLEAN+3!
BARNOTE1	INIT+4*, CLEAN+3!
BARNOTE2	INIT+5*, CLEAN+3!
BAROK	ASKPATB+27, CLEARVAR+8!
BARPASS	ARBILL1+7!, ARBILL1+19*
BARPAT	ARBILL1+8!, ARBILL1+12!, ARBILL1+16!, ARBILL1+37, ARBILL1+38, ARBILL1+39, ARBILL1+41, GETPAT1+3, GETPAT1+5, GETPAT1+8 , ASKPAT+2, ASKPATB+3!, ASKPATB+11*, ASKPATB+13, ASKPATB+24!, ASKPATB+27!, ASKPATB+28, CLEARVAR+9!
BARPAT(0	ASKPATB+12, ASKPATB+13, ASKPATB+24!, ASKPATB+27!
>> BARPAT1(0	GETPAT1+22*, GETPAT1+34!
BARPATNM	CLEARVAR+9!
BARPDOS	ARBILL1+32, PAYDOS1+6, PAYDOS1+7, PAYDOS1+15*, CLEARVAR+9!
BARPMTYP	SELPMT1+5, SELPMT1+11*, CASH+5, CHECKNM+17, CARDNM+15, CLEARVAR+9!
BARPPIEN	EN1+13, CLEARVAR+9!
BARPTI1	ARBILL1+37, ARBILL1+38, ARBILL1+41, ARBILL1+42, GETPAT1+5, GETPAT1+6, GETPAT1+8, GETPAT1+15, GETPAT1+21, GETPAT1+23 , GETPAT1+34!, CLEARVAR+9!
BARPTNM1	ARBILL1+38, ARBILL1+42, GETPAT1+6, GETPAT1+23, GETPAT1+34!, CLEARVAR+9!
BARQUIT	EN1+7, CLEARVAR+10!
BARRECPQ	GB1+10, CLEARVAR+10!
BARSTART	ARBILL1+6!, ASKPATB+28, CLEARVAR+10!
BARSTOP	EN+5, EN1+2, EN1+3, EN1+8, EN1+9, GETDATA+2, GETDATA+5, GETDATA+7, SELPMT+2, SELPMT+3 , PMTDATA+1, PMTDATA+7, PMTDATA+8, AMOUNT+3, AMOUNT+4, ARBILL+2, ARBILL+3, PAYDOS+2, PAYDOS+3, GETPAT+2 , GETPAT+3, GETPAT+9, GETPAT+10, SELDEPT+10, SELPMT1+1, SELPMT1+9, CASH+2, CHECK+1, CHECK+12, CHECKNM+1 , CHECKNM+10, CREDIT+1, CREDIT+12, CARDNM+1, CARDNM+9, AMOUNT1+1, AMOUNT1+8, ARBILL1+1, ARBILL1+10, ARBILL1+15 , ARBILL1+22, PAYDOS1+1, PAYDOS1+12, GETPAT1+1, GETPAT1+18, GETPAT1+31, CMTS+6, GB1+12, GB1+13, ASKPAT+4 , ASKPAT+5, ASKPAT+10, ASKPAT+11, ASKPATB+21, INIT+2*, CLEAN+3!
BARSUFX	CLEARVAR+10!
BARTAG	SELPMT+9*, PMTDATA+2, PMTDATA+5, CLEARVAR+11!
BARTAG1	PMTDATA+5*, PMTDATA+6, CLEARVAR+11!
BARTMP	SELDEPT+6, SELDEPT+7, SELPMT1+5, SELPMT1+6, CHECK+6, CHECK+7, CREDIT+5, CREDIT+6, PAYDOS1+9, PAYDOS1+10 , GETPAT1+8, GETPAT1+9, CLEARVAR+11!
BARTMP1	CLEARVAR+11!
BARTMPB	ARBILL1+8!, ARBILL1+27*, ARBILL1+29, ARBILL1+32, CLEARVAR+11!
BARTMPE	ARBILL1+8!, ARBILL1+28*, ARBILL1+30, CLEARVAR+11!
BARTMPF	CLEARVAR+11!
BARUPDT	SELPMT+4, SELPMT+5, PMTDATA+9, PMTDATA+10, PMTDATA+12, PMTDATA+13, AMOUNT+5, AMOUNT+6, ARBILL+4, ARBILL+5 , PAYDOS+4, PAYDOS+5, GETPAT+4, GETPAT+5, GETPAT+11, GETPAT+12, CHECKNM+11, CHECKNM+12, GETPAT1+3, INIT+2* , CLEAN+3!
BARVAR	CLEARVAR+12!
BARZ	ARBILL1+8!, ARBILL1+11, ARBILL1+12!, GETPAT1+7!, GB1+10, GB1+14, GB1+16, ASKPAT+8, ASKPAT+14, ASKPATB+3! , ASKPATB+28, CLEARVAR+13!
BARZERO	CLEARVAR+12!
CARD	CLEARVAR+14!
CARDTYPE	CLEARVAR+14!
DA	SELDEPT+1!, SELPMT1+7!, CREDIT+8!, AMOUNT1+6!, GETPAT1+29!, ASKPATB+19!
DD	SELDEPT+8!
DIC	SELDEPT+1!, SELDEPT+2, SELDEPT+16!, GETPAT1+7!, GETPAT1+10, GETPAT1+14!, ASKPATB+3!, ASKPATB+6*, ASKPATB+9!, CLEARVAR+15!
DIC("A"	SELDEPT+5, GETPAT1+12
DIC("B"	GETPAT1+9, ASKPATB+5
DIC(0	SELDEPT+4, GETPAT1+11, ASKPATB+7*
DICB	ASKPAT+2*, ASKPAT+3, ASKPATB+5, CLEARVAR+15!
DICB2	CLEARVAR+15!
DICB3	CLEARVAR+15!
DIE	CLEARVAR+15!
DIR	SELPMT1+2!, CHECK+3!, CHECKNM+3!, CREDIT+2!, CARDNM+2!, AMOUNT1+3!, PAYDOS1+2!, GETPAT1+25!, CMTS+1!, RESETDIR+1! , ASKPATB+15!
DIR("?"	CHECK+8, CHECKNM+6, CREDIT+7, CARDNM+5
DIR("A"	SELPMT1+4, CHECK+5, CHECKNM+5, CREDIT+4, CARDNM+4, AMOUNT1+5, PAYDOS1+5, GETPAT1+27, CMTS+4, ASKPATB+17
DIR("B"	SELDEPT+7, SELPMT1+6, CHECK+7, CREDIT+6, PAYDOS1+10*
DIR(0	SELPMT1+3, CHECK+4, CHECKNM+4, CREDIT+3, CARDNM+3, AMOUNT1+4, PAYDOS1+4, GETPAT1+26, CMTS+3, ASKPATB+16
DIROUT	EN+5, EN1+3, EN1+9, SELPMT+3, PMTDATA+8, AMOUNT+4, ARBILL+3, PAYDOS+3, GETPAT+3, GETPAT+10 , SELPMT1+2!, SELPMT1+9, CHECK+3!, CHECK+12, CHECKNM+3!, CHECKNM+10, CREDIT+2!, CREDIT+12, CARDNM+2!, CARDNM+9 , AMOUNT1+3!, AMOUNT1+8, ARBILL1+22, PAYDOS1+2!, PAYDOS1+12, GETPAT1+18, GETPAT1+25!, GETPAT1+31, CMTS+1!, CMTS+6 , GB1+13, RESETDIR+1!, ASKPATB+15!, ASKPATB+21, CLEARVAR+15!
DIRUT	EN1+10, SELPMT1+2!, CHECK+3!, CHECKNM+3!, CREDIT+2!, CARDNM+2!, AMOUNT1+3!, PAYDOS1+2!, GETPAT1+25!, CMTS+1! , RESETDIR+1!, ASKPATB+15!, CLEARVAR+15!
DO	SELDEPT+8!
DR	SELDEPT+1!, CLEARVAR+15!
DTOUT	EN+5, EN1+4, EN1+10, GETDATA+6, SELPMT+6, PMTDATA+11, AMOUNT+7, ARBILL+6, PAYDOS+6, GETPAT+6 , GETPAT+13, SELDEPT+11, SELPMT1+2!, SELPMT1+10, CHECK+3!, CHECK+13, CHECKNM+3!, CHECKNM+13, CREDIT+2!, CREDIT+13 , CARDNM+2!, CARDNM+11, AMOUNT1+3!, AMOUNT1+9, ARBILL1+10, ARBILL1+15, ARBILL1+23, PAYDOS1+2!, PAYDOS1+13, GETPAT1+19 , GETPAT1+25!, GETPAT1+32, CMTS+1!, CMTS+7, GB1+13, ASKPAT+7, ASKPAT+13, RESETDIR+1!, ASKPATB+15!, ASKPATB+22 , CLEARVAR+15!
DUOUT	EN+5, EN1+4, EN1+10, GETDATA+6, SELPMT+4, SELPMT+5, PMTDATA+9, PMTDATA+10, AMOUNT+5, AMOUNT+6 , ARBILL+4, ARBILL+5, PAYDOS+4, PAYDOS+5, GETPAT+4, GETPAT+5, GETPAT+11, GETPAT+12, SELDEPT+11, SELPMT1+2! , SELPMT1+10, CHECK+3!, CHECK+13, CHECKNM+3!, CHECKNM+11, CHECKNM+12, CREDIT+2!, CREDIT+13, CARDNM+2!, CARDNM+10 , AMOUNT1+3!, AMOUNT1+9, ARBILL1+10, PAYDOS1+2!, PAYDOS1+13, GETPAT1+19, GETPAT1+25!, GETPAT1+32, CMTS+1!, CMTS+7 , GB1+13, ASKPAT+6, ASKPAT+12, RESETDIR+1!, ASKPATB+15!, ASKPATB+22, CLEARVAR+15!
DUZ(2	GETPAT1+24, ASKPATB+14
HINBLON	INIT+2*, CLEARVAR+16!, CLEAN+3!
HINPTON	INIT+2*, CLEARVAR+16!, CLEAN+3!
>> I	EN+5*
PAYTYPE	CLEARVAR+17!
PMTYP	CLEARVAR+17!
U	SELDEPT+14, SELDEPT+15, ARBILL1+16, ARBILL1+19, ARBILL1+21, ARBILL1+26, ARBILL1+29, ARBILL1+30, ARBILL1+34, ARBILL1+35 , ARBILL1+36, ARBILL1+37, GB1+16
X	SELDEPT+1!, SELDEPT+10, CHECK+10, CHECK+14, CHECKNM+8, CHECKNM+14, CREDIT+10, CARDNM+7, CARDNM+12, AMOUNT1+10 , GETPAT1+15, GETPAT1+16, CMTS+8, GB1+12, ASKPAT+4, ASKPAT+10, CLEARVAR+18!, CLEAN+4!
X1	EN+3, CLEARVAR+18!, CLEAN+4!
Y	SELDEPT+1!, SELDEPT+13, SELDEPT+14, SELDEPT+15, SELPMT1+11, CREDIT+14, PAYDOS1+7*, PAYDOS1+9, PAYDOS1+14, PAYDOS1+15 , GETPAT1+20, GETPAT1+21, GETPAT1+24, GETPAT1+33, GB1+15, ASKPATB+10, ASKPATB+11, ASKPATB+14, ASKPATB+23, CLEARVAR+18! , CLEAN+4!
Y(0	SELPMT+9, CREDIT+15, GETPAT1+22, ASKPATB+12

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPPY01

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: