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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 7 DD^%DT  NOW^%DTC  ^DIC  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  
Fee Basis 2 DAYS^FBAAUTL1  $$DOC^FBSHUTL  
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 FBSH ACTIVE AUTH. REPORT  

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

External References

Name Field # of Occurrence
DD^%DT PRINT+1
NOW^%DTC PRINT+1
^%ZIS FBSHRAD+39
HOME^%ZIS FBSHRAD+43
^%ZISC PRINT+88
^%ZTLOAD FBSHRAD+43
$$S^%ZTLOAD HD+1
^DIC FBSHRAD+5, FBSHRAD+17
$$GET1^DIQ GATHER+4, PRINT+7, PRINT+20, PRINT+27
^DIR FBSHRAD+10, FBSHRAD+24, FBSHRAD+30, FBSHRAD+35, PRINT+87, HD+2
^DIWP PRINT+64
^DIWW PRINT+65
DAYS^FBAAUTL1 FBSHRAD+28
$$DOC^FBSHUTL PRINT+50
DEM^VADPT PRINT+43
KVA^VADPT PRINT+66
$$FMADD^XLFDT FBSHRAD+23
$$FMTE^XLFDT FBSHRAD+23, FBSHRAD+29, PRINT+6, PRINT+56

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
Routine Call
  • DIC
  • Line Location:
    • FBSHRAD+5
    • FBSHRAD+17
Routine Call
  • DIR
  • Line Location:
    • FBSHRAD+10
    • FBSHRAD+24
    • FBSHRAD+30
    • FBSHRAD+35
    • PRINT+87
    • HD+2
Routine Call
  • %ZIS
  • Line Location:
    • FBSHRAD+39
