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

Package: Fee Basis

Routine: FBAAMST


Information

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

Source Information

Source file <FBAAMST.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
VA FileMan 4 DD^%DT  NOW^%DTC  $$GET1^DIQ  ^DIR  
Fee Basis 3 DAYS^FBAAUTL1  $$POV^FBAAUTL3  $$MODL^FBAAUTL4  
Registration 1 (DEM,KVA)^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
Fee Basis 1 FBAA MST REPORT  

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

External References

Name Field # of Occurrence
DD^%DT PRINT+1
NOW^%DTC PRINT+1
^%ZIS FBAAMST+31
HOME^%ZIS FBAAMST+35
^%ZISC PRINT+56
^%ZTLOAD FBAAMST+35
$$S^%ZTLOAD GATHER+10, HD+2
$$GET1^DIQ GATHER+26, PRINT+36, PRINT+42, PRINT+43
^DIR FBAAMST+12, FBAAMST+18, FBAAMST+27, PRINT+55, HD+3
DAYS^FBAAUTL1 FBAAMST+16
$$POV^FBAAUTL3 FBAAMST+4
$$MODL^FBAAUTL4 PRINT+37
DEM^VADPT GATHER+29
KVA^VADPT GATHER+37
$$FMADD^XLFDT FBAAMST+11
$$FMTE^XLFDT FBAAMST+11, FBAAMST+17, PRINT+6, PRINT+26, PRINT+27, PRINT+39

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
Routine Call
  • DIR
  • Line Location:
    • FBAAMST+12
    • FBAAMST+18
    • FBAAMST+27
    • PRINT+55
    • HD+3
Routine Call
  • %ZIS
  • Line Location:
    • FBAAMST+31
