Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call