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

Package: Fee Basis

Routine: FBAAMST


Information

FBAAMST ;WCIOFO/SAB-MST REPORT ;6/12/2001

Source Information

Source file <FBAAMST.m>

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
GATHER ; collect and sort data
PRINT ; report data
EXIT ;
HD ; page header
HDPAT ; page header for continued Patient
HDAUT ; page header for continued Authorization
RSUM ; report summary
RSUML(FBI) ; report summary number line

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,"Purpose of Visit Code 55 (MST) not found. Can't print the MST report."
  • Line Location: FBAAMST+6
Function Call: WRITE
  • Prompt: !,"No MST authorizations found during period."
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !!,FBPNAME,?40,"Patient ID: ",$P(FBX,U),?67,"Gender: ",$P(FBX,U,2)
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !!,?2,"Authorization #: ",FBDFN,"-",FBAU
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: ?32,"FR: ",$$FMTE^XLFDT($P(FBA,U),"2DF")
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: ?47,"TO: ",$$FMTE^XLFDT($P(FBA,U,2),"2DF")
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: !!,?4,"No finalized payments on file."
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !!,?4,"Svc Date: ",$$FMTE^XLFDT($P(FBPAY,U),"2DF")
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: ?24,"CPT-MOD: "
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: FBAACPT_$S($G(FBMODLE)]"":"-"_$P(FBMODLE,","),1:"")
  • Line Location: PRINT+41
Function Call: WRITE
  • Prompt: ?43,"DIAG: ",$$GET1^DIQ(162.03,FBIENS,28)
  • Line Location: PRINT+42
Function Call: WRITE
  • Prompt: ?58,"AMT PAID: ",$J($$GET1^DIQ(162.03,FBIENS,2,"I"),9,2)
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !,?38,"-",FBMOD
  • Line Location: PRINT+48
Function Call: WRITE
  • Prompt: !,?4,"Vendor: ",$E($P(FBVY,U),1,30)
  • Line Location: PRINT+49
Function Call: WRITE
  • Prompt: ?44,"Vendor ID: ",$P(FBVY,U,2)
  • Line Location: PRINT+50
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"MST "_$S(FBDETAIL:"Detailed",1:"Summary")_" Report"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: ?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !,FBHDT(FBI)
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,"Patient: ",FBPNAME," (continued)"
  • Line Location: HDPAT+1
Function Call: WRITE
  • Prompt: !," Authorization: ",FBDFN,"-",FBAU," (continued)"
  • Line Location: HDAUT+1
Function Call: WRITE
  • Prompt: !!,"REPORT SUMMARY"
  • Line Location: RSUM+2
Function Call: WRITE
  • Prompt: !!,"Gender",?8,"# Unique",?18,"# Visits"
  • Line Location: RSUM+3
Function Call: WRITE
  • Prompt: ?28," Total",?44,"Average Paid",?58,"Average Paid"
  • Line Location: RSUM+4
Function Call: WRITE
  • Prompt: !,?8,"Patients"
  • Line Location: RSUM+5
Function Call: WRITE
  • Prompt: ?28," Payments",?44," Per Patient",?58," Per Visit"
  • Line Location: RSUM+6
Function Call: WRITE
  • Prompt: !,"------",?8,"--------",?18,"--------"
  • Line Location: RSUM+7
Function Call: WRITE
  • Prompt: ?28,"--------------",?44,"------------",?58,"------------"
  • Line Location: RSUM+8
Function Call: WRITE
  • Prompt: !,?8,"--------",?18,"--------"
  • Line Location: RSUM+10
Function Call: WRITE
  • Prompt: ?28,"--------------",?44,"------------",?58,"------------"
  • Line Location: RSUM+11
Function Call: WRITE
  • Prompt: !!,"Notes: (1) # Unique Patients represents patients having one or more MST"
  • Line Location: RSUM+14
Function Call: WRITE
  • Prompt: !," authorizations that overlap the period being reported."
  • Line Location: RSUM+15
Function Call: WRITE
  • Prompt: !," (2) # Visits and Total Payments are obtained from any finalized"
  • Line Location: RSUM+16
Function Call: WRITE
  • Prompt: !," payment(s) that are linked to the MST authorizations and have a"
  • Line Location: RSUM+17
Function Call: WRITE
  • Prompt: !," date of service within the period being reported."
  • Line Location: RSUM+18
Function Call: WRITE
  • Prompt: !,FBTX,?8,$J($FN(FBT("PATIENT",FBI),","),8)
  • Line Location: RSUML+5
Function Call: WRITE
  • Prompt: ?18,$J($FN(FBT("VISIT",FBI),","),8)
  • Line Location: RSUML+6
Function Call: WRITE
  • Prompt: ?28,$J($FN(FBT("AMTPAID",FBI),",",2),14)
  • Line Location: RSUML+7
Function Call: WRITE
  • Prompt: ?44,$J($FN(FBT("AMTPAID",FBI)/FBT("PATIENT",FBI),",",2),12)
  • Line Location: RSUML+8
Function Call: WRITE
  • Prompt: ?58,$J($FN(FBT("AMTPAID",FBI)/FBT("VISIT",FBI),",",2),12)
  • Line Location: RSUML+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAA - [#161] GET1^DIQ
162.03 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call