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

Package: Fee Basis

Routine: FBCHP78


Information

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

Source Information

Source file <FBCHP78.m>

Entry Points

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FB7078 - [#162.4] Classic Fileman Calls,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call