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

Package: Fee Basis

Routine: FBUTL136


Information

FBUTL136 ;DSS/LJF - FEE BASIS UTILITY FOR UNIQUE CLAIM ID - FEE5010 (overflow from FBUTL135) ;3/23/2012

Source Information

Source file <FBUTL136.m>

Entry Points

Name Comments DBIA/ICR reference
ENTROUTP(DFN,FBV,FBAAVID,FBCLAIMS) ; OUTPATIENT ENTER UCID
; Input: DFN - Patient ID
; FBV - Vendor IEN
; FBAAVID - Vendor Invoice Date
; FBCLAIMS - FPPS claim id
; Output: returns UCID
EDITOUTP(FBXSTR,FBDA) ;
; Inputs: FBXSTR = FPPS CLAIM ID entered by user
; FBDA = DA variable containing SERVICE PROVIDED, INITIAL TREATMENT DATE, VENDOR, PATIENT
OUTPHELP(DFN,FBV) ; ?? response
ENTINPAT(FBSTA,FBSRC,FBINT,FBCLT,FBCLAIMS,FBVEND) ;Returns UCID; FB*3.5*135
; Input: FBSTA = Station
; FBSRC = Source
; FBINT = Initiation Type
; FBCLT = Claim Type
; FBCLAIMS = FPPS CLAIM ID - replaces sequence number
; FBVEND = Vendor IEN
ENTHELP(FBVEND,FBTOUT,FBUOUT) ; Help for UCID in "FBCH ENTER PAYMENT" ; FB*3.5*135
EDINPAT(FBXSTR,FBI) ; EDIT UNIQUE CLAIM ID for FEE BASIS INVOICE file - 162.5
; Input: FBXSTR = FPPS value entered by user for FPPS
; FBI = IEN of Invoice record

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !
  • Prompt: "CLAIM NUMBER: "
  • Variable: FBANS
  • Timeout: DTIME
  • Line Location: ENTROUTP+17
Function Call: WRITE
  • Prompt: "#: "_$E(FBANS,9,28)
  • Line Location: ENTROUTP+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ENTROUTP+22
Function Call: WRITE
  • Prompt: !!,"This is a required response. ""^"" is not allowed.",!
  • Line Location: ENTROUTP+25
Function Call: WRITE
  • Prompt: !!,"Enter ""NEW"" to automatically generate a new claim number,"
  • Line Location: ENTROUTP+27
Function Call: WRITE
  • Prompt: !,"or enter an existing numeric claim number in format YYYY-<nn..>,"
  • Line Location: ENTROUTP+28
Function Call: WRITE
  • Prompt: !,"or enter ?? to see a list of existing claim numbers for this vendor.",!
  • Line Location: ENTROUTP+29
Function Call: WRITE
  • Prompt: !!,"This is a required response.",!
  • Line Location: ENTROUTP+30
Function Call: WRITE
  • Prompt: !!,"** INVALID CLAIM NUMBER **",!!
  • Line Location: ENTROUTP+31
Function Call: WRITE
  • Prompt: !!,"** INVALID CLAIM NUMBER ***",!!
  • Line Location: ENTROUTP+34
Function Call: READ
  • Variable: FBANS
  • Timeout: DTIME
  • Line Location: EDITOUTP+50
Function Call: WRITE
  • Prompt: !,FBPRMPT
  • Line Location: EDITOUTP+50
Function Call: WRITE
  • Prompt: "#: "_$E(FBANS,9,28)
  • Line Location: EDITOUTP+54
Function Call: WRITE
  • Prompt: !!," REQUIRED ENTRY.",!
  • Line Location: EDITOUTP+58
Function Call: WRITE
  • Prompt: !!,"This is a required response. ""^"" is not allowed.",!
  • Line Location: EDITOUTP+59
Function Call: WRITE
  • Prompt: !!,"Enter ""NEW"" to automatically generate a new claim number,"
  • Line Location: EDITOUTP+61
Function Call: WRITE
  • Prompt: !,"or enter an existing numeric claim number in format YYYY-<nn..>,"
  • Line Location: EDITOUTP+62
Function Call: WRITE
  • Prompt: !,"or enter ?? to see a list of existing claim numbers for this vendor.",!
  • Line Location: EDITOUTP+63
Function Call: WRITE
  • Prompt: !!,"** INVALID CLAIM NUMBER ****",!!
  • Line Location: EDITOUTP+67
Function Call: WRITE
  • Prompt: !!,"** INVALID CLAIM NUMBER *****",!!
  • Line Location: EDITOUTP+84
Function Call: WRITE
  • Prompt: !!,?5,"NO RECENT CLAIM NUMBERS FOR THIS PATIENT/VENDOR"
  • Line Location: OUTPHELP+24
Function Call: WRITE
  • Prompt: !!,?4,"RECENT CLAIM NUMBERS FOR THIS PATIENT/VENDOR",!
  • Line Location: OUTPHELP+25
Function Call: WRITE
  • Prompt: !," # CLAIM NO VEND INV DATE COMPLETE UCID"
  • Line Location: OUTPHELP+29
Function Call: WRITE
  • Prompt: !,CNT(CNT)
  • Line Location: OUTPHELP+30
Function Call: READ
  • Formatting: !
  • Prompt: "CLAIM NUMBER: "
  • Variable: FBANS
  • Timeout: DTIME
  • Line Location: ENTINPAT+17
Function Call: WRITE
  • Prompt: "#: "_$E(FBANS,9,28)
  • Line Location: ENTINPAT+18
Function Call: WRITE
  • Prompt: !!,"This is a required response. ""^"" is not allowed.",!
  • Line Location: ENTINPAT+20
Function Call: WRITE
  • Prompt: !!,"Enter ""NEW"" to automatically generate a new claim number,"
  • Line Location: ENTINPAT+22
Function Call: WRITE
  • Prompt: !,"or enter an existing numeric claim number in format YYYY-<nn..>,"
  • Line Location: ENTINPAT+23
Function Call: WRITE
  • Prompt: !,"or enter ?? to see a list of existing claim numbers for this vendor.",!
  • Line Location: ENTINPAT+24
Function Call: WRITE
  • Prompt: !!," REQUIRED ENTRY.",!
  • Line Location: ENTINPAT+25
Function Call: WRITE
  • Prompt: !!,"*** INVALID CLAIM NUMBER ***",!!
  • Line Location: ENTINPAT+27
Function Call: WRITE
  • Prompt: !!,?5,"NO RECENT CLAIM NUMBERS FOR THIS PATIENT/VENDOR",!
  • Line Location: ENTHELP+26
Function Call: WRITE
  • Prompt: !!,?4,"RECENT CLAIM NUMBERS FOR THIS PATIENT/VENDOR",!
  • Line Location: ENTHELP+27
Function Call: WRITE
  • Prompt: !," # CLAIM NO VEND INV DATE COMPLETE UCID"
  • Line Location: ENTHELP+30
Function Call: WRITE
  • Prompt: !,CNT(CNT)
  • Line Location: ENTHELP+31
Function Call: READ
  • Variable: FBANS
  • Timeout: DTIME
  • Line Location: EDINPAT+42
Function Call: WRITE
  • Prompt: !,FBPRMPT
  • Line Location: EDINPAT+42
Function Call: WRITE
  • Prompt: "#: "_$E(FBANS,9,28)
  • Line Location: EDINPAT+44
Function Call: WRITE
  • Prompt: !!," REQUIRED ENTRY.",!
  • Line Location: EDINPAT+50
Function Call: WRITE
  • Prompt: !!,"This is a required response. ""^"" is not allowed.",!
  • Line Location: EDINPAT+51
Function Call: WRITE
  • Prompt: !!,"Enter ""NEW"" to automatically generate a new claim number,"
  • Line Location: EDINPAT+53
Function Call: WRITE
  • Prompt: !,"or enter an existing numeric claim number in format YYYY-<nn..>,"
  • Line Location: EDINPAT+54
Function Call: WRITE
  • Prompt: !,"or enter ?? to see a list of existing claim numbers for this vendor.",!
  • Line Location: EDINPAT+55
Function Call: WRITE
  • Prompt: !!,"*** INVALID CLAIM NUMBER ****",!!
  • Line Location: EDINPAT+58
Function Call: WRITE
  • Prompt: !!,"*** INVALID CLAIM NUMBER *****",!!
  • Line Location: EDINPAT+69

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
162.02 GET1^DIQ
162.03 GET1^DIQ
^FBAAI - [#162.5] GET1^DIQ,  GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call