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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: FBARCHR0

Package: Fee Basis

Routine: FBARCHR0


Information

FBARCHR0 ; HINOIFO/BNT - ARCH Reports ; 05/09/11 5:30pm

Source Information

Source file <FBARCHR0.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 $$FMTE^XLFDT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Fee Basis 1 FBARCHU  

Entry Points

Name Comments DBIA/ICR reference
XREPORT
SELJUST() ; Select the ARCH Justification Reason
; Return Value -> FEE BASIS PROJECT ARCH JUSTIFICATION file #161.35 IEN
HEADLN3 ; Write the third header line
HEADLN2 ; Write the second header line
HEADLN1 ; Write the first header line
ULINE(X)
WRLINE2(FBEXCEL,FBJUST) ; Write Line 2 of report
SELELIG(DFLT) ; Select ARCH Eligibility Status
; Input Variable -> DFLT = 0 - NO patient is not ARCH eligible
; 1 - YES patient is ARCH eligible
; 2 - BOTH
SELELDET(DFLT) ; Select ARCH Eligibility Determination
; Input Variable -> DFLT = 0 - CAC
; 1 - SAS DB Update
; 2 - All
REPORT(REF,FBEXCEL,FBSCR,FBRPTNAM,FBPAT,FBBEGDT,FBENDDT,FBELIG,FBELDET,FBSUMDET,FBPAGE) ; Display the report
SELEXCEL() ; - Returns whether to capture data for Excel report.
; Output: EXCEL = 1 - YES (capture data) / 0 - NO (DO NOT capture data)
HDR(FBRPTNAM,FBPAGE) ;
SELPAT(DFLT) ; - Returns either a Fee Basis Patient IEN or 0 for All patients
CHKP(FBLINES)
PAUSE
SELDATE(DFLT) ; Select Date Range
; Input Variable -> DFLT = 1 - ARCH Eligibility Date
; 0 - All Dates
SELSMDET(DFLT) ; Display (S)ummary or (D)etail Format
; Input Variable -> DFLT = 1 Summary
; 2 Detail
;
; Return Value -> 1 = Summary
; 0 = Detail
; ^ = Exit
WRLINE1(FBEXCEL,ID,PATIENT,ELIGDT,ELIGIND,DETERM) ; Write Line 1 of report
EXMSG ;
LJ(FBST,FBLEN) ;
PAUSE2
HEXC ; - 'Do you want to capture data...' prompt
DATTIM(X) ;Convert FM date or date.time to displayable (mm/dd/yy HH:MM) format
WRLINE3(FBEXCEL,FBMILE) ; Write Line 3 of report
RJ(FBST,FBLEN)
CHKKEY(KEY) ; Check if user holds the appropriate security key
; Return 1 if user holds key, 0 if not and display message
EXHDR ; Write the Excel Report Header

External References

Name Field # of Occurrence
^DIR SELSMDET+11, SELEXCEL+8, SELPAT+4, SELPAT+11, SELDATE+14, SELDATE+20, SELDATE+28, SELELIG+13, SELELDET+13, SELELDET+21
, SELJUST+21
$$FMTE^XLFDT WRLINE1+1, WRLINE1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SELEXCEL+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDATE+20
Function Call: WRITE
  • Prompt: !!," Project ARCH Justification Reasons",!
  • Line Location: SELJUST+5
Function Call: WRITE
  • Prompt: !,?5,X
  • Line Location: SELJUST+12
Function Call: WRITE
  • Prompt: ?10,$E($P(FBJAR(X),U),1,69),"-"
  • Line Location: SELJUST+16
Function Call: WRITE
  • Prompt: !,?10,$E($P(FBJAR(X),U),70,$L($P(FBJAR(X),U)))
  • Line Location: SELJUST+17
Function Call: WRITE
  • Prompt: ?10,$E($P(FBJAR(X),U),1,70)
  • Line Location: SELJUST+18
Function Call: WRITE
  • Prompt: !,?10,$E($P(FBJAR(X),U),71,$L($P(FBJAR(X),U)))
  • Line Location: SELJUST+19
Function Call: WRITE
  • Prompt: !
  • Line Location: SELJUST+20