Routine Call
  • %ZIS
  • Line Location:
    • FBSHRAD+43

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FBAAA - [#161] GATHER+3, GATHER+7, GATHER+8, GATHER+10, PRINT+60, PRINT+64
^FBAAV - [#161.2] GATHER+17
^TMP($J GATHER+1!, GATHER+20*, PRINT+23, PRINT+26, PRINT+33, PRINT+40, PRINT+46, PRINT+49, EXIT+2!
^UTILITY($J PRINT+62!

Label References

Name Line Occurrences
EXIT FBSHRAD+5, FBSHRAD+10, FBSHRAD+12, FBSHRAD+24, FBSHRAD+30, FBSHRAD+35, FBSHRAD+39, FBSHRAD+40
HD PRINT+22, PRINT+28, PRINT+34, PRINT+53, PRINT+64, PRINT+70, PRINT+77
HDPAT PRINT+64
HDPOV PRINT+34, PRINT+53, PRINT+64, PRINT+70, PRINT+77
HDVEN PRINT+53, PRINT+64, PRINT+70

Naked Globals

Name Field # of Occurrence
^( PRINT+64

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PRINT+1
>> %ZIS FBSHRAD+39*
>> DFN PRINT+43*
DIC FBSHRAD+4*, FBSHRAD+5!, FBSHRAD+15*, FBSHRAD+18!, EXIT+5!
DIC("B" FBSHRAD+4*
DIC("S" FBSHRAD+15*
DIC(0 FBSHRAD+4*, FBSHRAD+15*
DIR FBSHRAD+10!, FBSHRAD+24!, FBSHRAD+30!, FBSHRAD+35!, PRINT+87!, EXIT+5!, HD+2!
DIR("A" FBSHRAD+9*, FBSHRAD+21*, FBSHRAD+26*, FBSHRAD+34*
DIR("B" FBSHRAD+9*, FBSHRAD+23*, FBSHRAD+29*, FBSHRAD+34*
DIR(0 FBSHRAD+9*, FBSHRAD+21*, FBSHRAD+26*, FBSHRAD+34*, PRINT+87*, HD+2*
DIROUT EXIT+5!
DIRUT FBSHRAD+10, FBSHRAD+24, FBSHRAD+30, FBSHRAD+35, EXIT+5!
DIWF PRINT+61~, PRINT+62*
DIWL PRINT+61~, PRINT+62*
DIWR PRINT+61~, PRINT+62*
DT FBSHRAD+23
DTOUT EXIT+5!
DUOUT EXIT+5!
FBA GATHER+8*, GATHER+9, GATHER+11, GATHER+12, GATHER+14, GATHER+15, GATHER+17, GATHER+20, PRINT+49*, PRINT+50
, PRINT+56, EXIT+3!
FBAR FBSHRAD+36*, PRINT+60, EXIT+3!
FBAU GATHER+7*, GATHER+8, GATHER+10, GATHER+20, PRINT+48*, PRINT+60, PRINT+64, EXIT+3!
FBAUT PRINT+45*, PRINT+46*, PRINT+47, PRINT+48, PRINT+49, EXIT+3!
FBC PRINT+11*, PRINT+13, PRINT+15*, PRINT+16, PRINT+17*, EXIT+3!
FBC("POV" PRINT+30*, PRINT+68*, PRINT+76, PRINT+80
FBC("TOT" PRINT+24*, PRINT+76*, PRINT+86
FBC("VEN" PRINT+36*, PRINT+51*, PRINT+68, PRINT+73
>> FBD("POV" PRINT+31*, PRINT+69*, PRINT+81
>> FBD("VEN" PRINT+37*, PRINT+52*, PRINT+69, PRINT+74
FBDAYS PRINT+50*, PRINT+52, PRINT+55, EXIT+3!
FBDD PRINT+20*, PRINT+31, PRINT+37, PRINT+50, PRINT+52, PRINT+55, PRINT+69, PRINT+72, PRINT+74, PRINT+79
, PRINT+81, EXIT+3!, HD+9
FBDFN GATHER+3*, GATHER+4, GATHER+7, GATHER+8, GATHER+10, GATHER+20, PRINT+42*, PRINT+43, PRINT+60, PRINT+64
, EXIT+3!
FBDL PRINT+2!*, EXIT+3!, HD+12
FBDT1 FBSHRAD+25*, FBSHRAD+26, FBSHRAD+28, FBSHRAD+29, GATHER+15, PRINT+6, PRINT+50, EXIT+3!
FBDT2 FBSHRAD+31*, GATHER+14, PRINT+6, PRINT+50, EXIT+3!
FBDTF PRINT+47*, EXIT+3!
FBDTR PRINT+1*, EXIT+4!, HD+6
FBHDT PRINT+5!, EXIT+4!
FBHDT( PRINT+10*, PRINT+12, PRINT+13*, PRINT+15*, PRINT+16*, HD+7
FBHDT(1 PRINT+6*, PRINT+7*
FBHDT(2 PRINT+8*
FBI PRINT+11*, PRINT+12, PRINT+16, EXIT+4!, HD+7*
FBL PRINT+10*, PRINT+12, PRINT+13, PRINT+14*, PRINT+15, PRINT+16, EXIT+4!
FBPAT PRINT+39*, PRINT+40*, PRINT+41, PRINT+42, PRINT+46, PRINT+49, EXIT+4!
FBPG PRINT+1*, EXIT+4!, HD+2, HD+3, HD+4*, HD+6
FBPNAME GATHER+4*, GATHER+5*, GATHER+20, PRINT+41*, PRINT+54, EXIT+4!, HDPAT+1
FBPOV FBSHRAD+11*, FBSHRAD+12*, FBSHRAD+13!, GATHER+12, PRINT+8, PRINT+9, PRINT+26*, PRINT+27, PRINT+33, PRINT+40
, PRINT+46, PRINT+49, EXIT+4!
FBPOV( FBSHRAD+17*, GATHER+12, PRINT+11, PRINT+12, PRINT+16
FBPOV("E" PRINT+27*, PRINT+29, HDPOV+1
FBPROG FBSHRAD+6*, GATHER+9, PRINT+7, PRINT+20, EXIT+4!
FBQUIT PRINT+1*, PRINT+26, PRINT+28, PRINT+33, PRINT+34, PRINT+40, PRINT+46, PRINT+53, PRINT+64, PRINT+65
, PRINT+67, PRINT+70, PRINT+75, PRINT+77, PRINT+85, PRINT+87, EXIT+4!, HD+1*, HD+2*
FBRR PRINT+61~, PRINT+63*, PRINT+64*
FBSSN EXIT+4!
>> FBVN GATHER+17*, GATHER+18*, GATHER+20, PRINT+33*, PRINT+35, PRINT+40, PRINT+46, PRINT+49, HDVEN+1
FBX FBSHRAD+42*, EXIT+4!
IO QEN+1
IO("Q" FBSHRAD+40
IOF HD+3
IOM PRINT+2, PRINT+62
IOSL PRINT+28, PRINT+34, PRINT+53, PRINT+64, PRINT+70, PRINT+77
IOST PRINT+87, HD+2, HD+3
>> POP FBSHRAD+39
U FBSHRAD+17, GATHER+9, GATHER+10, GATHER+11, GATHER+12, GATHER+14, GATHER+15, GATHER+17, GATHER+20, PRINT+41
, PRINT+42, PRINT+47, PRINT+48, PRINT+50, PRINT+54, PRINT+56, PRINT+57, PRINT+58
>> VADM(2 PRINT+54
>> VADM(3 PRINT+57
>> VADM(6 PRINT+58
X FBSHRAD+28*, FBSHRAD+29, PRINT+63*, PRINT+64*, EXIT+5!
Y FBSHRAD+5, FBSHRAD+6, FBSHRAD+11, FBSHRAD+16, FBSHRAD+17, FBSHRAD+25, FBSHRAD+31, FBSHRAD+36, PRINT+1*, EXIT+5!
, HD+2
>> ZTDESC FBSHRAD+41*
>> ZTQUEUED EXIT+1, HD+1
>> ZTREQ EXIT+1*
>> ZTRTN FBSHRAD+41*
>> ZTSAVE( FBSHRAD+42*
ZTSK FBSHRAD+43!
>> ZTSTOP HD+1*
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 |  Naked Globals |  Local Variables  | All