Routine: IBUCVM

Package	Total	Call Graph
Integrated Billing	5	SITE^IBAUTL ($$GETELGP,$$GETOK,$$GETVST,$$PRTSARUR,$$PRTVSTSA)^IBECEA36 (ADD,UPDATE)^IBECEA38 $$PT^IBEFUNC $$INDCHK^IBINUT1
Kernel	3	$$FMTE^XLFDT $$UP^XLFSTR $$KCHK^XUSRB
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Registration	1	(DEM,KVAR)^VADPT

Package	Total	Caller Graph
Integrated Billing	1	IBUC VISIT MAINT

Name	Comments	DBIA/ICR reference
ENTER	; menu option main entry point
LOOP
MLOOP	; Entry/Loop tag to allow user to stay with the defined maintenance utility.
EX	;
ASKDT(IBPRMT)	;Date input
PRTVSTS(IBDFN,IBYR)	; Get the list of visits for the calendar year
PAUSE(IBEND)
CHKPAUSE	;Check pause
SCR()
LINE(IBC,IBN)
FRM(IBLBL,IBCUT)	;
GETMAINT()	;
ADDVST(IBDFN)	; Add a new UC visit for the patient
EDITVST(IBLCT)	; Add a new UC visit for the patient
GETVST()	;
GETSTAT(IBDFN,IBVST,IBELPG,IBIND,IBOVRFLG)	;Ask the user for the Status of the Visit
GETBILL()	;Ask the user for a Bill Number
CHKBILL(IBBLNO)	; Validate that the Bill Number is a valid input
GETCOMM(IBSTAT,IBELPG,IBIND,IBOVRFLG)	; Ask the user for the status reason (or default it if Status is FREE)
GETVISIT(IBLCT)	; Get the IEN for visit to be edited.
DISPCHG(IBSTAT,IBBILL,IBREAS)	;Redisplay the changes requested

