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

Entry Points

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

    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

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] GET1^DIQ
    Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call