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

Package: Fee Basis

Routine: FBSHRAD


Information

FBSHRAD ;WCIOFO/SAB-REPORT ACTIVE AUTHORIZATIONS FOR DATE ;2/9/1999

Source Information

Source file <FBSHRAD.m>

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
GATHER ; collect and sort data
PRINT ; report data
EXIT ;
HD ; page header
HDPOV ; page header for continued POV
HDVEN ; page header for continued Vendor
HDPAT ; page header for continued Patient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select one or more Purpose of Visits"
  • Line Location: FBSHRAD+14
Function Call: WRITE
  • Prompt: !,"No active authorizations found during period."
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !!,"POV: ",FBPOV("E")
  • Line Location: PRINT+29
Function Call: WRITE
  • Prompt: !!," Vendor: ",FBVN,!
  • Line Location: PRINT+35
Function Call: WRITE
  • Prompt: !,?4,FBPNAME,?35,$P(VADM(2),U,2)
  • Line Location: PRINT+54
Function Call: WRITE
  • Prompt: ?53,$$FMTE^XLFDT($P(FBA,U)),?67,$$FMTE^XLFDT($P(FBA,U,2))
  • Line Location: PRINT+56
Function Call: WRITE
  • Prompt: !,?6,"DOB: ",$P(VADM(3),U,2)
  • Line Location: PRINT+57
Function Call: WRITE
  • Prompt: ?25,"*** Patient Died on ",$P(VADM(6),U,2)
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: !,?32,"----"
  • Line Location: PRINT+71
Function Call: WRITE
  • Prompt: !," Vendor Subtotal:",?25,"Count: ",$J(FBC("VEN"),4)
  • Line Location: PRINT+73
Function Call: WRITE
  • Prompt: !,?32,"===="
  • Line Location: PRINT+78
Function Call: WRITE
  • Prompt: !,"POV Subtotal: ",?25,"Count: ",$J(FBC("POV"),4)
  • Line Location: PRINT+80
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+85
Function Call: WRITE
  • Prompt: !!,FBC("TOT")," Authorization",$S(FBC("TOT")=1:"",1:"s")," on report"
  • Line Location: PRINT+86
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !,"ACTIVE AUTHORIZATIONS by POV, Vendor, Patient"
  • Line Location: HD+5
Function Call: WRITE
  • Prompt: ?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,FBHDT(FBI)
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,?4,"VETERAN",?35,"Pt. ID"
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: ?56,"AUTHORIZATION"
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !,?53,"FROM DATE",?67,"TO DATE"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !,"POV:",FBPOV("E")," (continued)"
  • Line Location: HDPOV+1
Function Call: WRITE
  • Prompt: !," Vendor: ",FBVN," (continued)"
  • Line Location: HDVEN+1
Function Call: WRITE
  • Prompt: !," Patient: ",FBPNAME," (continued)"
  • Line Location: HDPAT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAA - [#161] GET1^DIQ
^FBAA(161.8 - [#161.8] Classic Fileman Calls,  GET1^DIQ
^FBAA(161.82 - [#161.82] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call