Function Call: WRITE
  • Prompt: " ",$P(FBJAR(Y),U),!
  • Line Location: SELJUST+23
Function Call: WRITE
  • Prompt: !!," Enter: 'Y' - To capture detail report data to transfer"
  • Line Location: HEXC+1
Function Call: WRITE
  • Prompt: !," to an Excel document"
  • Line Location: HEXC+2
Function Call: WRITE
  • Prompt: !," '<CR>' - To skip this option"
  • Line Location: HEXC+3
Function Call: WRITE
  • Prompt: !," '^' - To quit this option"
  • Line Location: HEXC+4
Function Call: WRITE
  • Prompt: !!?5,"Before continuing, please set up your terminal to capture the"
  • Line Location: EXMSG+1
Function Call: WRITE
  • Prompt: !?5,"detail report data. On some terminals, this can be done by"
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !?5,"clicking on the 'Tools' menu above, then click on 'Capture"
  • Line Location: EXMSG+3
Function Call: WRITE
  • Prompt: !?5,"Incoming Data' to save to Desktop. This report may take a"
  • Line Location: EXMSG+4
Function Call: WRITE
  • Prompt: !?5,"while to run."
  • Line Location: EXMSG+5
Function Call: WRITE
  • Prompt: !!?5,"Note: To avoid undesired wrapping of the data saved to the"
  • Line Location: EXMSG+6
Function Call: WRITE
  • Prompt: !?5," file, please enter '0;256;999' at the 'DEVICE:' prompt.",!
  • Line Location: EXMSG+7
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue, '^' to exit:"
  • Line Location: PAUSE+1
Function Call: READ
  • Timeout: $G(DTIME)
  • Variable: X
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue:"
  • Line Location: PAUSE2+1
Function Call: READ
  • Timeout: $G(DTIME)
  • Variable: X
  • Line Location: PAUSE2+2
Function Call: WRITE
  • Prompt: !,"You must hold the "_KEY_" Security Key in order to continue."
  • Line Location: CHKKEY+4
Function Call: WRITE
  • Prompt: !,"No data meets the criteria."
  • Line Location: REPORT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: REPORT+43
Function Call: WRITE
  • Prompt: !,"Total Nationally Determined Project ARCH Eligible Patients: "_FBNCNT
  • Line Location: REPORT+44
Function Call: WRITE
  • Prompt: !,"Total Locally Determined Project ARCH Eligible Patients: "_FBLOCNT
  • Line Location: REPORT+45
Function Call: WRITE
  • Prompt: !,"Total Locally Determined Eligible changed to Not Eligible: "_FBNELCNT
  • Line Location: REPORT+46
Function Call: WRITE
  • Prompt: !,ID_U_PATIENT_U_$$FMTE^XLFDT(ELIGDT)_U_$S(ELIGIND=1:"YES",1:"NO")_U_DETERM
  • Line Location: WRLINE1+1
Function Call: WRITE
  • Prompt: !,ID,?8,PATIENT,?35,$$FMTE^XLFDT(ELIGDT),?51,$S(ELIGIND=1:"YES",1:"NO"),?64,DETERM
  • Line Location: WRLINE1+3
Function Call: WRITE
  • Prompt: U_$P(^FBAA(161.35,FBJUST,0),U)
  • Line Location: WRLINE2+1
Function Call: WRITE
  • Prompt: !,?10,$P(^FBAA(161.35,FBJUST,0),U)
  • Line Location: WRLINE2+3
Function Call: WRITE
  • Prompt: U_FBMILE
  • Line Location: WRLINE3+1
Function Call: WRITE
  • Prompt: !,?12,FBMILE
  • Line Location: WRLINE3+3
Function Call: WRITE
  • Prompt: !
  • Line Location: ULINE+1
Function Call: WRITE
  • Prompt: $G(X,"-")
  • Line Location: ULINE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: FBRPTNAM_" ("_$S(FBSUMDET=1:"SUMMARY",1:"DETAIL")_" REPORT)"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: $$RJ("Page: "_FBPAGE,30)
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,"Print Date: "_$G(FBNOW)
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !,"Report Date From "_$$DATTIM(FBBEGDT)_" through "_$$DATTIM($P(FBENDDT,"."))
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: !,"ID#"_U
  • Line Location: EXHDR+1
