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

Package: Integrated Billing

Routine: IBUCVM


Information

IBUCVM ;LL/ELZ-LONG TERM CARE CLOCK MAINTANCE ; 06-DEC-19

Source Information

Source file <IBUCVM.m>

Call Graph

Call Graph

Call Graph Total: 11

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Integrated Billing 1 IBUC VISIT MAINT  

Entry Points

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

External References

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+22, EDITVST+47
$$GETVST^IBECEA36 GETSTAT+61
$$PRTSARUR^IBECEA36 GETSTAT+44
$$PRTVSTSA^IBECEA36 GETSTAT+50
ADD^IBECEA38 ADDVST+24
UPDATE^IBECEA38 EDITVST+51
$$PT^IBEFUNC PRTVSTS+25
DEM^VADPT LOOP+8
KVAR^VADPT EX+1
$$FMTE^XLFDT PRTVSTS+34, PRTVSTS+35, PRTVSTS+36, EDITVST+25
$$UP^XLFSTR ADDVST+19, EDITVST+40
$$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)," ",$P(IBPT,U,2),!
  • 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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
$$ASKDT LOOP+10
$$GETBILL ADDVST+17, EDITVST+38
$$GETCOMM ADDVST+20, EDITVST+43
$$GETMAINT MLOOP+6
$$GETSTAT ADDVST+15, EDITVST+34
$$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+15, EDITVST+31, EDITVST+34
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+17*, ADDVST+18, ADDVST+19*, ADDVST+24, EDITVST+2~, EDITVST+5*, EDITVST+38*, EDITVST+39
, EDITVST+40*, EDITVST+51, 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+20*, ADDVST+21, ADDVST+24, EDITVST+2~, EDITVST+5*, EDITVST+43*, EDITVST+44, EDITVST+51
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+24, GETSTAT~, GETSTAT+61
IBDT PRTVSTS+2~, PRTVSTS+10*, PRTVSTS+11, PRTVSTS+14
IBDUPFLG ADDVST+2~, ADDVST+7*, ADDVST+10*, ADDVST+22
IBELPG ADDVST+2~, ADDVST+13*, ADDVST+15, ADDVST+20, EDITVST+2~, EDITVST+31*, EDITVST+34, EDITVST+43, 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+24, EDITVST+2~, EDITVST+5*, EDITVST+51
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+51
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+22*, ADDVST+23, EDITVST+2~, EDITVST+47*, EDITVST+48
IBOVRFLG ADDVST+2~, ADDVST+15, ADDVST+20, EDITVST+2~, EDITVST+5*, EDITVST+34, EDITVST+43, 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+24
IBSITECD EDITVST+2~, EDITVST+17*, EDITVST+19
IBSITENM EDITVST+2~, EDITVST+18*, EDITVST+19
IBSTAT PRTVSTS+2~, PRTVSTS+9*, ADDVST+2~, ADDVST+7*, ADDVST+15*, ADDVST+16, ADDVST+17, ADDVST+20, ADDVST+24, EDITVST+2~
, EDITVST+5*, EDITVST+34*, EDITVST+35, EDITVST+38, EDITVST+43, EDITVST+51, 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+15, ADDVST+24, EDITVST+2~, EDITVST+13*
, EDITVST+31, EDITVST+34, 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
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, GETSTAT+68, GETBILL+2~, GETBILL+10, GETCOMM+7~, GETCOMM+25, GETVISIT+6, GETVISIT+8
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