Routine Call
  • %ZIS
  • Line Location:
    • FBAAMST+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAA - [#161] GET1^DIQ
162.03 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAAA - [#161] GATHER+8, GATHER+15, GATHER+16, GATHER+17, GATHER+50
^FBAAC - [#162] GATHER+44, GATHER+46, GATHER+47, GATHER+54, GATHER+55
^FBAAV - [#161.2] PRINT+35
^TMP($J GATHER+1!, GATHER+35*, GATHER+39*, GATHER+51, GATHER+57*, GATHER+59, GATHER+62*, PRINT+10, PRINT+14, PRINT+17
, PRINT+21, PRINT+23, PRINT+29, PRINT+30, EXIT+2!

Label References

Name Line Occurrences
EXIT FBAAMST+5, FBAAMST+12, FBAAMST+18, FBAAMST+27, FBAAMST+31, FBAAMST+32
HD PRINT+9, PRINT+24, PRINT+38, PRINT+47, RSUM+1, RSUM+13
HDAUT PRINT+38, PRINT+47
HDPAT PRINT+24, PRINT+38, PRINT+47
RSUM PRINT+53
RSUML RSUM+9, RSUM+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRINT+1, EXIT+6!
>> %ZIS FBAAMST+31*
DFN GATHER+29*, EXIT+6!
DIC EXIT+6!
DIR FBAAMST+12!, FBAAMST+18!, FBAAMST+27!, PRINT+55!, EXIT+6!, HD+3!
DIR("?" FBAAMST+24*, FBAAMST+25*, FBAAMST+26*
DIR("A" FBAAMST+9*, FBAAMST+14*, FBAAMST+23*
DIR("B" FBAAMST+11*, FBAAMST+17*, FBAAMST+23*
DIR(0 FBAAMST+9*, FBAAMST+14*, FBAAMST+22*, PRINT+55*, HD+3*
DIROUT EXIT+6!
DIRUT FBAAMST+12, FBAAMST+18, FBAAMST+27, EXIT+6!
DT FBAAMST+11
DTOUT EXIT+6!
DUOUT EXIT+6!
FBA GATHER+16*, GATHER+18, GATHER+20, GATHER+21, GATHER+39, PRINT+23*, PRINT+26, PRINT+27, EXIT+3!
FBAACPT PRINT+36*, PRINT+41, EXIT+3!
FBATO GATHER+50*, GATHER+51, GATHER+57, EXIT+3!
FBAU GATHER+15*, GATHER+16, GATHER+17, GATHER+39, PRINT+22*, PRINT+25, EXIT+3!, HDAUT+1
FBAUT PRINT+20*, PRINT+21*, PRINT+22, PRINT+23, PRINT+29, PRINT+30, EXIT+3!
FBC GATHER+7*, GATHER+9*, GATHER+10, EXIT+3!
FBDETAIL FBAAMST+28*, PRINT+11, EXIT+3!, HD+6
FBDFN GATHER+8*, GATHER+15, GATHER+16, GATHER+17, GATHER+26, GATHER+29, GATHER+35, GATHER+39, GATHER+44, GATHER+46
, GATHER+47, GATHER+50, GATHER+51, GATHER+54, GATHER+55, GATHER+57, GATHER+59, GATHER+62, PRINT+16*, PRINT+25
, PRINT+37, EXIT+3!, HDAUT+1
FBDL PRINT+2!*, EXIT+3!, HD+9
FBDT1 FBAAMST+13*, FBAAMST+14, FBAAMST+16, FBAAMST+17, GATHER+21, GATHER+48, PRINT+6, EXIT+3!
FBDT2 FBAAMST+19*, GATHER+20, GATHER+49, PRINT+6, EXIT+3!
FBDTR PRINT+1*, EXIT+4!, HD+7
FBFNDAUT GATHER+13*, GATHER+23, GATHER+36*, GATHER+42, EXIT+4!
FBGEN GATHER+30*, GATHER+32*, GATHER+34, GATHER+35, GATHER+58, GATHER+61, EXIT+4!
FBHDT PRINT+5!, EXIT+4!
FBHDT( HD+8
FBHDT(1 PRINT+6*
FBI PRINT+45~, PRINT+46*, EXIT+4!, HD+1~, HD+8*, RSUML~, RSUML+2, RSUML+3, RSUML+4, RSUML+5
, RSUML+6, RSUML+7, RSUML+8, RSUML+9
FBIENS PRINT+31*, PRINT+32, PRINT+33, PRINT+34, PRINT+36, PRINT+42, PRINT+43, EXIT+4!
FBMOD PRINT+45~, PRINT+46*, PRINT+48
FBMODLE PRINT+37*, PRINT+41, PRINT+44, PRINT+46, EXIT+4!
FBPAT PRINT+13*, PRINT+14*, PRINT+15, PRINT+16, PRINT+17, PRINT+21, PRINT+23, PRINT+29, PRINT+30, EXIT+4!
FBPAY PRINT+30*, PRINT+31, PRINT+39, EXIT+4!
FBPG PRINT+1*, EXIT+4!, HD+3, HD+4, HD+5*, HD+7
FBPNAME GATHER+26*, GATHER+27*, GATHER+35, GATHER+39, GATHER+51, GATHER+57, PRINT+15*, PRINT+18, EXIT+5!, HDPAT+1
FBPOV FBAAMST+4*, FBAAMST+5, GATHER+18, EXIT+5!
FBQUIT GATHER+5*, GATHER+8, GATHER+10*, PRINT+10, PRINT+11, PRINT+14, PRINT+21, PRINT+24, PRINT+30, PRINT+38
, PRINT+44, PRINT+46, PRINT+47, PRINT+52, PRINT+55, EXIT+5!, HD+2*, HD+3*, RSUM+1, RSUM+13
FBSPI GATHER+53*, GATHER+54*, GATHER+55, GATHER+57, PRINT+34*, PRINT+37, EXIT+5!
FBSSN GATHER+31*, GATHER+35, EXIT+5!
FBT EXIT+5!
FBT( GATHER+3*, RSUML+4*
FBT("AMTPAID" GATHER+58*, RSUML+7, RSUML+8, RSUML+9
FBT("PATIENT" GATHER+34*, RSUML+3, RSUML+5, RSUML+8
FBT("VISIT" GATHER+61*, RSUML+6, RSUML+9
FBTDI GATHER+46*, GATHER+47, GATHER+54, GATHER+55, GATHER+57, PRINT+33*, PRINT+37, EXIT+5!
FBTX RSUML+1~, RSUML+2*, RSUML+5
FBV GATHER+44*, GATHER+46, GATHER+47, GATHER+54, GATHER+55, GATHER+57, PRINT+32*, PRINT+35, PRINT+37, EXIT+5!
FBVY PRINT+35*, PRINT+49, PRINT+50, EXIT+5!
FBX FBAAMST+34*, PRINT+17*, PRINT+18, EXIT+5!
FBY2 GATHER+47*, GATHER+48, GATHER+49, GATHER+50, GATHER+51, GATHER+57, GATHER+59, GATHER+62, EXIT+5!
FBY3 GATHER+55*, GATHER+56, GATHER+58, EXIT+5!
I GATHER+3*, EXIT+6!, RSUM+9*, RSUML+4*
IO QEN+1
IO("Q" FBAAMST+32
IOF HD+4
IOM PRINT+2
IOSL PRINT+24, PRINT+38, PRINT+47, RSUM+1, RSUM+13
IOST PRINT+55, HD+3, HD+4
J GATHER+3*, EXIT+6!
POP FBAAMST+31, EXIT+6!
U GATHER+17, GATHER+18, GATHER+20, GATHER+21, GATHER+30, GATHER+31, GATHER+32, GATHER+35, GATHER+39, GATHER+48
, GATHER+49, GATHER+50, GATHER+51, GATHER+56, GATHER+57, GATHER+58, GATHER+59, GATHER+62, PRINT+15, PRINT+16
, PRINT+18, PRINT+22, PRINT+26, PRINT+27, PRINT+31, PRINT+39, PRINT+49, PRINT+50, RSUML+4
>> VADM(2 GATHER+31
>> VADM(5 GATHER+30
VAHOW GATHER+29!
VAPTYP GATHER+29!
VAROOT GATHER+29!
X FBAAMST+16*, FBAAMST+17, EXIT+6!
Y FBAAMST+13, FBAAMST+19, FBAAMST+28, PRINT+1*, EXIT+6!, HD+3
>> ZTDESC FBAAMST+33*
>> ZTQUEUED GATHER+10, EXIT+1, HD+2
>> ZTREQ EXIT+1*
>> ZTRTN FBAAMST+33*
>> ZTSAVE( FBAAMST+34*
ZTSK FBAAMST+35!
>> ZTSTOP GATHER+10*, HD+2*
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