Function Call: WRITE
  • Prompt: "PATIENT"_U
  • Line Location: EXHDR+2
Function Call: WRITE
  • Prompt: "ELIG DATE"_U
  • Line Location: EXHDR+3
Function Call: WRITE
  • Prompt: "ELIGIBLE"_U
  • Line Location: EXHDR+4
Function Call: WRITE
  • Prompt: "DETERMINATION"_U
  • Line Location: EXHDR+5
Function Call: WRITE
  • Prompt: "LOCAL JUSTIFICATION"_U
  • Line Location: EXHDR+6
Function Call: WRITE
  • Prompt: "LOCAL VERIFICATION OF MILEAGE"_U
  • Line Location: EXHDR+7
Function Call: WRITE
  • Prompt: !,"ID#",?8,"Patient",?35,"Elig Date",?51,"Eligible",?64,"Determination"
  • Line Location: HEADLN1+1
Function Call: WRITE
  • Prompt: !,?10,"Local Project ARCH Justification"
  • Line Location: HEADLN2+1
Function Call: WRITE
  • Prompt: !,?12,"Local Verification of Mileage"
  • Line Location: HEADLN3+1
Routine Call
  • DIR
  • Line Location:
    • SELSMDET+11
    • SELEXCEL+8
    • SELPAT+4
    • SELPAT+11
    • SELDATE+14
    • SELDATE+20
    • SELDATE+28
    • SELELIG+13
    • SELELDET+13
    • SELELDET+21
    • SELJUST+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] REPORT+8, REPORT+29
