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

Package: Surgery

Routine: SROQIDP


Information

SROQIDP ;BIR/ADM - LIST OF INVASIVE DIAGNOSTIC PROCEDURES ;12/16/98 12:11 PM

Source Information

Source file <SROQIDP.m>

Entry Points

Name Comments DBIA/ICR reference
SEL
IO
EN
END
AC
CASE ; determine if case is invasive procedure
QTR ; entry from quarterly report
IDP ; get CPT codes for procedures performed
CHECK ; compare procedure performed with HQ list
ADD ; increment counters in ^TMP
SHOW ; display list of invasive diagnostic procedures
PROC ; HQ list of invasive diagnostic procedures

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?20,"List of Invasive Diagnostic Procedures",!!,"This report displays the completed surgical cases that meet the selection",!,"criteria and that have a principal CPT code on the list below defined by"
  • Line Location: SROQIDP+6
Function Call: WRITE
  • Prompt: !,"Surgical Service at VHA Headquarters as invasive diagnostic procedures.",!!,?3,"Procedure Group",?30,"CPT Code(s)",!,?3,"---------------",?30,"-----------"
  • Line Location: SROQIDP+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: IO+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,?3,SRPROC,?30,$E(SRCODES,1,48)
  • Line Location: SHOW+1
Function Call: WRITE
  • Prompt: !,?30,$E(SRCODES,49,96)
  • Line Location: SHOW+1
Info |  Source |  Entry Points |  Interaction Calls