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

Package: Quasar

Routine: ACKQAS3


Information

ACKQAS3 ;AUG/JLTP BIR/PTD-Enter Cost Information for Procedures ; [ 02/14/96 3:30 PM ]

Source Information

Source file <ACKQAS3.m>

Entry Points

Name Comments DBIA/ICR reference
ACCESS ;Only A&SP staff designated as supervisors can access this option.
OPTN ;Introduce option.
CHOOSE ;Display user choices: edit selected entries or all entries.
LOOP ;Edit the cost of all CPT-4 procedure codes.
EXIT ;Kill variables and exit routine.
SINGLE ;Edit the cost of a selected CPT-4 code.
COST ;Enter cost data for a single CPT-4 procedure code.
MOD ;Edit cost of modifier codes.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACCESS+3
Function Call: WRITE
  • Prompt: !,"You are not listed in the A&SP STAFF file (#509850.3).",!,"Access denied."
  • Line Location: ACCESS+3
Function Call: WRITE
  • Prompt: !,"Only clinicians may access this option!"
  • Line Location: ACCESS+4
Function Call: WRITE
  • Prompt: !,"The A&SP STAFF file (#509850.3) indicates that you have been inactivated.",!,"Access denied."
  • Line Location: ACCESS+5
Function Call: WRITE
  • Prompt: !,"You must be listed as a SUPERVISOR in the A&SP STAFF file (#509850.3)",!,"in order to use this option. Access denied."
  • Line Location: ACCESS+6
Function Call: WRITE
  • Prompt: @IOF,!,"This option allows you to enter cost data for each procedure code",!,"in the A&SP PROCEDURE CODE file (#509850.4). The information is",!,"used to generate the Cost Comparison Report.",!
  • Line Location: OPTN+1
Function Call: WRITE
  • Prompt: !,"The CPT file (#81) is required."
  • Line Location: OPTN+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SINGLE+1
Function Call: WRITE
  • Prompt: !!,"File 81, CPT, needs to be updated. Code "_ACK_" is missing."
  • Line Location: COST+5
Function Call: WRITE
  • Prompt: !!,$P(^ICPT(ACK,0),U)," ",$$PROCTXT^ACKQUTL8(ACK,"")
  • Line Location: COST+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ACK(509850.4 - [#509850.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call