^FBAA(161.35 - [#161.35] SELJUST+6, SELJUST+7, SELJUST+8, WRLINE2+1, WRLINE2+3
^FBAAA - [#161] REPORT+16
^VA(200 - [#200] REPORT+18
^XUSEC( CHKKEY+3

Label References

Name Line Occurrences
$$CHKP REPORT+27
$$DATTIM HDR+11
$$RJ HDR+9
EXHDR HDR+2
EXMSG SELEXCEL+13
HDR REPORT+4, CHKP+5
HEADLN1 HDR+17
HEADLN2 HDR+18
HEADLN3 HDR+19
PAUSE CHKP+5
PAUSE2 CHKKEY+5
ULINE HDR+14, HDR+20
WRLINE1 REPORT+29
WRLINE2 REPORT+30
WRLINE3 REPORT+31
XREPORT REPORT+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT SELJUST+3~, SELJUST+4*, SELJUST+9*, SELJUST+10, SELJUST+21
DATE DATTIM+1~, DATTIM+2*, DATTIM+6*, DATTIM+7
DETERM WRLINE1~, WRLINE1+1, WRLINE1+3
DETUSR REPORT+1~, REPORT+18*, REPORT+29
DFLT SELSMDET~, SELSMDET+9*, SELSMDET+10, SELPAT~, SELPAT+2*, SELPAT+3, SELDATE~, SELDATE+12*, SELDATE+13, SELELIG~
, SELELIG+11*, SELELIG+12, SELELDET~, SELELDET+11*, SELELDET+12
DFN REPORT+1~, REPORT+7*, REPORT+8, REPORT+10, REPORT+12, REPORT+15, REPORT+16, REPORT+25, REPORT+29, REPORT+36~*
, REPORT+38, REPORT+40
DIR SELSMDET+8~, SELEXCEL+3~, SELEXCEL+8!, SELPAT+1~, SELPAT+8~, SELDATE+11~, SELELIG+10~, SELELDET+10~, SELELDET+17~, SELJUST+3~
DIR("?" SELEXCEL+7*
DIR("A" SELSMDET+10*, SELEXCEL+6*, SELPAT+3*, SELDATE+13*, SELDATE+19*, SELDATE+27*, SELELIG+12*, SELELDET+12*, SELELDET+20*, SELJUST+21*
DIR("B" SELSMDET+10*, SELEXCEL+5*, SELPAT+3*, SELDATE+13*, SELDATE+19*, SELDATE+27*, SELELIG+12*, SELELDET+12*
DIR("S" SELPAT+10*, SELELDET+19*
DIR("T" SELEXCEL+5*
DIR(0 SELSMDET+10*, SELEXCEL+5*, SELPAT+3*, SELPAT+10*, SELDATE+13*, SELDATE+19*, SELDATE+27*, SELELIG+12*, SELELDET+12*, SELELDET+19*
, SELJUST+21*
DIROUT SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!
DIRUT SELSMDET+8~, SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!, SELPAT+1~, SELPAT+8~, SELDATE+11~, SELELIG+10~, SELELDET+10~, SELELDET+17~
DTIME SELEXCEL+5, PAUSE+2, PAUSE2+2
DTOUT SELSMDET+8~, SELSMDET+12, SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!, SELPAT+1~, SELPAT+5, SELPAT+8~, SELPAT+11, SELDATE+11~
, SELDATE+15, SELDATE+23, SELDATE+31, SELELIG+10~, SELELIG+14, SELELDET+10~, SELELDET+14, SELELDET+17~, SELELDET+21, SELJUST+3~
, SELJUST+22
DUOUT SELSMDET+8~, SELSMDET+12, SELEXCEL+3~, SELEXCEL+8, SELEXCEL+9!, SELPAT+1~, SELPAT+5, SELPAT+8~, SELPAT+11, SELDATE+11~
, SELDATE+15, SELDATE+23, SELDATE+31, SELELIG+10~, SELELIG+14, SELELDET+10~, SELELDET+14, SELELDET+17~, SELELDET+21, SELJUST+3~
, SELJUST+22
DUZ CHKKEY+3
ELIGDT REPORT+1~, REPORT+12*, REPORT+14, REPORT+15, REPORT+29, WRLINE1~, WRLINE1+1, WRLINE1+3
ELIGIND REPORT+1~, REPORT+17*, REPORT+20, REPORT+25, REPORT+29, WRLINE1~, WRLINE1+1, WRLINE1+3
EXCEL SELEXCEL+3~, SELEXCEL+10*, SELEXCEL+13, SELEXCEL+15
FB11 REPORT+1~, REPORT+15*, REPORT+16
FBAP DATTIM+1~, DATTIM+5*, DATTIM+6
FBARCH0 REPORT+1~, REPORT+16*, REPORT+17, REPORT+18, REPORT+22, REPORT+23, REPORT+25, REPORT+30, REPORT+31
FBBEGDT REPORT~, REPORT+14, HDR+11
FBCNT REPORT+1~, REPORT+3*, REPORT+26*, REPORT+29
>> FBDATA CHKP+3*, CHKP+4*, HDR+5*
FBELDET REPORT~, REPORT+22, REPORT+23
FBELIG REPORT~, REPORT+20, REPORT+44, REPORT+45, REPORT+46
FBELPAT REPORT+2~
FBELPAT( REPORT+25*, REPORT+36, REPORT+38, REPORT+40
FBENDDT REPORT~, HDR+11
FBEXCEL REPORT~, REPORT+29, REPORT+30, REPORT+31, WRLINE1~, WRLINE1+1, WRLINE2~, WRLINE2+1, WRLINE3~, WRLINE3+1
, CHKP, HDR+2
FBH DATTIM+1~, DATTIM+4*, DATTIM+5*, DATTIM+6*
FBJAR SELJUST+3~
FBJAR( SELJUST+10*, SELJUST+11, SELJUST+13, SELJUST+15, SELJUST+16, SELJUST+17, SELJUST+18, SELJUST+19, SELJUST+23, SELJUST+24
FBJUST SELJUST+3~, SELJUST+4*, SELJUST+6*, SELJUST+7, SELJUST+10, WRLINE2~, WRLINE2+1, WRLINE2+3
FBL LJ+1~, LJ+2*, LJ+3, RJ+1*, RJ+2
FBLEN LJ~, LJ+2, LJ+3, RJ~, RJ+1, RJ+3
FBLINES CHKP~, CHKP+1*, CHKP+2*, CHKP+5
FBLOCNT REPORT+2~, REPORT+3*, REPORT+38*, REPORT+45
FBM DATTIM+1~, DATTIM+4*, DATTIM+6
FBMILE WRLINE3~, WRLINE3+1, WRLINE3+3
FBNCNT REPORT+2~, REPORT+3*, REPORT+40*, REPORT+44
FBNELCNT REPORT+2~, REPORT+3*, REPORT+42*, REPORT+46
>> FBNOW HDR+10
FBNPAT REPORT+2~, REPORT+11*, REPORT+26, REPORT+29, REPORT+33*
FBPAGE REPORT~, REPORT+4, CHKP+5, HDR~, HDR+6*, HDR+9
FBPAT REPORT~, REPORT+10
>> FBQ PAUSE+2*, PAUSE2+2*, REPORT+7, REPORT+12, REPORT+15, REPORT+27, REPORT+34, CHKP+5, HDR+14
FBRPTNAM REPORT~, REPORT+4, CHKP+5, HDR~, HDR+8
FBSCR REPORT~, CHKP+2, CHKP+3, CHKP+5
FBST LJ~, LJ+2, LJ+3, RJ~, RJ+1, RJ+2, RJ+3
FBSUMDET REPORT~, REPORT+28, HDR+8, HDR+16
FBT DATTIM+1~, DATTIM+3*, DATTIM+4, DATTIM+6
I ULINE~, ULINE+1*
ID WRLINE1~, WRLINE1+1, WRLINE1+3
IEN SELJUST+3~, SELJUST+7*, SELJUST+8, SELJUST+10
IO PAUSE+3, PAUSE2+3
IO(0 PAUSE+1, PAUSE2+1
IOF HDR+7
IOSL CHKP+5
KEY CHKKEY~, CHKKEY+2, CHKKEY+3, CHKKEY+4
NP REPORT+2~, REPORT+27*
PATIENT WRLINE1~, WRLINE1+1, WRLINE1+3
REF REPORT~, REPORT+5, REPORT+7, REPORT+12, REPORT+15
U SELDATE+26, SELDATE+34, SELJUST+8, SELJUST+10, SELJUST+13, SELJUST+15, SELJUST+16, SELJUST+17, SELJUST+18, SELJUST+19
, SELJUST+23, SELJUST+24, REPORT+17, REPORT+18, REPORT+22, REPORT+23, REPORT+25, REPORT+29, REPORT+30, REPORT+31
, WRLINE1+1, WRLINE2+1, WRLINE2+3, WRLINE3+1, EXHDR+1, EXHDR+2, EXHDR+3, EXHDR+4, EXHDR+5, EXHDR+6
, EXHDR+7
VAL SELDATE+11~, SELDATE+19*, SELDATE+23*, SELDATE+25, SELDATE+26*, SELDATE+27, SELDATE+31*, SELDATE+34*, SELDATE+36
X SELSMDET+8~, SELPAT+1~, SELDATE+11~, SELDATE+23, SELDATE+31, SELELIG+10~, SELELDET+10~, SELJUST+3~, SELJUST+4*, SELJUST+11*
, SELJUST+12, SELJUST+13, SELJUST+15, SELJUST+16, SELJUST+17, SELJUST+18, SELJUST+19, PAUSE~, PAUSE+2*, PAUSE2~
, PAUSE2+2*, ULINE~, ULINE+1, DATTIM~, DATTIM+2, DATTIM+3
Y SELSMDET+8~, SELSMDET+12*, SELSMDET+13*, SELSMDET+14, SELEXCEL+10, SELPAT+1~, SELPAT+5*, SELPAT+6*, SELPAT+7, SELPAT+11*
, SELPAT+12*, SELPAT+13, SELDATE+11~, SELDATE+15*, SELDATE+16*, SELDATE+17, SELDATE+26, SELDATE+34, SELELIG+10~, SELELIG+14*
, SELELIG+15*, SELELIG+16, SELELDET+10~, SELELDET+14*, SELELDET+15*, SELELDET+16, SELELDET+21*, SELELDET+22*, SELELDET+23, SELJUST+3~
, SELJUST+22*, SELJUST+23, SELJUST+24
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All