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

Package: Fee Basis

Routine: FBCHRJP


Information

FBCHRJP ;AISC/DMK/CMR - PRINT REJECTED PAYMENTS FROM PRICER ;18APR90

Source Information

Source file <FBCHRJP.m>

Entry Points

Name Comments DBIA/ICR reference
START
END
PRINT
HED

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"No payments rejected!",!
  • Line Location: FBCHRJP+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !!,"Vendor: ",$P(FBVEN,";"),?41,"Vendor ID: ",+$P(FBVEN,";",2)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Patient: ",$P(FBNAME,";"),?41,"Patient ID: ",$$SSN^FBAAUTL($P(FBNAME,";",2))
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: FBIN(8)["R"
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: "#"
  • Condition for execution: FBIN(9)]""
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?3,FBIN(1),?23,FBIN(2),?33,FBIN(3),?42,FBIN(4),?49,FBIN(5),?61,FBIN(6),?72,FBIN(7)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !?3,"DX: ",$P($P($G(^TMP($J,"FB",6,FBVEN,FBNAME,FBDT,FBI,"DX")),U,1),"/",1)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !?3,"Associated 7078: ",FB7078,!?3,$S(FBREJ(1)="P":"Rejects Pending!",FBREJ(1)="C":"Rejected!",1:""),?23,"Reject Reason: ",FBREJ(2),!?3,"Old Batch #: ",FBREJ(3)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !?18,"CIVIL HOSPITAL REJECTED PAYMENT HISTORY",!?18,QQ
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: !!?3,"('*' Represents Reimbursement to Patient",?50,"'#' Represents Voided Payment)"
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !?2,"Inv Date",?23,"Amount",?33," Amount",?42,"Adj",?49,"Invoice",?61,"From",?73,"To"
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: !?23,"Claimed",?35,"Paid",?42,"Code",?53,"Num",?61,"Date",?71,"Date",!,Q
  • Line Location: HED+3
Info |  Source |  Entry Points |  Interaction Calls