Routine: IBMHVM

Information

IBMHVM ;EDE/YMG - Mental Health Visit Maintenance; 07/06/2023

Package	Total	Call Graph
Integrated Billing	5	SITE^IBAUTL $$GETOK^IBECEA36 ($$ISCDCANC,$$NUMVSTCK,$$OECHK,ADDVST,UPDVST)^IBECEAMH $$PT^IBEFUNC $$INDCHK^IBINUT1
VA FileMan	3	^DIC $$GET1^DIQ ^DIR
Kernel	1	$$FMTE^XLFDT
Registration	1	(DEM,KVAR)^VADPT

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Integrated Billing	1	IBMH VISIT MAINT

Entry Points

Name	Comments	DBIA/ICR reference
EN	; 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 MH visit for the patient
EDITVST(IBLCT)	; Edit an existing MH visit for the patient
GETVST()	;
GETSTAT(IBDFN,IBVST,IBIND,IBOVRFLG)	;Ask the user for the Status of the Visit
GETCOMM(IBSTAT,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
GETBILL(IBDFN,IBVSTDT)	; get bill # from file 350
CHKDUP(IBSTAT,IBVSTIEN)	; check for duplicate visit status

External References

Name	Field # of Occurrence
^DIC	LOOP+5
$$GET1^DIQ	EDITVST+19, EDITVST+20, EDITVST+26, EDITVST+28, GETVST+3, GETBILL+10, CHKDUP+9
^DIR	ASKDT+5, PAUSE+8, GETMAINT+7, GETVST+7, GETSTAT+21, GETCOMM+20, GETVISIT+5
SITE^IBAUTL	ADDVST+4
$$GETOK^IBECEA36	ADDVST+12, EDITVST+37
$$ISCDCANC^IBECEAMH	GETBILL+12
$$NUMVSTCK^IBECEAMH	GETSTAT+27
$$OECHK^IBECEAMH	GETBILL+13
ADDVST^IBECEAMH	ADDVST+13
UPDVST^IBECEAMH	EDITVST+40
$$PT^IBEFUNC	PRTVSTS+24
$$INDCHK^IBINUT1	ADDVST+7, EDITVST+30
DEM^VADPT	LOOP+6
KVAR^VADPT	EX+1
$$FMTE^XLFDT	PRTVSTS+33, PRTVSTS+34, PRTVSTS+35, EDITVST+26, GETVST+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LOOP+5
Function Call: WRITE	Prompt: !! Line Location: MLOOP+4
Function Call: WRITE	Prompt: " ",Y Line Location: ASKDT+6
Function Call: WRITE	Prompt: @IOF Line Location: PRTVSTS+23
Function Call: WRITE	Prompt: !,"Mental Health Visits in "_IBYR_" for "_$P(IBPT,U),! Line Location: PRTVSTS+25
Function Call: WRITE	Prompt: "No Mental Health Visits during this calendar year." Line Location: PRTVSTS+27
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+34
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+35
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: !,"No Cleland-Dole eligible charge was found for this date." Line Location: ADDVST+9
Function Call: WRITE	Prompt: !!,"Unable to edit this visit. The visit data is from another VAMC." Line Location: EDITVST+14
Function Call: WRITE	Prompt: !,"Please select another visit to edit." Line Location: EDITVST+15
Function Call: WRITE	Prompt: !!,"Date of Visit",?16,"Station",?39,"Status",?51,"Bill No.",?64,"Reason" Line Location: EDITVST+24
Function Call: WRITE	Prompt: !,"-------------",?16,"-------",?39,"------",?51,"--------",?64,"------" Line Location: EDITVST+25
Function Call: WRITE	Prompt: !,$$FMTE^XLFDT($P(IBD,U,4)),?16,IBVSITE,?39,$$GET1^DIQ(351.83,IBVSTIEN,.04) Line Location: EDITVST+26
Function Call: WRITE	Prompt: ?51,$P(IBD,U,6) Line Location: EDITVST+27
Function Call: WRITE	Prompt: ?64,$E($$GET1^DIQ(351.83,IBVSTIEN,.06),1,19) Line Location: EDITVST+28
Function Call: WRITE	Prompt: !! Line Location: EDITVST+29
Function Call: WRITE	Prompt: !!,"Visit can only be edited to a different status." Line Location: EDITVST+34
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+5
Routine Call	DIR Line Location: ASKDT+5 PAUSE+8 GETMAINT+7 GETVST+7 GETSTAT+21 GETCOMM+20 GETVISIT+5

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^IB - [#350]	GET1^DIQ
^IBE(350.9 - [#350.9]	GET1^DIQ
^IBMH(351.83 - [#351.83]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IB - [#350]	GETBILL+11
^IB("ACHDT"	GETBILL+9
^IBMH(351.83 - [#351.83]	PRTVSTS+6, PRTVSTS+7, EDITVST+12
^TMP($J	LOOP+1!, MLOOP+15!, PRTVSTS+13, PRTVSTS+17, PRTVSTS+18, PRTVSTS+20, PRTVSTS+32, PRTVSTS+34, PRTVSTS+35, ADDVST+6 , EDITVST+7

Label References

Name	Line Occurrences
$$ASKDT	LOOP+8
$$CHKDUP	EDITVST+34
$$GETBILL	ADDVST+9
$$GETCOMM	ADDVST+10, EDITVST+35
$$GETMAINT	MLOOP+5
$$GETSTAT	ADDVST+8, EDITVST+32
$$GETVISIT	EDITVST+4
$$GETVST	ADDVST+5
$$PRTVSTS	MLOOP+2
$$SCR	PAUSE
ADDVST	MLOOP+8
CHKPAUSE	PRTVSTS+30
EDITVST	MLOOP+9
EX	LOOP+5
LINE	PRTVSTS+26, CHKPAUSE+1
LOOP	LOOP+9, MLOOP+6, MLOOP+13
MLOOP	MLOOP+16
PAUSE	MLOOP+11, CHKPAUSE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~
DFN	EN+1~, LOOP!, LOOP+6*, MLOOP+2, MLOOP+8, ADDVST+7, ADDVST+8, ADDVST+9, EDITVST+30, EDITVST+32
DIC	EN+1~, LOOP!, LOOP+5*
DIC(0	LOOP+5*
DIR	EN+1~, ASKDT+1~, PAUSE+1~, PAUSE+9!, GETMAINT+1~, GETMAINT+7!, GETVST+1~, GETSTAT+2~, GETSTAT+21!, GETCOMM+7~ , GETCOMM+20!, GETVISIT+5!
DIR("?"	GETMAINT+5, GETVST+6, GETSTAT+12, GETSTAT+18, GETCOMM+18, GETVISIT+4
DIR("A"	ASKDT+2, PAUSE+6, GETMAINT+3, GETVST+4, GETSTAT+10, GETSTAT+16, GETCOMM+16, GETVISIT+2
DIR("B"	ASKDT+3*
DIR(0	ASKDT+4, PAUSE+7, GETMAINT+4, GETVST+5, GETSTAT+11, GETSTAT+17, GETCOMM+17, GETVISIT+3
DIROUT	EN+1~, ASKDT+1~, ASKDT+5, PAUSE+1~, GETMAINT+1~, GETVST+1~, GETSTAT+2~, GETCOMM+7~
DIRUT	EN+1~, ASKDT+1~, ASKDT+5, PAUSE+1~, GETMAINT+1~, GETVST+1~, GETSTAT+2~, GETCOMM+7~
DPTNOFZY	LOOP+4~*
DT	GETVST+5
DTOUT	EN+1~, PAUSE+1~, GETMAINT+1~, GETMAINT+8, GETVST+1~, GETVST+8, GETSTAT+2~, GETSTAT+23, GETCOMM+7~, GETCOMM+21 , GETVISIT+6
DUOUT	EN+1~, PAUSE+1~, PAUSE+10, GETMAINT+1~, GETMAINT+8, GETVST+1~, GETVST+8, GETSTAT+2~, GETSTAT+23, GETCOMM+7~ , GETCOMM+21, GETVISIT+6
IBAE	EN+1~, MLOOP+5*, MLOOP+6, MLOOP+8, MLOOP+9, GETSTAT+5, GETSTAT+9, GETSTAT+15
IBBILL	DISPCHG~
IBC	PRTVSTS+2~, PRTVSTS+4, PRTVSTS+12, PRTVSTS+13, PRTVSTS+27, PRTVSTS+28, LINE~, LINE+1*, LINE+3
IBCOMM	ADDVST+1~, ADDVST+3, ADDVST+10, ADDVST+11, ADDVST+13, EDITVST+1~, EDITVST+35*
IBCUT	FRM~, FRM+1
IBD	PRTVSTS+2~, PRTVSTS+7, PRTVSTS+8, PRTVSTS+9, PRTVSTS+13, PRTVSTS+32, PRTVSTS+33, PRTVSTS+34, PRTVSTS+35, EDITVST+1~ , EDITVST+7*, EDITVST+8, EDITVST+18, EDITVST+19, EDITVST+20, EDITVST+26, EDITVST+27, EDITVST+28
IBDFN	PRTVSTS~, PRTVSTS+6, PRTVSTS+24, ADDVST~, ADDVST+13, GETSTAT~, GETSTAT+27, GETBILL~, GETBILL+9
IBDT	PRTVSTS+2~, PRTVSTS+9*, PRTVSTS+10, PRTVSTS+13
IBDUPFLG	ADDVST+1~, ADDVST+3, ADDVST+6, ADDVST+12
IBENC	GETBILL+7~, GETBILL+13*
IBEND	PAUSE~, PAUSE+6, PAUSE+11
IBI	PRTVSTS+2~, PRTVSTS+6, PRTVSTS+7, PRTVSTS+13, PRTVSTS+29, PRTVSTS+31, PRTVSTS+34, PRTVSTS+35
IBIEN	ADDVST+1~, ADDVST+3, ADDVST+9, ADDVST+13, EDITVST+1~, EDITVST+8, EDITVST+40, GETBILL+7~, GETBILL+9, GETBILL+10 , GETBILL+11, GETBILL+12, GETBILL+15
IBIND	ADDVST+1~, ADDVST+7, ADDVST+8, EDITVST+1~, EDITVST+30, EDITVST+32, GETSTAT~, GETSTAT+5
IBJ	PAUSE+1~, PAUSE+5*
IBL	LINE~, LINE+3*, LINE+4
IBLBL	FRM~, FRM+1*, FRM+2
IBLCT	EN+1~, LOOP!, MLOOP+2, MLOOP+9, PRTVSTS+17, PRTVSTS+19*, PRTVSTS+20, PRTVSTS+28, PRTVSTS+37, EDITVST~ , EDITVST+4, GETVISIT~, GETVISIT+3
IBLDT	PRTVSTS+2~, PRTVSTS+17*, PRTVSTS+18, PRTVSTS+20
IBLDT1	PRTVSTS+2~, PRTVSTS+18*, PRTVSTS+20
IBLTCX	LOOP!
IBN	PRTVSTS+2~, PRTVSTS+31, PRTVSTS+32, PRTVSTS+33, PRTVSTS+34, PRTVSTS+35, LINE~, LINE+2, LINE+3
IBOK	ADDVST+12, EDITVST+1~, EDITVST+37, EDITVST+38, GETBILL+7~, GETBILL+12, GETBILL+13, GETBILL+14
IBOVRFLG	ADDVST+1~, ADDVST+8, ADDVST+10, EDITVST+1~, EDITVST+3, EDITVST+32, EDITVST+35, GETSTAT~, GETSTAT+4, GETCOMM~ , GETCOMM+11
IBPRMT	ASKDT~, ASKDT+2
IBPT	PRTVSTS+2~, PRTVSTS+24*, PRTVSTS+25
IBQUIT	EN+1~, EN+3, MLOOP+13, PRTVSTS+2~, PRTVSTS+29, PRTVSTS+30, PAUSE+2, PAUSE+10*, CHKPAUSE+1
IBREAS	DISPCHG~
IBRUR	GETSTAT+2~
IBSCSA	GETSTAT+2~
IBSITE	ADDVST+1~, ADDVST+13
IBSITECD	EDITVST+1~, EDITVST+19*, EDITVST+21
IBSITENM	EDITVST+1~, EDITVST+20*, EDITVST+21
IBSTAT	PRTVSTS+2~, PRTVSTS+8, ADDVST+1~, ADDVST+3, ADDVST+8, ADDVST+9, ADDVST+10, ADDVST+13, EDITVST+1~, EDITVST+3 , EDITVST+32, EDITVST+33, EDITVST+34, EDITVST+35, EDITVST+40, GETCOMM~, GETCOMM+11, GETCOMM+12, GETCOMM+14, DISPCHG~ , GETBILL+7~, GETBILL+10*, CHKDUP~, CHKDUP+8
IBUID	EDITVST+1~, EDITVST+12*, EDITVST+13
IBV	PRTVSTS+2~, PRTVSTS+28*, PRTVSTS+29, PRTVSTS+34, PRTVSTS+35
IBVISIT	EDITVST+1~, EDITVST+4*, EDITVST+5, EDITVST+7
IBVSITE	EDITVST+1~, EDITVST+3, EDITVST+21, EDITVST+26
IBVST	ADDVST+1~, ADDVST+3, ADDVST+5, ADDVST+6, ADDVST+7, ADDVST+8, ADDVST+9, ADDVST+13, EDITVST+1~, EDITVST+8* , EDITVST+30, EDITVST+32, GETSTAT~, GETSTAT+27
IBVSTDT	GETBILL~, GETBILL+9, GETBILL+13
IBVSTIEN	EDITVST+1~, EDITVST+8*, EDITVST+12, EDITVST+26, EDITVST+28, EDITVST+34, EDITVST+40, CHKDUP~, CHKDUP+9
IBVYR	PRTVSTS+2~, PRTVSTS+10*, PRTVSTS+11
IBY	GETSTAT+2~, GETSTAT+24*, GETSTAT+27, GETSTAT+31
IBYR	EN+1~, LOOP+8*, LOOP+9, MLOOP+2, PRTVSTS~, PRTVSTS+11, PRTVSTS+25
IBZ	PRTVSTS+2~
IOF	PRTVSTS+23, PAUSE+11, CHKPAUSE+1
IOSL	PAUSE+4, CHKPAUSE+1
IOSL2	PAUSE+1~, PAUSE+4*, PAUSE+5
IOST	PAUSE+3, SCR
N0	GETBILL+7~, GETBILL+11*, GETBILL+13
RES	GETBILL+7~, GETBILL+8, GETBILL+15, GETBILL+17
SDT	GETVST+2~, GETVST+3*, GETVST+5, GETVST+6
STOP	GETBILL+7~, GETBILL+8, GETBILL+9, GETBILL+15
TMP	CHKDUP+7~, CHKDUP+8*, CHKDUP+9
U	PRTVSTS+8, PRTVSTS+9, PRTVSTS+13, PRTVSTS+25, PRTVSTS+33, PRTVSTS+34, PRTVSTS+35, EDITVST+8, EDITVST+12, EDITVST+18 , EDITVST+19, EDITVST+20, EDITVST+26, EDITVST+27, EDITVST+28, GETBILL+13
VADP	LOOP!
X	EN+1~, LOOP!, ASKDT+1~, GETMAINT+1~, GETVST+1~, GETSTAT+2~, GETCOMM+7~
Y	EN+1~, LOOP!, LOOP+5, LOOP+6, ASKDT+1~, ASKDT+6, ASKDT+7, PAUSE+1~, GETMAINT+1~, GETMAINT+8 , GETMAINT+9, GETMAINT+10, GETVST+1~, GETVST+8, GETVST+9, GETSTAT+2~, GETSTAT+23, GETSTAT+24, GETCOMM+7~, GETCOMM+22 , GETVISIT+6, GETVISIT+8
Z	GETBILL+7~, GETBILL+13*

Customize PDF page

Package: Integrated Billing

Routine: IBMHVM

Information

Source Information

Call Graph

Call Graph Total: 10

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: