Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
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>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 4 (,PRESS)^SROQIDP0  (DATE,INOUT,SPEC)^SROUTL  ($$INST,$$MANDIV)^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
DRG Grouper 1 $$CPT^ICPTCOD  
Registration 1 IN5^VADPT  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROQ0A  SROQIDP  SROQIDP0  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS IO+1
^%ZISC END+2
^%ZTLOAD IO+2
$$CPT^ICPTCOD IDP+1
^SROQIDP0 EN
PRESS^SROQIDP0 SROQIDP+7, END+1
DATE^SROUTL SEL
INOUT^SROUTL SEL
SPEC^SROUTL SEL
$$INST^SROUTL0 SEL+1
$$MANDIV^SROUTL0 AC
^SRSKILL END+2
IN5^VADPT CASE+3

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
Routine Call
  • %ZIS
  • Line Location:
    • IO+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] AC, CASE+1, CASE+2
^SRF("AC" AC
^SRO(136 - [#136] IDP+1, IDP+2
^TMP("SR" END+2!, CASE+5*
^TMP("SRIDP" ADD+1*, ADD+2*, ADD+3*

Label References

Name Line Occurrences
ADD QTR+1
CASE AC
CHECK IDP+1, IDP+2
END SROQIDP+7, SEL, SEL+1, IO+1, IO+2
IDP CASE+5, QTR+1
SHOW SROQIDP+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS IO+1!*
%ZIS("A" IO+1*
%ZIS("B" IO+1*
>> EDATE SEL
>> I SHOW+1*
IO("Q" IO+1!, IO+2!
IOF SROQIDP+6, SEL, END, END+2
IOP IO+1!
IOST END, END+1
>> J CHECK+1*
>> K CHECK+1*
POP IO+1!
>> SDATE SEL
>> SR(0 CASE+2*, CASE+3, CASE+5, ADD+2
>> SRB SEL*
SRCODES IDP+1~, CHECK+1*, SHOW+1*
SRCPT IDP+1~, CHECK+1*
>> SRED AC
SRFRTO END+2!
SRIDP END+2!, CASE+5, QTR+1*, IDP+1*, IDP+2*
SRIDPT END+2!, CASE+5*
>> SRINST SEL+1*
SRINSTP SEL+1~*, AC
SRIO SEL*, END+2!, CASE+4
SRIOSTAT END+2!, CASE+3*, CASE+4, CASE+5
SRIOT END+2!
SRIOT( CASE+5*
SRMATCH IDP+1~, IDP+2, CHECK+1*
SROP QTR+1~, IDP+1*, IDP+2*, CHECK+1
SROPER QTR+1~, IDP+2*
>> SRPROC SHOW+1*
SRRPT SEL*, END+2!
>> SRSD AC*, CASE+3, CASE+5
>> SRSOUT SROQIDP+6*, SROQIDP+7, SEL, IO+1*, IO+2*, END+1, AC
>> SRSPEC SEL*, CASE+2
>> SRSS CASE+2*, CASE+5
SRTN END+2!, AC*, CASE+1, CASE+2, CASE+5, IDP+1, IDP+2
VAIP CASE+3!
VAIP("D" CASE+3*
VAIP(13 CASE+3
>> X SHOW+1*
>> ZTDESC IO+2*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTRTN IO+2*
>> ZTSAVE("EDATE" IO+2*
>> ZTSAVE("SDATE" IO+2*
>> ZTSAVE("SRINSTP" IO+2*
>> ZTSAVE("SRIO" IO+2*
>> ZTSAVE("SRSPEC*" IO+2*
>> ZTSTOP END

Marked Items

Name Field # of Occurrence
$T(PROC+I SHOW+1
$T(PROC+J CHECK+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All