Name	Field # of Occurrence
^DIC	LOOP+7
$$GET1^DIQ	EDITVST+17, EDITVST+18, EDITVST+25, EDITVST+27
^DIR	ASKDT+5, PAUSE+8, GETMAINT+10, GETVST+11, GETSTAT+20, GETSTAT+29, GETSTAT+33, GETBILL+8, GETCOMM+23, GETVISIT+5
SITE^IBAUTL	ADDVST+8
$$GETELGP^IBECEA36	ADDVST+13, EDITVST+31
$$GETOK^IBECEA36	ADDVST+23, EDITVST+48
$$GETVST^IBECEA36	GETSTAT+61
$$PRTSARUR^IBECEA36	GETSTAT+44
$$PRTVSTSA^IBECEA36	GETSTAT+50
ADD^IBECEA38	ADDVST+25
UPDATE^IBECEA38	EDITVST+52
$$PT^IBEFUNC	PRTVSTS+25
$$INDCHK^IBINUT1	ADDVST+14, EDITVST+32
DEM^VADPT	LOOP+8
KVAR^VADPT	EX+1
$$FMTE^XLFDT	PRTVSTS+34, PRTVSTS+35, PRTVSTS+36, EDITVST+25
$$UP^XLFSTR	ADDVST+20, EDITVST+41
$$KCHK^XUSRB	GETSTAT+25

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOOP+7
Function Call: WRITE	Prompt: !! Line Location: MLOOP+5
Function Call: WRITE	Prompt: " ",Y Line Location: ASKDT+6
Function Call: WRITE	Prompt: @IOF Line Location: PRTVSTS+24
Function Call: WRITE	Prompt: !,"Urgent Care Visits in "_IBYR_" for "_$P(IBPT,U),! Line Location: PRTVSTS+26
Function Call: WRITE	Prompt: "No Urgent Care Visits during this calendar year." Line Location: PRTVSTS+28
Function Call: WRITE	Prompt: !?5,$J(IBN,2),?10,$$FMTE^XLFDT($P(IBD,U,4))_" "_$S($P(IBD,U,5)=1:"F",$P(IBD,U,5)=3:"R",$P(IBD,U,5)=4:"V",1:"") Line Location: PRTVSTS+34
Function Call: WRITE	Prompt: ?30,$J(IBN,2),?35,$$FMTE^XLFDT($P(IBD,U,4))_" "_$S($P(IBD,U,5)=1:"F",$P(IBD,U,5)=3:"R",$P(IBD,U,5)=4:"V",1:"") Line Location: PRTVSTS+35
Function Call: WRITE	Prompt: ?55,$J(IBN,2),?60,$$FMTE^XLFDT($P(IBD,U,4))_" "_$S($P(IBD,U,5)=1:"F",$P(IBD,U,5)=3:"R",$P(IBD,U,5)=4:"V",1:"") Line Location: PRTVSTS+36
Function Call: WRITE	Prompt: ! Line Location: PAUSE+5
Function Call: WRITE	Prompt: @IOF Line Location: PAUSE+11
Function Call: WRITE	Prompt: @IOF Line Location: CHKPAUSE+1
Function Call: WRITE	Prompt: ! Line Location: CHKPAUSE+1
Function Call: WRITE	Prompt: IBL Line Location: LINE+4
Function Call: WRITE	Prompt: !!,"Date of Visit",?16,"Station",?39,"Status",?51,"Bill No.",?64,"Reason" Line Location: EDITVST+23
Function Call: WRITE	Prompt: !,"-------------",?16,"-------",?39,"------",?51,"--------",?64,"------" Line Location: EDITVST+24
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($P(IBD,U,4)),?16,IBVSITE,?39,$$GET1^DIQ(351.82,IBIEN_",",.04) Line Location: EDITVST+25
Function Call: WRITE	Prompt: ?51,$P(IBD,U,6) Line Location: EDITVST+26
Function Call: WRITE	Prompt: ?64,$E($$GET1^DIQ(351.82,IBIEN_",",.06),1,19) Line Location: EDITVST+27
Function Call: WRITE	Prompt: !! Line Location: EDITVST+28
Function Call: WRITE	Prompt: !!,"Per the MISSION Act of 2018, this patient is ineligible for a Free" Line Location: GETSTAT+39
Function Call: WRITE	Prompt: !,"Urgent Care Visit.",! Line Location: GETSTAT+40
Function Call: WRITE	Prompt: !!,"Please send this for review by RUR." Line Location: GETSTAT+46
Function Call: WRITE	Prompt: !!,"Per the MISSION Act of 2018, this patient is ineligible for a Free" Line Location: GETSTAT+53
Function Call: WRITE	Prompt: !,"Urgent Care Visit.",! Line Location: GETSTAT+54
Function Call: WRITE	Prompt: !!,"Per the Mission Act of 2018, this patient has already used their 3 free" Line Location: GETSTAT+66
Function Call: WRITE	Prompt: !,"visits for the calendar year.",! Line Location: GETSTAT+67
Function Call: WRITE	Prompt: "The following updates will be made to this visit:" Line Location: DISPCHG+2
Function Call: WRITE	Prompt: !! Line Location: DISPCHG+3
Routine Call	DIC Line Location: LOOP+7
Routine Call	DIR Line Location: ASKDT+5 PAUSE+8 GETMAINT+10 GETVST+11 GETSTAT+20 GETSTAT+29 GETSTAT+33 GETBILL+8 GETCOMM+23 GETVISIT+5

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^IBUC(351.82 - [#351.82]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^IB("ABIL"	CHKBILL+8
^IBUC(351.82 - [#351.82]	PRTVSTS+6, PRTVSTS+7
^TMP($J	LOOP+3!, MLOOP+16!, PRTVSTS+14, PRTVSTS+18, PRTVSTS+20, PRTVSTS+22, PRTVSTS+33, PRTVSTS+35, PRTVSTS+36, ADDVST+10 , EDITVST+10, GETSTAT+63!

Name	Line Occurrences
$$ASKDT	LOOP+10
$$GETBILL	ADDVST+18, EDITVST+39
$$GETCOMM	ADDVST+21, EDITVST+44
$$GETMAINT	MLOOP+6
$$GETSTAT	ADDVST+16, EDITVST+35
$$GETVISIT	EDITVST+6
$$GETVST	ADDVST+9
$$PRTVSTS	MLOOP+2
$$SCR	PAUSE
ADDVST	MLOOP+9
CHKPAUSE	PRTVSTS+31
EDITVST	MLOOP+10
EX	LOOP+7
LINE	PRTVSTS+27, CHKPAUSE+1
LOOP	LOOP+11, MLOOP+7, MLOOP+14
MLOOP	MLOOP+17
PAUSE	MLOOP+12, CHKPAUSE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ENTER+2~
DFN	ENTER+2~, LOOP!, LOOP+8*, MLOOP+2, MLOOP+9, ADDVST+13, ADDVST+14, ADDVST+16, EDITVST+31, EDITVST+32 , EDITVST+35
DIC	ENTER+2~, LOOP!, LOOP+7*
DIC(0	LOOP+7*
DIR	ENTER+2~, ASKDT+1~, PAUSE+1~, PAUSE+9!, GETMAINT+3~, GETMAINT+10!, GETVST+3~, GETVST+11!, GETSTAT+2~, GETSTAT+20! , GETSTAT+26!, GETBILL+2~, GETBILL+8!, GETCOMM+7~, GETCOMM+23!, GETVISIT+5!
DIR("?"	GETMAINT+8, GETVST+8, GETSTAT+12, GETSTAT+18, GETBILL+6, GETCOMM+21, GETVISIT+4*
DIR("A"	ASKDT+2, PAUSE+6, GETMAINT+6, GETVST+6, GETSTAT+10, GETSTAT+16, GETSTAT+28, GETSTAT+32, GETBILL+4, GETCOMM+19 , GETVISIT+2*
DIR("B"	ASKDT+3*
DIR(0	ASKDT+4, PAUSE+7, GETMAINT+7, GETVST+7, GETSTAT+11, GETSTAT+17, GETSTAT+28, GETSTAT+32, GETBILL+5, GETCOMM+20 , GETVISIT+3*
DIROUT	ENTER+2~, ASKDT+1~, PAUSE+1~, GETMAINT+3~, GETVST+3~, GETSTAT+2~, GETBILL+2~, GETCOMM+7~
DIRUT	ENTER+2~, ASKDT+1~, ASKDT+5, PAUSE+1~, GETMAINT+3~, GETVST+3~, GETSTAT+2~, GETSTAT+30, GETSTAT+34, GETBILL+2~ , GETCOMM+7~
DPTNOFZY	LOOP+6~*
DT	GETVST+7
DTOUT	ENTER+2~, PAUSE+1~, GETMAINT+3~, GETMAINT+11, GETVST+3~, GETVST+12, GETSTAT+2~, GETSTAT+22, GETSTAT+30, GETSTAT+34 , GETBILL+2~, GETBILL+9, GETCOMM+7~, GETCOMM+24, GETVISIT+6
DUOUT	ENTER+2~, PAUSE+1~, PAUSE+10, GETMAINT+3~, GETMAINT+11, GETVST+3~, GETVST+12, GETSTAT+2~, GETSTAT+22, GETSTAT+30 , GETSTAT+34, GETBILL+2~, GETBILL+9, GETCOMM+7~, GETCOMM+24, GETVISIT+6
IBAE	ENTER+2~, MLOOP+6*, MLOOP+7, MLOOP+9, MLOOP+10, GETSTAT+9, GETSTAT+15
IBBILL	ADDVST+2~, ADDVST+7, ADDVST+18, ADDVST+19, ADDVST+20, ADDVST+25, EDITVST+2~, EDITVST+5, EDITVST+39, EDITVST+40 , EDITVST+41, EDITVST+52, DISPCHG~
IBBLIEN	CHKBILL+4~, CHKBILL+8*, CHKBILL+9
IBBLNO	CHKBILL~, CHKBILL+6, CHKBILL+7, CHKBILL+8
IBC	PRTVSTS+2~, PRTVSTS+4, PRTVSTS+13, PRTVSTS+14, PRTVSTS+28, PRTVSTS+29, LINE~, LINE+1*, LINE+3
IBCOMM	ADDVST+2~, ADDVST+7, ADDVST+21, ADDVST+22, ADDVST+25, EDITVST+2~, EDITVST+5, EDITVST+44, EDITVST+45, EDITVST+52
IBCUT	FRM~, FRM+1
IBD	PRTVSTS+2~, PRTVSTS+7, PRTVSTS+8, PRTVSTS+9, PRTVSTS+10, PRTVSTS+14, PRTVSTS+33, PRTVSTS+34, PRTVSTS+35, PRTVSTS+36 , EDITVST+2~, EDITVST+10*, EDITVST+11, EDITVST+12, EDITVST+13, EDITVST+16, EDITVST+17, EDITVST+18, EDITVST+25, EDITVST+26 , EDITVST+27
IBDFN	PRTVSTS~, PRTVSTS+6, PRTVSTS+25, ADDVST~, ADDVST+25, GETSTAT~, GETSTAT+61
IBDT	PRTVSTS+2~, PRTVSTS+10*, PRTVSTS+11, PRTVSTS+14
IBDUPFLG	ADDVST+2~, ADDVST+7, ADDVST+10, ADDVST+23
IBELPG	ADDVST+2~, ADDVST+13, ADDVST+16, ADDVST+21, EDITVST+2~, EDITVST+31, EDITVST+35, EDITVST+44, GETSTAT~, GETSTAT+25 , GETSTAT+38, GETSTAT+42, GETSTAT+65, GETCOMM~, GETCOMM+11, GETCOMM+12
IBEND	PAUSE~, PAUSE+6, PAUSE+11
IBERROR	ADDVST+2~, ADDVST+5, ADDVST+25, EDITVST+2~, EDITVST+5, EDITVST+52
IBFRCT	GETSTAT+2~, GETSTAT+6, GETSTAT+61, GETSTAT+65
IBI	PRTVSTS+2~, PRTVSTS+6, PRTVSTS+7, PRTVSTS+14, PRTVSTS+30, PRTVSTS+32, PRTVSTS+35, PRTVSTS+36
IBIEN	EDITVST+2~, EDITVST+12*, EDITVST+25, EDITVST+27, EDITVST+52
IBIND	ADDVST+2~, ADDVST+14, ADDVST+16, ADDVST+21, EDITVST+2~, EDITVST+32, EDITVST+35, EDITVST+44, GETSTAT~, GETSTAT+25 , GETSTAT+38, GETSTAT+42, GETCOMM~, GETCOMM+12
IBINST	ADDVST+2~, ADDVST+7*
IBJ	PAUSE+1~, PAUSE+5*
IBL	LINE~, LINE+3*, LINE+4
IBLBL	FRM~, FRM+1*, FRM+2
IBLCT	ENTER+2~, LOOP!, MLOOP+2, MLOOP+10, PRTVSTS+17, PRTVSTS+21*, PRTVSTS+22, PRTVSTS+29, PRTVSTS+37, EDITVST~ , EDITVST+6, GETVISIT~, GETVISIT+3
IBLDT	PRTVSTS+2~, PRTVSTS+17, PRTVSTS+18, PRTVSTS+20, PRTVSTS+22
IBLDT1	PRTVSTS+2~, PRTVSTS+19, PRTVSTS+20, PRTVSTS+22
IBLTCX	LOOP!
IBN	PRTVSTS+2~, PRTVSTS+32, PRTVSTS+33, PRTVSTS+34, PRTVSTS+35, PRTVSTS+36, LINE~, LINE+2, LINE+3
IBOK	ADDVST+23, ADDVST+24, EDITVST+2~, EDITVST+48, EDITVST+49
IBOVRFLG	ADDVST+2~, ADDVST+16, ADDVST+21, EDITVST+2~, EDITVST+5, EDITVST+35, EDITVST+44, GETSTAT~, GETSTAT+5, GETSTAT+35* , GETSTAT+38, GETSTAT+65, GETCOMM~, GETCOMM+13
IBPRMT	ASKDT~, ASKDT+2
IBPT	PRTVSTS+2~, PRTVSTS+25*, PRTVSTS+26
IBQUIT	ENTER+2~, ENTER+4, MLOOP+14, PRTVSTS+2~, PRTVSTS+30, PRTVSTS+31, PAUSE+2, PAUSE+10*, CHKPAUSE+1
IBREAS	DISPCHG~
IBRUR	GETSTAT+2~, GETSTAT+44*, GETSTAT+45
IBSCSA	GETSTAT+2~, GETSTAT+50*, GETSTAT+52
IBSITE	ADDVST+2~, ADDVST+25
IBSITECD	EDITVST+2~, EDITVST+17*, EDITVST+19
IBSITENM	EDITVST+2~, EDITVST+18*, EDITVST+19
IBSTAT	PRTVSTS+2~, PRTVSTS+9, ADDVST+2~, ADDVST+7, ADDVST+16, ADDVST+17, ADDVST+18, ADDVST+21, ADDVST+25, EDITVST+2~ , EDITVST+5, EDITVST+35*, EDITVST+36, EDITVST+39, EDITVST+44, EDITVST+52, GETCOMM~, GETCOMM+11, GETCOMM+12, GETCOMM+13 , GETCOMM+16, DISPCHG~
IBV	PRTVSTS+2~, PRTVSTS+29*, PRTVSTS+30, PRTVSTS+35, PRTVSTS+36
IBVISIT	EDITVST+2~, EDITVST+6*, EDITVST+7, EDITVST+10
IBVSITE	EDITVST+2~, EDITVST+5, EDITVST+19, EDITVST+25
IBVST	ADDVST+2~, ADDVST+7, ADDVST+9, ADDVST+10, ADDVST+11, ADDVST+13, ADDVST+14, ADDVST+16, ADDVST+25, EDITVST+2~ , EDITVST+13*, EDITVST+31, EDITVST+32, EDITVST+35, GETSTAT~, GETSTAT+61
IBVYR	PRTVSTS+2~, PRTVSTS+11*, PRTVSTS+12
IBY	GETSTAT+2~, GETSTAT+23, GETSTAT+25, GETSTAT+38, GETSTAT+47, GETSTAT+52, GETSTAT+55*, GETSTAT+58, GETSTAT+61, GETSTAT+65 , GETSTAT+68
IBYR	ENTER+2~, LOOP+10*, LOOP+11, MLOOP+2, PRTVSTS~, PRTVSTS+12, PRTVSTS+26
IBZ	PRTVSTS+2~
IOF	PRTVSTS+24, PAUSE+11, CHKPAUSE+1
IOSL	PAUSE+4, CHKPAUSE+1
IOSL2	PAUSE+1~, PAUSE+4*, PAUSE+5
IOST	PAUSE+3, SCR
U	PRTVSTS+9, PRTVSTS+10, PRTVSTS+14, PRTVSTS+26, PRTVSTS+34, PRTVSTS+35, PRTVSTS+36, EDITVST+12, EDITVST+13, EDITVST+16 , EDITVST+17, EDITVST+18, EDITVST+25, EDITVST+26, EDITVST+27, GETSTAT+61
VADP	LOOP!
X	ENTER+2~, LOOP!, ASKDT+1~, GETMAINT+3~, GETVST+3~, GETSTAT+2~, GETBILL+2~, GETCOMM+7~
Y	ENTER+2~, LOOP!, LOOP+7, LOOP+8, ASKDT+1~, ASKDT+6, ASKDT+7, PAUSE+1~, GETMAINT+3~, GETMAINT+11 , GETMAINT+12, GETMAINT+13, GETVST+3~, GETVST+12, GETVST+13, GETSTAT+2~, GETSTAT+22, GETSTAT+23, GETSTAT+25, GETSTAT+30* , GETSTAT+34*, GETSTAT+35, GETBILL+2~, GETBILL+10, GETCOMM+7~, GETCOMM+25, GETVISIT+6, GETVISIT+8

Customize PDF page

Package: Integrated Billing

Routine: IBUCVM

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: