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

Package: IHS Accounts Receivable

Routine: BARPPY1A


Information

BARPPY1A ; IHS/SD/TMM - PREPAYMENT ENTRY - CONT'D ; 05/11/2010

Source Information

Source file <BARPPY1A.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA Fileman 5 NOW^%DTC  FILE^DICN  (,WP)^DIE  ($$GET1,D)^DIQ  ^DIR  
IHS Accounts Receivable 4 (AMOUNT1,ARBILL1,CMTS,GETPAT1,PAYDOS1,RESETDIR,SELDEPT,SELPMT)^BARPPY01  ($$NEW,$$PAD)^BARPPY1A  BARPSAT^BARUTL0  $$EN^BARVDF  
IHS VA Utilities 1 $$DIC^XBDIQ1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Accounts Receivable 2 BARPPY01  BARPPY1A  

Entry Points

Name Comments DBIA/ICR reference
HINBLOFF ; Turn off hilight for DOS fields
UPDT ; Allow user to modify data entered
RECAP ; Display data for user to review and select next step
HINPTOFF ; Turn off Hilight when PT NAME field
HINBLON ; Hilight DOS fields
HINPTON ; Hilight when PT NAME field
FMQ ; Prompt F/M/Q
PAD(BARVAR,BARLNG) ; EP
; BARVAR = data
; BARLNG = length
; Right justify, zero fill value BARVAR for length BARLNG
PAYTYPE(PMTYP) ;
FDATA ; Add Pre-Payment data
CMTFILE ;EP
FILE ;File prepayment
; Get new IEN for ^BARPPAY
CKOUT() ; Check DIR values
CMT
NEW() ;EP - extrensic call to establish a new prepayment record
; returns 0-lock on file, fm-dt/sec -IEN ; -1 not added
CARDTYPE(CARD) ;

External References

Name Field # of Occurrence
NOW^%DTC FDATA+8
AMOUNT1^BARPPY01 UPDT+25
ARBILL1^BARPPY01 UPDT+37
CMTS^BARPPY01 UPDT+43
GETPAT1^BARPPY01 UPDT+41
PAYDOS1^BARPPY01 UPDT+21
RESETDIR^BARPPY01 FMQ+5, UPDT+4
SELDEPT^BARPPY01 UPDT+28
SELPMT^BARPPY01 UPDT+32
$$NEW^BARPPY1A FILE+2
$$PAD^BARPPY1A FDATA+5
BARPSAT^BARUTL0 FDATA+3
$$EN^BARVDF HINPTON+2, HINPTOFF+1, HINBLON+2, HINBLOFF+1, RECAP+2, RECAP+3, FMQ+1, FMQ+2
FILE^DICN NEW+10
^DIE FDATA+26
WP^DIE CMTFILE+2, CMTFILE+3
$$GET1^DIQ RECAP+21
D^DIQ RECAP+5, RECAP+27
^DIR FMQ+9, FMQ+33, FMQ+47, UPDT+13
$$DIC^XBDIQ1 FDATA+25

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!,"A/R PREPAYMENT FILE LOCKED, try again",!!
  • Line Location: NEW+4
Function Call: WRITE
  • Prompt: $$EN^BARVDF("HIN")
  • Line Location: HINPTON+2
Function Call: WRITE
  • Prompt: $$EN^BARVDF("HIF")
  • Line Location: HINPTOFF+1
Function Call: WRITE
  • Prompt: $$EN^BARVDF("HIN")
  • Line Location: HINBLON+2
Function Call: WRITE
  • Prompt: "**",$$EN^BARVDF("HIF")
  • Line Location: HINBLOFF+1
Function Call: WRITE
  • Prompt: $$EN^BARVDF("IOF"),!
  • Line Location: RECAP+2
Function Call: WRITE
  • Prompt: $$EN^BARVDF("CLR")
  • Line Location: RECAP+3
Function Call: WRITE
  • Prompt: !,"1)",?4,"PAYMENT FOR DOS:",?22,Y
  • Line Location: RECAP+7
Function Call: WRITE
  • Prompt: !,"2)",?4,"CREDIT: ",?22,"$",$FN(BARAMT,",",2)
  • Line Location: RECAP+9
Function Call: WRITE
  • Prompt: !!,"3)",?4,"DEPARTMENT:",?22,BARDEPTE
  • Line Location: RECAP+10
Function Call: WRITE
  • Prompt: !!,"4)",?4,"PAYMENT TYPE:",?22,$P(BARTMP,U)
  • Line Location: RECAP+15
Function Call: WRITE
  • Prompt: !,?4,$P(BARTMP,U,2),?22,BARTMP1
  • Line Location: RECAP+18
Function Call: WRITE
  • Prompt: !,?4,$P(BARTMP,U,3),?22,BARTMP1
  • Line Location: RECAP+20
