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

Package: Fee Basis

Routine: FBAA79


Information

FBAA79 ;AISC/GRR - PRINT FORM 7079 REQUEST FOR OUTPATIENT MEDICAL SERVICES ;6/5/2009

Source Information

Source file <FBAA79.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Fee Basis 6 ^FBAA79A  OUTPUT^FBAAS79  ($$SSN,$$SSNL4,CLOSE,DATE,SITEP,ZIS)^FBAAUTL  GETAUTHK^FBAAUTL1  $$EXTPV^FBAAUTL5  $$REFNPI^FBCH78  
VA FileMan 3 DT^DICRW  $$GET1^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  $$NAMEFMT^XLFNAME  
DRG Grouper 1 $$CODEC^ICDEX  

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

Package Total Caller Graph
Fee Basis 2 FBAA PRINT 7079 GROUP  FBAAS79  

Entry Points

Name Comments DBIA/ICR reference
RDHOW
START
END
GOT
  • ICR #5079
    • Status: Retired
    • Usage: Controlled Subscription
    OVR

    External References

    Name Field # of Occurrence
    DT^DICRW FBAA79+6
    $$GET1^DIQ OVR+15
    ^DIR RDHOW
    ^FBAA79A OVR+19
    OUTPUT^FBAAS79 RDHOW+1
    $$SSN^FBAAUTL GOT+7
    $$SSNL4^FBAAUTL GOT+7
    CLOSE^FBAAUTL END+3
    DATE^FBAAUTL FBAA79+6
    SITEP^FBAAUTL FBAA79+6, START
    ZIS^FBAAUTL RDHOW+2
    GETAUTHK^FBAAUTL1 END+2
    $$EXTPV^FBAAUTL5 GOT+12
    $$REFNPI^FBCH78 OVR+16
    $$CODEC^ICDEX GOT+17
    $$FMTE^XLFDT OVR+5, OVR+7
    $$NAMEFMT^XLFNAME GOT+5

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: !,"Print 7079's for: "
    • Line Location: FBAA79+6
    Function Call: WRITE
    • Prompt: !!,*7,"There are no 7079's to be printed!",!
    • Line Location: FBAA79+7
    Function Call: WRITE
    • Prompt: !
    • Line Location: RDHOW+0
    Function Call: WRITE
    • Prompt: @IOF
    • Condition for execution: FBPG
    • Line Location: OVR+2
    Function Call: WRITE
    • Prompt: UL,!,?46,"Department of Veterans Affairs",?100,"ID Card Number: ",FBIDC,!,?35,"R E Q U E S T F O R O U T P A T I E N T S E R V I C E S",!,UL
    • Line Location: OVR+2
    Function Call: WRITE
    • Prompt: !,"(1) Veterans Name",?31,"|(2) ID Number | Period of Validity",!,?31,"|",?46,"|"
    • Line Location: OVR+4
    Function Call: WRITE
    • Prompt: !,NAME,?31,"|",?32,SSN,?46,"|"," FROM: ",$$FMTE^XLFDT(VFROM)," TO: ",$$FMTE^XLFDT(VTO),!,UL
    • Line Location: OVR+5
    Function Call: WRITE
    • Prompt: !,"(3) ADDRESS",?31,"|DATE OF ISSUE",?46,"| CONDITIONS FOR WHICH SERVICES ARE REQUESTED (DESCRIPTION OF DISABILITY)",!,?31,"|",?46,"|"
    • Line Location: OVR+6
    Function Call: WRITE
    • Prompt: !,FBI(1),?31,"|",?33,$$FMTE^XLFDT(FBJ),?46,"|"," ",VDX
    • Line Location: OVR+7
    Function Call: WRITE
    • Prompt: !,FBI(2),?31,"|",?46,"|"," "
    • Line Location: OVR+8
    Function Call: WRITE
    • Prompt: ?48,$P(FBDX,"^",FBPDX)
    • Line Location: OVR+8
    Function Call: WRITE
    • Prompt: !,FBI(3),?31,"|",?46,"|"," "
    • Line Location: OVR+9
    Function Call: WRITE
    • Prompt: ?48,$P(FBDX,"^",FBPDX)
    • Line Location: OVR+9
    Function Call: WRITE
    • Prompt: !,FBI(4)," ",PSTCD," ",FBI(6),?31,"|",?46,"|"
    • Line Location: OVR+10
    Function Call: WRITE
    • Prompt: ?48,$P(FBDX,"^",FBPDX),!,$E(UL,1,45),?46,"|"
    • Line Location: OVR+10
    Function Call: WRITE
    • Prompt: ?48,$P(FBDX,"^",FBPDX),!,$E(UL,1,45),?46,"|"
    • Line Location: OVR+10
    Function Call: WRITE
    • Prompt: !,"Name and Address of Fee Participant",?46,"|"
    • Line Location: OVR+11
    Function Call: WRITE
    • Prompt: ?48,$P(FBDX,"^",FBPDX)
    • Line Location: OVR+11
    Function Call: WRITE
    • Prompt: !,?46,"|",!,V(1),?46,"|",!,V(3),?46,"|"
    • Line Location: OVR+12
    Function Call: WRITE
    • Prompt: !,V(14),?46,"|"
    • Condition for execution: V(14)]""
    • Line Location: OVR+12
    Function Call: WRITE
    • Prompt: !,V(4)," ",VSTCD," ",V(6),?46,"|","REFERRING PROVIDER: "
    • Line Location: OVR+14
    Function Call: WRITE
    • Prompt: $$GET1^DIQ(200,REF,.01)
    • Line Location: OVR+15
    Function Call: WRITE
    • Prompt: !,V(2),?46,"|","NPI: ",$$REFNPI^FBCH78(REF,"",1)
    • Line Location: OVR+16
    Function Call: WRITE
    • Prompt: !,?46,"|","AUTHORIZATION #: ",DFN,"-",FBK,!,UL,!
    • Line Location: OVR+17
    Function Call: WRITE
    • Prompt: ?49,"AUTHORIZATION REMARKS",!,?49,$E(UL,1,21)
    • Line Location: OVR+18
    Routine Call
    • DIR
    • Line Location:
      • RDHOW

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DIC(21 - [#21] GOT+7
    ^DIC(5 - [#5] GOT+23, OVR+1
    ^DPT - [#2] GOTGOT+1, GOT+7, GOT+9, GOT+10
    ^FBAAA - [#161] GOT+11, GOT+13, GOT+15, GOT+16, GOT+20, GOT+21, OVR+19*
    ^FBAAA("AF" FBAA79+7, START+3
    ^FBAAV - [#161.2] GOT+24

    Label References

    Name Line Occurrences
    END FBAA79+6, FBAA79+7, RDHOWRDHOW+2, START
    GOT START+3
    OVR GOT+24

    Naked Globals

    Name Field # of Occurrence
    ^( GOT+7, GOT+9, GOT+11
    ^(0 GOT+23, GOT+24, OVR+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    BEGDATE RDHOW+2, START+3, END!
    CC END!, GOT+22*, GOT+23*
    CNT END+1!
    CODE END!, GOT+12*
    D END!
    DA END+1!
    DATE END+1!
    DFN START+3*, END!, GOTGOT+1, GOT+4, GOT+7, GOT+9, GOT+10, GOT+11, GOT+13
    GOT+15, GOT+16, GOT+20, GOT+21, OVR+17, OVR+19
    DIC END+1!
    DIR RDHOW!
    DIR("A" RDHOW*
    DIR("B" RDHOW*
    DIR(0 RDHOW*
    >> DIRUT RDHOW
    DT OVR+19
    ENDDATE RDHOW+2, START+3, END!
    FB7078 END+1!
    FBAABDT END+1!
    FBAAEDT END+1!
    FBAAOUT END+1!
    FBAASCR FBAA79+8*, RDHOW*, RDHOW+2, START+2*, START+3, END!
    FBASSOC END+1!
    FBAUT END+1!
    FBDX END!, GOT+20*, OVR+8, OVR+9, OVR+10, OVR+11
    FBI END!
    FBI( GOT+8*, GOT+9*
    FBI(1 OVR+7
    FBI(2 OVR+8
    FBI(3 OVR+9
    FBI(4 OVR+10
    FBI(5 GOT+22, OVR+1
    FBI(6 OVR+10
    FBI(7 GOT+22
    FBIDC END!, GOT+21*, OVR+2
    FBJ START+3*, END!, OVR+7
    FBK START+3*, END!, GOT+11, GOT+13, GOT+15, GOT+16, GOT+20, OVR+17, OVR+19
    FBLOC END+1!
    FBNAMES GOT+3~, GOT+5
    FBNAMES("FIELD" GOT+4*
    FBNAMES("FILE" GOT+4*
    FBNAMES("IENS" GOT+4*
    FBOUT END!, OVR+2*
    FBPATT END!, GOT+12*
    FBPDX END!, OVR+7*, OVR+8*, OVR+9*, OVR+10*, OVR+11*
    FBPG START+1*, END!, OVR+2, OVR+19*
    >> FBPOP FBAA79+6, RDHOW+2, START
    FBPOV END+1!
    FBPROG END+1!
    FBPSA END+1!
    FBPT END+1!
    FBREM END!, OVR+2*
    FBRR END!
    FBS END!
    FBS( OVR*
    FBS(5 OVR+1
    FBSITE END!
    FBSITE(0 OVR
    FBTT END+1!
    FBTYPE END+1!
    FBVEN END+1!
    FTP END+1!
    I END+1!, GOT+8*, GOT+9*
    IO START+2
    IOF OVR+2
    >> IOP RDHOW+2*
    J END+1!
    M END+1!
    NAME END!, GOT+5*, OVR+5
    NOV END!, GOT+13*
    PGM RDHOW+2*, END!
    PI END+1!
    PIDC END!, GOT+12*
    POS END!, GOT+7*
    POV END!, GOT+12*
    POW END!, GOT+10*
    PSTCD END!, OVR+1*, OVR+10
    Q END+1!
    REF END!, GOT+12*, OVR+15, OVR+16
    S END+1!, OVR*
    SEX END+1!, GOT+6*
    SSN END+1!, GOT+7*, OVR+5
    SSTCD END!, OVR+1*
    STATCD END!, GOT+22*, GOT+23
    TA END+1!
    U GOT+6, GOT+7
    UL START+1*, END!, OVR+2, OVR+5, OVR+10, OVR+17, OVR+18
    ULL START+1*, END!
    V END!, GOT+22*, GOT+25*
    V( GOT+22*, GOT+25*
    V(1 OVR+12
    V(14 OVR+12
    V(2 OVR+16
    V(3 OVR+12
    V(4 OVR+14
    V(5 OVR+1
    V(6 OVR+14
    VAL RDHOW+2*, END!
    VAR RDHOW+2*, END!
    VDX END!, GOT+12*, GOT+16*, GOT+17*, GOT+18*, OVR+7
    VFN END!, GOT+11*, GOT+24
    VFROM END!, GOT+11*, OVR+5
    VSTCD END!, OVR+1*, OVR+14
    VTO END!, GOT+11*, OVR+5
    Y RDHOWEND+1!
    Y(0 GOT+1*, GOT+6, GOT+7, GOT+11*, GOT+12, GOT+24*, GOT+25
    YOB END!, GOT+7*
    Z START+1*, END!
    ZZ START+3*, 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