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

Package: IHS Accounts Receivable

Routine: BARPPY01


Information

BARPPY01 ; IHS/SD/TMM - PREPAYMENT ENTRY MAY 11,2010 ; 05/11/2010

Source Information

Source file <BARPPY01.m>

Call Graph

Call Graph Total: 8

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  

Caller Graph

Caller Graph Total: 3

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