Function Call: WRITE
  • Prompt: !!,"5)",?4,"A/R BILL NUMBER:",?22,$$GET1^DIQ(90050.01,BARBLIEN_",",.01,"E")
  • Line Location: RECAP+21
Function Call: WRITE
  • Prompt: !,?4,"PATIENT NAME:",?22,$S(+BARPAT:$P(^DPT(BARPAT,0),U),1:"")
  • Line Location: RECAP+23
Function Call: WRITE
  • Prompt: !,?4,"BILL DOS:",?22,Y
  • Line Location: RECAP+28
Function Call: WRITE
  • Prompt: !!,"6)",?4,"PATIENT:",?22,BARPTNM1
  • Line Location: RECAP+31
Function Call: WRITE
  • Prompt: !!,"7)",?4,"COMMENTS:"
  • Line Location: CMT+10
Function Call: WRITE
  • Prompt: " "
  • Line Location: CMT+13
Function Call: WRITE
  • Prompt: " "
  • Line Location: CMT+14
Function Call: WRITE
  • Prompt: BARCMT(I)
  • Line Location: CMT+15
Function Call: WRITE
  • Prompt: !!,?4,$$EN^BARVDF("HIN"),BARNOTE1,$$EN^BARVDF("HIF")
  • Line Location: FMQ+1
Function Call: WRITE
  • Prompt: $$EN^BARVDF("HIN"),!!,?4,BARNOTE2,$$EN^BARVDF("HIF")
  • Line Location: FMQ+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: FMQ+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: FMQ+24
Function Call: WRITE
  • Prompt: !!
  • Line Location: FMQ+41
Function Call: WRITE
  • Prompt: !!!,?9,"RECEIPT #:",?22,BARCPT
  • Line Location: CMTFILE+4
Function Call: WRITE
  • Prompt: !!
  • Line Location: UPDT+3
Routine Call
  • DIE
  • Line Location:
    • FDATA+26
Routine Call
  • DIR
  • Line Location:
    • FMQ+9
    • FMQ+33
    • FMQ+47
    • UPDT+13
