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

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 3 $$SSNL4^FBAAUTL  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+89
^%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+88, HD+2
^DIWP PRINT+65
^DIWW PRINT+66
$$SSNL4^FBAAUTL PRINT+55
DAYS^FBAAUTL1 FBSHRAD+28
$$DOC^FBSHUTL PRINT+50
DEM^VADPT PRINT+43
KVA^VADPT PRINT+67
$$FMADD^XLFDT FBSHRAD+23
$$FMTE^XLFDT FBSHRAD+23, FBSHRAD+29, PRINT+6, PRINT+57

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: !,?4,FBPNAME,?35,$$SSNL4^FBAAUTL($P(VADM(2),U,2))
  • Line Location: PRINT+55
Function Call: WRITE
  • Prompt: ?53,$$FMTE^XLFDT($P(FBA,U)),?67,$$FMTE^XLFDT($P(FBA,U,2))
  • Line Location: PRINT+57
Function Call: WRITE
  • Prompt: !,?6,"DOB: ",$P(VADM(3),U,2)
  • Line Location: PRINT+58
Function Call: WRITE
  • Prompt: ?25,"*** Patient Died on ",$P(VADM(6),U,2)
  • Line Location: PRINT+59
Function Call: WRITE
  • Prompt: !,?32,"----"
  • Line Location: PRINT+72
Function Call: WRITE
  • Prompt: !," Vendor Subtotal:",?25,"Count: ",$J(FBC("VEN"),4)
  • Line Location: PRINT+74
Function Call: WRITE
  • Prompt: !,?32,"===="
  • Line Location: PRINT+79
Function Call: WRITE
  • Prompt: !,"POV Subtotal: ",?25,"Count: ",$J(FBC("POV"),4)
  • Line Location: PRINT+81
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+86
Function Call: WRITE
  • Prompt: !!,FBC("TOT")," Authorization",$S(FBC("TOT")=1:"",1:"s")," on report"
  • Line Location: PRINT+87
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+88
    • 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+61, PRINT+65
^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+63!

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+65, PRINT+71, PRINT+78
HDPAT PRINT+65
HDPOV PRINT+34, PRINT+53, PRINT+65, PRINT+71, PRINT+78
HDVEN PRINT+53, PRINT+65, PRINT+71

Naked Globals

Name Field # of Occurrence
^( PRINT+65

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+88!, 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+88*, HD+2*
DIROUT EXIT+5!
DIRUT FBSHRAD+10, FBSHRAD+24, FBSHRAD+30, FBSHRAD+35, EXIT+5!
DIWF PRINT+62~, PRINT+63*
DIWL PRINT+62~, PRINT+63*
DIWR PRINT+62~, PRINT+63*
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+57, EXIT+3!
FBAR FBSHRAD+36*, PRINT+61, EXIT+3!
FBAU GATHER+7*, GATHER+8, GATHER+10, GATHER+20, PRINT+48*, PRINT+61, PRINT+65, 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+69*, PRINT+77, PRINT+81
FBC("TOT" PRINT+24*, PRINT+77*, PRINT+87
FBC("VEN" PRINT+36*, PRINT+51*, PRINT+69, PRINT+74
>> FBD("POV" PRINT+31*, PRINT+70*, PRINT+82
>> FBD("VEN" PRINT+37*, PRINT+52*, PRINT+70, PRINT+75
FBDAYS PRINT+50*, PRINT+52, PRINT+56, EXIT+3!
FBDD PRINT+20*, PRINT+31, PRINT+37, PRINT+50, PRINT+52, PRINT+56, PRINT+70, PRINT+73, PRINT+75, PRINT+80
, PRINT+82, EXIT+3!, HD+9
FBDFN GATHER+3*, GATHER+4, GATHER+7, GATHER+8, GATHER+10, GATHER+20, PRINT+42*, PRINT+43, PRINT+61, PRINT+65
, 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, PRINT+55, 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+65, PRINT+66
, PRINT+68, PRINT+71, PRINT+76, PRINT+78, PRINT+86, PRINT+88, EXIT+4!, HD+1*, HD+2*
FBRR PRINT+62~, PRINT+64*, PRINT+65*
FBSSN EXIT+4!
>> FBSSNRF PRINT+54, PRINT+55
>> 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+63
IOSL PRINT+28, PRINT+34, PRINT+53, PRINT+65, PRINT+71, PRINT+78
IOST PRINT+88, 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+55, PRINT+57, PRINT+58, PRINT+59
>> VADM(2 PRINT+54, PRINT+55
>> VADM(3 PRINT+58
>> VADM(6 PRINT+59
X FBSHRAD+28*, FBSHRAD+29, PRINT+64*, PRINT+65*, 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