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

Package: Fee Basis

Routine: FBCKDIS


Information

FBCKDIS ;AISC/CMR-OUTPUT BY CHECK # ;7/NOV/2006

Source Information

Source file <FBCKDIS.m>

Entry Points

Name Comments DBIA/ICR reference
TOP
START
END
OPT ;gather payment line item for outpatient
CH ;gather payment line item for ch
CNH ;gather payment line item for cnh
PHAR ;gather payment line item for pharmacy
TRAV ;gather payment line item for travel
CLEAN ;clean up variables
OUTPUT ;display line items for check number
HED
PGCHK

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: TOP+0
Function Call: WRITE
  • Prompt: !!,*7,"There is no record of that check number."
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: !!,"Patient: ",$$NAME^FBCHREQ2(DFN),?40,"Patient ID: ",$$SSNL4^FBAAUTL($$SSN^FBAAUTL(DFN))
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTPUT+2
Function Call: WRITE
  • Prompt: "#"
  • Condition for execution: FBVP="VP"
  • Line Location: OUTPUT+2
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: FBREIM="R"
  • Line Location: OUTPUT+2
Function Call: WRITE
  • Prompt: "+"
  • Condition for execution: FBCAN]""
  • Line Location: OUTPUT+2
Function Call: WRITE
  • Prompt: ?3,$$DATX^FBAAUTL($P(FBDOS,"-")),?15,$$DATX^FBAAUTL($P(FBDOS,"-",2)),?59,+$G(^FBAA(161.7,+FBBAT,0)),?68,FBINV
  • Line Location: OUTPUT+4
Function Call: WRITE
  • Prompt: !?3,$J($FN(FBAMCL,",",2),10),?15,$J($FN(FBAMPD,",",2),10)
  • Line Location: OUTPUT+5
Function Call: WRITE
  • Prompt: ?28,$S(FBADJLR]"":FBADJLR,1:FBSUSP)
  • Line Location: OUTPUT+7
Function Call: WRITE
  • Prompt: ?38,$S(FBADJLA]"":FBADJLA,1:FBSUSPA)
  • Line Location: OUTPUT+9
Function Call: WRITE
  • Prompt: !,?12,"FPPS Claim ID: ",FBFPPSC,?40,"FPPS Line Item: ",FBFPPSL
  • Line Location: OUTPUT+10
Function Call: WRITE
  • Prompt: ?3,$$DATX^FBAAUTL(FBDOS),?13,$P(FBSRV,","),?23,FBAARCE
  • Line Location: OUTPUT+12
Function Call: WRITE
  • Prompt: ?59,+$G(^FBAA(161.7,+FBBAT,0)),?68,FBINV
  • Line Location: OUTPUT+13
Function Call: WRITE
  • Prompt: !," (continued)"
  • Line Location: OUTPUT+17
Function Call: WRITE
  • Prompt: !,?18,"-",FBMOD
  • Line Location: OUTPUT+18
Function Call: WRITE
  • Prompt: !?3,$J($FN(FBAMCL,",",2),10),?15,$J($FN(FBAMPD,",",2),10)
  • Line Location: OUTPUT+19
Function Call: WRITE
  • Prompt: ?28,$S(FBADJLR]"":FBADJLR,1:FBSUSP)
  • Line Location: OUTPUT+21
Function Call: WRITE
  • Prompt: ?38,$S(FBADJLA]"":FBADJLA,1:FBSUSPA)
  • Line Location: OUTPUT+23
Function Call: WRITE
  • Prompt: !,?12,"FPPS Claim ID: ",FBFPPSC,?40,"FPPS Line Item: ",FBFPPSL
  • Line Location: OUTPUT+24
Function Call: WRITE
  • Prompt: ?3,$$DATX^FBAAUTL(FBDOS),?13,FBSRV,?59,+$G(^FBAA(161.7,+FBBAT,0)),?68,FBINV
  • Line Location: OUTPUT+26
Function Call: WRITE
  • Prompt: !?3,$J($FN(FBAMCL,",",2),10),?15,$J($FN(FBAMPD,",",2),10)
  • Line Location: OUTPUT+27
Function Call: WRITE
  • Prompt: ?28,$S(FBADJLR]"":FBADJLR,1:FBSUSP)
  • Line Location: OUTPUT+29
Function Call: WRITE
  • Prompt: ?38,$S(FBADJLA]"":FBADJLA,1:FBSUSPA)
  • Line Location: OUTPUT+31
Function Call: WRITE
  • Prompt: !,?12,"FPPS Claim ID: ",FBFPPSC,?40,"FPPS Line Item: ",FBFPPSL
  • Line Location: OUTPUT+32
Function Call: WRITE
  • Prompt: ?3,$$DATX^FBAAUTL(FBDOS)
  • Line Location: OUTPUT+33
Function Call: WRITE
  • Prompt: ?47,FBSUSP
  • Condition for execution: FBPROG'="TRAV" ?13,FBSRV W ?20,$J($FN(FBAMCL,",",2),10),?32,$J($FN(FBAMPD,",",2),10) W:FBPROG'="TRAV"
  • Line Location: OUTPUT+33
Function Call: WRITE
  • Prompt: ?53,+$G(^FBAA(161.7,+FBBAT,0)),?65,FBINV
  • Line Location: OUTPUT+33
Function Call: WRITE
  • Prompt: !?20,"PAYMENT HISTORY FOR CHECK # ",FBCN,!,?20,$E(Q,1,(28+$L(FBCN))),?70,"Page: ",FBPG
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: !!,?22,"FEE PROGRAM: ",$S(FBPROG="OPT":"OUTPATIENT",FBPROG="CH":"CIVIL HOSPITAL",FBPROG="CNH":"COMMUNITY NURSING HOME",FBPROG="PHAR":"PHARMACY",FBPROG="TRAV":"TRAVEL",1:"")
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !?1,"('*' Reimbursement to Patient '#' Voided Payment '+' Cancellation Activity)"
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !?3,"From Date",?15,"To Date",?59,"Batch #",?68,"Invoice #"
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !?3,"Amt Claimed",?17,"Amt Paid",?28,"Adj Code",?38,"Adj Amount"
  • Line Location: HED+5
Function Call: WRITE
  • Prompt: !,QQ
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !?3,"Travel Dt",?21,"Amount",?33,"Amount",?50,"Batch",?62,"Invoice",!,?21,"Claimed",?34,"Paid",?50,"Number",?62,"Number",!,QQ
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: !?3,"Svc Date",?13,"CPT-MOD",?23,"Rev.Code",?59,"Batch #",?68,"Invoice #"
  • Line Location: HED+9
Function Call: WRITE
  • Prompt: !?3,"Amt Claimed",?17,"Amt Paid",?28,"Adj Code",?38,"Adj Amount"
  • Line Location: HED+10
Function Call: WRITE
  • Prompt: !,QQ
  • Line Location: HED+11
Function Call: WRITE
  • Prompt: !?3,"Fill Dt",?13,"RX #",?56,"Batch #",?68,"Invoice #"
  • Line Location: HED+13
Function Call: WRITE
  • Prompt: !?3,"Amt Claimed",?17,"Amt Paid",?28,"Adj Code",?38,"Adj Amount"
  • Line Location: HED+14
Function Call: WRITE
  • Prompt: !,QQ
  • Line Location: HED+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
162.03 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call