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

Entry Points

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

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
  • Variable: X
  • Timeout: $G(DTIME)
  • Line Location: PAUSE+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue:"
  • Line Location: PAUSE2+1
Function Call: READ
  • Variable: X
  • Timeout: $G(DTIME)
  • 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
Info |  Source |  Entry Points |  Interaction Calls