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

Package: Fee Basis

Routine: FBFPAR


Information

FBFPAR ;WOIFO/SAB-FPPS AUDIT REPORT ;7/18/2003

Source Information

Source file <FBFPAR.m>

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry
GATHER ; collect and sort data
PRINT ; report data
EXIT ;
HD ; page header
PRINT1 ; Print one audit record (FBDA)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"no Audit entries found."
  • Line Location: PRINT+24
Function Call: WRITE
  • Prompt: !!,"REPORT STOPPED AT USER REQUEST"
  • Line Location: PRINT+26
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !,"FPPS Data Audit Report "
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: "by Date Range"
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: "for Invoice: ",FBAAIN
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: ?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,FBHDT(FBI)
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !!,"Date/Time Changed",?19,"File",?27,"IENS",?58,"User"
  • Line Location: HD+11
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+12
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+4
Function Call: WRITE
  • Prompt: !,FBADT,?19,FB(163.7,FBIENS,2),?27,FB(163.7,FBIENS,3)
  • Line Location: PRINT1+9
Function Call: WRITE
  • Prompt: ?58,$E(FB(163.7,FBIENS,7),1,20)
  • Line Location: PRINT1+10
Function Call: WRITE
  • Prompt: !?4,"Field: "
  • Line Location: PRINT1+11
Function Call: WRITE
  • Prompt: $$GET1^DID(FB(163.7,FBIENS,2),FB(163.7,FBIENS,4),"","LABEL")
  • Line Location: PRINT1+12
Function Call: WRITE
  • Prompt: ?27,"Old Field Value: ",FB(163.7,FBIENS,5)
  • Line Location: PRINT1+13
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT1+14
Function Call: WRITE
  • Prompt: ?4,"Invoice: ",FB(163.7,FBIENS,.01)
  • Line Location: PRINT1+15
Function Call: WRITE
  • Prompt: ?27,"New Field Value: ",FB(163.7,FBIENS,6)
  • Line Location: PRINT1+16
Function Call: WRITE
  • Prompt: !,?4,"Prescription: "
  • Line Location: PRINT1+20
Function Call: WRITE
  • Prompt: $$GET1^DIQ(162.11,FB(163.7,FBIENS,3),.01)
  • Line Location: PRINT1+21
Function Call: WRITE
  • Prompt: !,?4,"Patient: "
  • Line Location: PRINT1+27
Function Call: WRITE
  • Prompt: $$GET1^DIQ(162,FBDA(3)_",",.01)
  • Line Location: PRINT1+28
Function Call: WRITE
  • Prompt: ?40,"Vendor: "
  • Line Location: PRINT1+29
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(162.01,FBDA(2)_","_FBDA(3)_",",.01),1,30)
  • Line Location: PRINT1+30
Function Call: WRITE
  • Prompt: !,?4,"Date of Service: "
  • Line Location: PRINT1+31
Function Call: WRITE
  • Prompt: $$GET1^DIQ(162.02,FBDA(1)_","_FBDA(2)_","_FBDA(3)_",",.01)
  • Line Location: PRINT1+32
Function Call: WRITE
  • Prompt: ?36,"Service Provided: "
  • Line Location: PRINT1+33
Function Call: WRITE
  • Prompt: $$GET1^DIQ(162.03,FB(163.7,FBIENS,3),.01)
  • Line Location: PRINT1+34

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAC - [#162] GET1^DIQ
162.01 GET1^DIQ
162.02 GET1^DIQ
162.03 GET1^DIQ
162.11 GET1^DIQ
^FB(163.7 - [#163.7] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call