Routine: BARPPY1A

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

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

Customize PDF page

Package: IHS Accounts Receivable

Routine: BARPPY1A

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: