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

Package: Integrated Billing

Routine: IBMHVM


Information

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

Source Information

Source file <IBMHVM.m>

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

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

FileMan Files Accessed Via FileMan Db Call

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