Routine Call
  • DIE
  • Line Location:
    • CMTFILE+2
    • CMTFILE+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^BARBL(2906 - [#90050.01] GET1^DIQ
^BARPPAY(2906 - [#90050.06] WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BARPPAY( NEW+2, NEW+12
^DPT - [#2] RECAP+23

Label References

Name Line Occurrences
FMQ FMQ+10, FMQ+38, FMQ+49
HINBLOFF RECAP+8, RECAP+29
HINBLON RECAP+6, RECAP+25
HINPTOFF RECAP+24, RECAP+32
HINPTON RECAP+22, RECAP+30
RECAP FMQ+20, FMQ+36, UPDT+44
UPDT FMQ+53

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % FDATA+9
>> BARAMT RECAP+9, UPDT+23
>> BARBLIEN RECAP+21, RECAP+22, RECAP+25, FMQ+17
>> BARCK RECAP+16
BARCMT CMT+1!, CMT+2*, CMT+9!, CMT+11*
BARCMT( CMT+7*, CMT+8*, CMT+11, CMT+12, CMT+13, CMT+14, CMT+15
BARCMT(1 CMT+4*, CMT+9
BARCMT(5 CMT+12*, CMT+14, CMT+16!
>> BARCMTS CMT+2, CMT+5
>> BARCNAME RECAP+19
>> BARCPT FDATA+5*, CMTFILE+4
>> BARCTYPN RECAP+16
>> BARDAT UPDT+30, UPDT+31*
>> BARDEPTE RECAP+10
>> BARDEPTI UPDT+27
>> BARDONE FMQ+50*, FMQ+51, UPDT+15*, UPDT+45*
>> BARDOSB HINBLON+1, RECAP+26, FMQ+1
>> BARFILE FMQ+3*, FMQ+12*, FMQ+15, FMQ+20, FMQ+23, FMQ+35, FMQ+36, FMQ+37, FMQ+38, FMQ+40
, FMQ+48, FMQ+49
BARFPASS UPDT+34, UPDT+36!
>> BARIENS CMTFILE+1*, CMTFILE+2, CMTFILE+3
>> BARITEM UPDT+2*, UPDT+17*, UPDT+18, UPDT+23, UPDT+27, UPDT+30, UPDT+34, UPDT+39, UPDT+43
>> BARLIST UPDT+2*, UPDT+5*, UPDT+6*, UPDT+7*, UPDT+8*, UPDT+9*, UPDT+10
BARLNG PAD~, PAD+5, PAD+7
>> BARNOTE1 FMQ+1
>> BARNOTE2 FMQ+2
>> BARPAT HINPTON+1, RECAP+23, FMQ+2, FMQ+18
>> BARPDOS HINBLON+1, RECAP+4, FMQ+1, UPDT+18, UPDT+20*
>> BARPDOSE FDATA+9*
>> BARPMTYP RECAP+11, RECAP+12, RECAP+13, RECAP+14, RECAP+16, RECAP+19
>> BARPPIEN FILE+2*, FDATA+5, FDATA+24, CMTFILE+1
>> BARPSAT( FDATA+3, FDATA+4
>> BARPTI1 HINPTON+1, FMQ+2, FMQ+17, FMQ+18
>> BARPTNM1 RECAP+31, UPDT+39
>> BARQUIT FMQ+37*, FMQ+48*
>> BARSTOP CKOUT+1, RECAP+1, UPDT+1, UPDT+14*, UPDT+18, UPDT+22*, UPDT+23, UPDT+26*, UPDT+27, UPDT+29*
, UPDT+30, UPDT+33*, UPDT+34, UPDT+38*, UPDT+39, UPDT+42*
>> BARSUFX FDATA+4*, FDATA+5
>> BARTMP RECAP+11*, RECAP+12*, RECAP+13*, RECAP+14*, RECAP+15, RECAP+17, RECAP+18, RECAP+20
>> BARTMP1 RECAP+16*, RECAP+18, RECAP+19*, RECAP+20
>> BARTMPF FMQ+16*, FMQ+17*, FMQ+18*, FMQ+20, FMQ+23, FMQ+34*, FMQ+35, FMQ+36
>> BARUPDT FMQ+52*, FMQ+54*
BARVAR PAD~, PAD+6*, PAD+7*, PAD+8
BARZERO PAD+4!, PAD+5*, PAD+6
CARD CARDTYPE~, CARDTYPE+1
>> CARDTYPE CARDTYPE+1*, CARDTYPE+2
DA NEW+6!, NEW+11!, FMQ+8!, FDATA+1!, FDATA+24*, UPDT+12!
DD NEW+9!
DIC NEW+6!, NEW+7*
DIC(0 NEW+8*
DIE NEW+11!, FDATA+1!, FDATA+25*
>> DIR("A" FMQ+7*, FMQ+25*, FMQ+26*, FMQ+27*, FMQ+28*, FMQ+29*, FMQ+30*, FMQ+42*, FMQ+43*, FMQ+44*
, UPDT+11*
>> DIR("B" FMQ+31*, FMQ+45*
>> DIR(0 FMQ+6*, FMQ+32*, FMQ+46*, UPDT+10*
>> DIROUT CKOUT+1, FMQ+10, UPDT+14, UPDT+18, UPDT+22, UPDT+23, UPDT+26, UPDT+27, UPDT+29, UPDT+30
, UPDT+33, UPDT+34, UPDT+38, UPDT+39, UPDT+42
DIRUT UPDT+16!
DO NEW+9!
DR NEW+6!, NEW+11!, FDATA+1!, FDATA+6*, FDATA+10*, FDATA+11*, FDATA+12*, FDATA+13*, FDATA+14*, FDATA+15*
, FDATA+16*, FDATA+17*, FDATA+18*, FDATA+19*, FDATA+20*, FDATA+21*, FDATA+22*
>> DTOUT CKOUT+1, FMQ+11, UPDT+15, UPDT+18, UPDT+23, UPDT+27, UPDT+30, UPDT+34, UPDT+39
>> DUOUT CKOUT+1, FMQ+10, UPDT+15, UPDT+18, UPDT+23, UPDT+27, UPDT+30, UPDT+34, UPDT+39
DUZ(2 NEW+2, NEW+12, FDATA+3, FDATA+4
>> HINBLON HINBLON+3*, HINBLOFF+2*, RECAP+8, RECAP+29
>> HINPTON HINPTON+3*, HINPTOFF+2*, RECAP+24, RECAP+32
>> I NEW+2*, CMT+11*, CMT+12, CMT+13, CMT+14, CMT+15, FMQ+51*, UPDT+18*, UPDT+23*, UPDT+27*
, UPDT+30*, UPDT+34*, UPDT+39*
L CMT+3~*, CMT+7, CMT+8*
>> PAYTYPE PAYTYPE+1*, PAYTYPE+2
PMTYP PAYTYPE~, PAYTYPE+1
SP CMT+3~*, CMT+5, CMT+6
U RECAP+15, RECAP+17, RECAP+18, RECAP+20, RECAP+23
W CMT+3~, CMT+5*, CMT+6
WORD CMT+3~, CMT+5*, CMT+6*, CMT+7, CMT+8
>> X NEW+2*, NEW+3, FMQ+12, UPDT+17
>> Y NEW+13, RECAP+4*, RECAP+7, RECAP+26*, RECAP+28, FMQ+34, FMQ+37, FMQ+38, FMQ+48, FMQ+49
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