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

Package: Fee Basis

Routine: FBCHP78


Information

FBCHP78 ;AISC/DMK-GENERATE 7078 ; 8/28/09 12:01pm

Source Information

Source file <FBCHP78.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
VA FileMan 6 COMMA^%DTC  IX^DIC  ($$GET1,EN)^DIQ  ^DIR  ^DIWP  ^DIWW  
Fee Basis 4 $$ACTIVECC^FBAACO0  ($$SSNL4,CLOSE,SITEP,ZIS)^FBAAUTL  $$REFNPI^FBCH78  ($$CONT,BOT,FISCAL,HED)^FBCH78A  
Kernel 2 $$FMTE^XLFDT  $$NAMEFMT^XLFNAME  
IFCAP 1 ^PRCFSITE  
Registration 1 6^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: 3

Package Total Caller Graph
Fee Basis 3 FBCH PRINT 7078  FBNHEAUT  FBNHEDAT  

Entry Points

Name Comments DBIA/ICR reference
GET78
ASK
QUE
START
END
7078
DATE
FBO
FBT
ASKN

External References

Name Field # of Occurrence
COMMA^%DTC 7078+32
IX^DIC GET78
$$GET1^DIQ 7078+24
EN^DIQ GET78+1
^DIR ASKFBOFBTASKN
^DIWP 7078+28
^DIWW 7078+29
$$ACTIVECC^FBAACO0 7078+6
$$SSNL4^FBAAUTL 7078+20, 7078+21
CLOSE^FBAAUTL END+1
SITEP^FBAAUTL ASK+1, 7078+5
ZIS^FBAAUTL QUE
$$REFNPI^FBCH78 7078+24
$$CONT^FBCH78A 7078+31
BOT^FBCH78A 7078+34
FISCAL^FBCH78A 7078+30
HED^FBCH78A 7078
^PRCFSITE ASK+4
6^VADPT 7078+5
$$FMTE^XLFDT DATE
$$NAMEFMT^XLFNAME 7078+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Site Parameters must be entered prior",!," to using this option."
  • Line Location: FBCHP78+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: "Issuing Office",?66,L,"1. Date of Issue",!,?5,FBNM(1),?66,L,?70,FBID,!,?5,FBNM(2),?66,L,$E(UL,1,52),!,?5,$S(FBNM(3)]"":FBNM(3),1:FBNM(4)_", "_FBNM(5)_" "_FBNM(6)),?66,L,"2. Veteran's Name",!
  • Line Location: 7078+15
Function Call: WRITE
  • Prompt: ?5,FBNM(4)_", "_FBNM(5)_" "_FBNM(6)
  • Line Location: 7078+16
Function Call: WRITE
  • Prompt: ?66,L,?70,FBNAME,!,UL,!,"Name of Physician or Station",?66,L,"3. Address",!,?5,FBVEN,?66,L,?68,$S(FBCONFAD:VAPA(13),1:VAPA(1)),!,?5,FBV(3),?66,L,?68,$S(FBCONFAD:VAPA(14),1:VAPA(2)),!,?5,FBV(14)
  • Line Location: 7078+17
Function Call: WRITE
  • Prompt: ?66,L,?68,$S(FBCONFAD:VAPA(15),1:VAPA(3)),!?5,FBV(4)_", "_FBV(5)_" "_FBV(6)
  • Line Location: 7078+18
Function Call: WRITE
  • Prompt: ?66,L,$E(UL,1,53),!,?66,L,?68,"4. Veteran's Claim No.",?93,L,?95,"4A. SSN",!,?66,L,?68,$S($G(VAEL(7))=$P($G(VADM(2)),U,1):$$SSNL4^FBAAUTL($G(VAEL(7))),1:$G(VAEL(7)))
  • Line Location: 7078+20
Function Call: WRITE
  • Prompt: ?93,L,?95,$$SSNL4^FBAAUTL($P(VADM(2),"^",2)),!,?66,L,$E(UL,1,53),!,?66,L,?75,"5. Authorization Valid",!,?66,L,$E(UL,1,53),!
  • Line Location: 7078+21
Function Call: WRITE
  • Prompt: "Name of VA Referring Provider",?66,L,"From",?93,L,"To",!
  • Line Location: 7078+23
Function Call: WRITE
  • Prompt: ?5,$$GET1^DIQ(162.4,FB7078_",",15),?50,"NPI: ",$$REFNPI^FBCH78("",FB7078,1)
  • Line Location: 7078+24
Function Call: WRITE
  • Prompt: ?66,L,?68,FBFD,?93,L,?95,FBTD,!,UL,!,?45,"PART 1. - SERVICES AUTHORIZED",!,UL,!,"6. Services shown below are authorized for the period indicated in Item 5 above.",?104,L,?107,"7. Fee",!
  • Line Location: 7078+25
Function Call: WRITE
  • Prompt: ?12,"(See Special Provisions below.)",?104,L,"$",!
  • Line Location: 7078+26
Function Call: WRITE
  • Prompt: UL,!,"8. Fee Schedule or Contract",?33,L,"9. Authority",?66,L,"9A.",?93,L,"10. Estimated Amount",!?5,$$CONT^FBCH78A(+$P(FB(0),U,2),$P(FB(0),U,4)),?33,L,?35,FB(6),?66,L,?93,L,?95,"$"
  • Line Location: 7078+31
Function Call: WRITE
  • Prompt: X,!,UL,!
  • Line Location: 7078+32
