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

Package: Fee Basis

Routine: FBAACLU


Information

FBAACLU ;AISC/DMK,WOIFO/SAB - CLERK WHO ENTERED AUTHORIZATION ;12/8/2014

Source Information

Source file <FBAACLU.m>

Entry Points

Name Comments DBIA/ICR reference
QEN ; queued entry point
; inputs from Taskman
; ZTQUEUED - (optional) set by TaskMan to indicate report is tasked
; outputs to Taskman
; ZTREQ - set when report is tasked
; ZTSTOP - set when report is tasked and job was stopped per request
EXIT ;
HD ; page header
HDEDT(FBCONT) ; header for edited table
; input
; FBCONT (optional) =1 when table continued after page break
DUA(FBROOT) ; display the user audit for a record in one of the supported files

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Authorization"
  • Line Location: QEN+46
Function Call: WRITE
  • Prompt: !,"Veteran: ",$$GET1^DIQ(161,FBDA(1)_",",.01)
  • Line Location: QEN+47
Function Call: WRITE
  • Prompt: ?40,"Vendor: ",$$GET1^DIQ(161.01,FBIENS,.04)
  • Line Location: QEN+48
Function Call: WRITE
  • Prompt: !,"Authorization Number: ",FBDA(1),"-",FBDA
  • Line Location: QEN+49
Function Call: WRITE
  • Prompt: !,"Authorized From Date: ",$$GET1^DIQ(161.01,FBIENS,.01)
  • Line Location: QEN+50
Function Call: WRITE
  • Prompt: ?40,"Authorized To Date: ",$$GET1^DIQ(161.01,FBIENS,.02)
  • Line Location: QEN+51
Function Call: WRITE
  • Prompt: !!,"10-7078 Authorization"
  • Line Location: QEN+59
Function Call: WRITE
  • Prompt: !,"Veteran: ",$$GET1^DIQ(162.4,FBIENS,2)
  • Line Location: QEN+60
Function Call: WRITE
  • Prompt: ?40,"Vendor: ",$$GET1^DIQ(161.2,FBVEN_",",.01)
  • Line Location: QEN+62
Function Call: WRITE
  • Prompt: !,"Reference Number: ",$$GET1^DIQ(162.4,FBIENS,.01)
  • Line Location: QEN+63
Function Call: WRITE
  • Prompt: ?40,"Fee Program: ",$$GET1^DIQ(162.4,FBIENS,.5)
  • Line Location: QEN+64
Function Call: WRITE
  • Prompt: !,"Authorized From Date: ",$$GET1^DIQ(162.4,FBIENS,3)
  • Line Location: QEN+65
Function Call: WRITE
  • Prompt: ?40,"Authorized To Date: ",$$GET1^DIQ(162.4,FBIENS,4)
  • Line Location: QEN+66
Function Call: WRITE
  • Prompt: !!,"CH Notification"
  • Line Location: QEN+73
Function Call: WRITE
  • Prompt: !,"Date/Time: ",$$GET1^DIQ(162.2,FBIENS,.01)
  • Line Location: QEN+74
Function Call: WRITE
  • Prompt: !,"Veteran: ",$$GET1^DIQ(162.2,FBIENS,3)
  • Line Location: QEN+75
Function Call: WRITE
  • Prompt: ?40,"Vendor: ",$$GET1^DIQ(162.2,FBIENS,1)
  • Line Location: QEN+76
Function Call: WRITE
  • Prompt: !!,"Unauthorized Claim"
  • Line Location: QEN+83
Function Call: WRITE
  • Prompt: !,"Veteran: ",$$GET1^DIQ(162.7,FBIENS,2)
  • Line Location: QEN+84
Function Call: WRITE
  • Prompt: ?40,"Vendor: ",$$GET1^DIQ(162.7,FBIENS,1)
  • Line Location: QEN+85
Function Call: WRITE
  • Prompt: !,"Date Claim Received: ",$$GET1^DIQ(162.7,FBIENS,.01)
  • Line Location: QEN+86
Function Call: WRITE
  • Prompt: ?40,"Fee Program: ",$$GET1^DIQ(162.7,FBIENS,.5)
  • Line Location: QEN+87
Function Call: WRITE
  • Prompt: !,"Treatment From Date: ",$$GET1^DIQ(162.7,FBIENS,3)
  • Line Location: QEN+88
Function Call: WRITE
  • Prompt: ?40,"Treatment To Date: ",$$GET1^DIQ(162.7,FBIENS,4)
  • Line Location: QEN+89
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: FBHD,?49,FBDTR,?72,"page ",FBPG
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,FBDL
  • Line Location: HD+7
Function Call: WRITE
  • Prompt: !!,?4,"Date/Time Edited",?27,"Edited By"
  • Line Location: HDEDT+3
Function Call: WRITE
  • Prompt: !,FBDL("ED")
  • Line Location: HDEDT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DUA+11
Function Call: WRITE
  • Prompt: ?4,$S(FBDT:$$FMTE^XLFDT(FBDT),1:"")
  • Line Location: DUA+12
Function Call: WRITE
  • Prompt: ?27,$S(FBUSR:$$GET1^DIQ(200,FBUSR,.01),1:"")
  • Line Location: DUA+13
Function Call: WRITE
  • Prompt: !,?6,"Comments: ",FBTXT
  • Line Location: DUA+14
Function Call: WRITE
  • Prompt: !,?4,"No information found in user audit"
  • Line Location: DUA+15

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAAA - [#161] Classic Fileman Calls,  GET1^DIQ
161.01 GET1^DIQ
^FBAAV - [#161.2] GET1^DIQ
^FBAA(162.2 - [#162.2] Classic Fileman Calls,  GET1^DIQ
^FB7078 - [#162.4] Classic Fileman Calls,  GET1^DIQ
^FB583 - [#162.7] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call