Function Call: WRITE
  • Prompt: "11. Fiscal Symbols",?66,L,"12. Authorized by (Name and Title)",!,?5,FB("SYM"),?66,L,?68,FBO," ",FBT,!,UL
  • Line Location: 7078+33
Routine Call
  • DIC
  • Line Location:
    • GET78
Routine Call
  • DIR
  • Line Location:
    • ASK
    • FBO
    • FBT
    • ASKN

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FB7078 - [#162.4] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(43.4 - [#43.4] 7078+14
^DIC(5 - [#5] 7078+9, 7078+12
^DPT - [#2] 7078+1
^FB7078 - [#162.4] START7078+1, 7078+28
^FBAA(161.4 - [#161.4] FBCHP78+3
^FBAAV - [#161.2] 7078+10, 7078+11
^UTILITY($J END!, 7078+27!

Label References

Name Line Occurrences
7078 START
DATE 7078+10, 7078+13
END GET78ASKASK+3, QUE7078+1
FBO ASK+3
GET78 GET78ASKASK+4

Naked Globals

Name Field # of Occurrence
^( 7078+9, 7078+28
^(0 7078+10, 7078+11, 7078+12, 7078+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D GET78*!
DA GET78+1*, END!
DFN END!, 7078+1*, 7078+3
DIC GET78*!, GET78+1*, END!
DIC("A" GET78*
DIC("S" GET78*
DIC(0 GET78*
DINAME END!
DIR ASK!, FBO!, FBT!, ASKN!
DIR("?" FBO*, FBT*, ASKN*
DIR("A" ASK*, FBO*, FBT*, ASKN*
DIR("B" ASK*, FBO*, FBT*, ASKN*
DIR(0 ASK*, FBO*, FBT*, ASKN*
DIRUT ASKASK+3, END!, FBOFBTASKN
DIWF END!, 7078+27*
DIWL END!, 7078+27*
DR GET78+1*, END!
FB END!
FB("SITE" ASK+5*, QUE
FB("SYM" 7078+33
FB(0 GET78*, START*, 7078+10, 7078+13, 7078+14, 7078+31, 7078+32
FB(6 7078+14*, 7078+31
FB7078 GET78*, GET78+1, QUESTART, END!, 7078+1, 7078+24, 7078+28
FBCONFAD 7078+6~*, 7078+17, 7078+18, 7078+19
FBFD END!, 7078+13*, 7078+25
FBID END!, 7078+10*, 7078+15
FBLEN 7078+7~*
FBM START*, END!
FBNAME 7078+2~, 7078+4*, 7078+17
FBNAME("FIELD" 7078+3*
FBNAME("FILE" 7078+3*
FBNAME("IENS" 7078+3*
FBNM END!, 7078+8*
FBNM( 7078+8*
FBNM(1 7078+15
FBNM(2 7078+15
FBNM(3 7078+15, 7078+16
FBNM(4 7078+15, 7078+16
FBNM(5 7078+9*, 7078+15, 7078+16
FBNM(6 7078+15, 7078+16
FBNUM ASK+1*, QUESTART, END!, ASKN*
FBO ASK+1*, QUE, END!, 7078+33, FBO*
>> FBPG START*
>> FBPOP QUE
FBRR END!, 7078+28*
FBSITE END!
FBSITE(0 7078+8
FBSITE(1 ASK+1, ASK+2
FBT ASK+2*, QUE, END!, 7078+33, FBT*
FBTD END!, 7078+13*, 7078+25
FBV END!
FBV( 7078+11*
FBV(0 7078+10*, 7078+11
FBV(14 7078+17
FBV(3 7078+17
FBV(4 7078+18
FBV(5 7078+12*, 7078+18
FBV(6 7078+18
FBVEN END!, 7078+10*, 7078+17
FBVEN(1 7078+10*, 7078+19
FBXX 7078+28*, 7078+29!
I END!, 7078+11*
IO 7078
IOST START
L END!, 7078*, 7078+15, 7078+17, 7078+18, 7078+19, 7078+20, 7078+21, 7078+23, 7078+25
7078+26, 7078+31, 7078+33
PGM QUE*, END!
PRC END!
PRC("SITE" ASK+4*, ASK+5
>> PRCF("X" ASK+4*
PRCS END!
PRCSCPAN END!
S END!
U 7078+7, 7078+19, 7078+20, 7078+31
UL END!, 7078*, 7078+15, 7078+17, 7078+20, 7078+21, 7078+25, 7078+31, 7078+32, 7078+33
VA END!
VADM END!
VADM(2 7078+20, 7078+21
VAEL END!
VAEL(7 7078+20
VAERR END!
VAL QUE*, END!
VAPA END!
VAPA("P" 7078+5*
VAPA(1 7078+17
VAPA(11 7078+19
VAPA(13 7078+17
VAPA(14 7078+17
VAPA(15 7078+18
VAPA(16 7078+6, 7078+7*, 7078+19
VAPA(17 7078+7, 7078+19
VAPA(18 7078+7, 7078+19
VAPA(2 7078+17
VAPA(3 7078+18
VAPA(4 7078+19
VAPA(5 7078+19
VAPA(6 7078+19
VAR QUE*, END!
X GET78, END!, 7078+28*, 7078+32*, FBOFBTASKN
X2 7078+32!
X3 7078+32*!
Y GET78ASK, END!, 7078+10*, 7078+13*, DATE*
Y(0 GET78
Z END!
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