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 |  All
Print Page as PDF
Routine: SROQ1

Package: Surgery

Routine: SROQ1


Information

SROQ1 ;BIR/ADM - QUARTERLY REPORT (CONTINUED) ;07/18/07

Source Information

Source file <SROQ1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Surgery 3 HDR^SROQ0  IXOUT^SROQ0A  ^SROQ1A  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SROQ  SROQ2  

Entry Points

Name Comments DBIA/ICR reference
SRSS ; print data for each specialty
IX ; break out index procedure data from ^TMP
RES ; resident supervision
SPOUT ; break out data for each specialty from ^TMP
SP
TOT
HAIR ; print hair removal methods
NDEX ; print data for index procedures
ASA
ENSURE ; ensuring correct surgery compliance

External References

Name Field # of Occurrence
HDR^SROQ0 SROQ1+6, SP, RES+1, NDEX+1, ENSURE+1, ENSURE+12, HAIR+1
IXOUT^SROQ0A IX+2
^SROQ1A NDEX+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?35,"Total Cases",?55,"% of Total",!,?35,"-----------",?55,"----------"
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !,?9,"ASA Class ("_I_")",?37,$J(SRASA(I),6),?57,$J(((SRASA(I)/SRMAJ)*100),5,1)
  • Line Location: ASA+0
Function Call: WRITE
  • Prompt: !,?9,"ASA Class (Not Entered)",?37,$J(SRASA(7),6),?57,$J(((SRASA(7)/SRMAJ)*100),5,1)
  • Line Location: ASA+1
Function Call: WRITE
  • Prompt: !,?5,"Postoperative Deaths",?37,$J(SRMORT,6),?57,$J(((SRMORT/SRALL)*100),5,1),!,?9,"Ambulatory: "_SROPD
  • Line Location: ASA+2
Function Call: WRITE
  • Prompt: !,?5,"Postoperative Occurrences",?37,$J(SRCOMP,6),?57,$J(((SRCOMP/SRALL)*100),5,1)
  • Line Location: ASA+3
Function Call: WRITE
  • Prompt: !,?5,"Ambulatory Procedures",?37,$J((SRCASES-SRINPAT),6),?57,$J((((SRCASES-SRINPAT)/SRALL)*100),5,1)
  • Line Location: ASA+4
Function Call: WRITE
  • Prompt: !,?9,"Admitted Within 14 Days: "_SRADMT
  • Line Location: ASA+5
Function Call: WRITE
  • Prompt: !,?9,"Invasive Diagnostic: "_SRINV("O")
  • Line Location: ASA+6
Function Call: WRITE
  • Prompt: !,?5,"Inpatient Procedures",?37,$J(SRINPAT,6),?57,$J(((SRINPAT/SRALL)*100),5,1)
  • Line Location: ASA+7
Function Call: WRITE
  • Prompt: !,?5,"Emergency Procedures",?37,$J(SREMERG,6),?57,$J(((SREMERG/SRALL)*100),5,1)
  • Line Location: ASA+8
Function Call: WRITE
  • Prompt: !,?5,"Age>60 Years",?37,$J(SR60,6),?57,$J(((SR60/SRALL)*100),5,1)
  • Line Location: ASA+9
Function Call: WRITE
  • Prompt: !!,?30,"SPECIALTY PROCEDURES",!,?30,"--------------------",!,?66,"---DEATHS---"
  • Line Location: SP+1
Function Call: WRITE
  • Prompt: !,?27,"PATIENTS CASES MAJOR MINOR TOTAL %"
  • Line Location: SP+2
Function Call: WRITE
  • Prompt: !,?27,"-------- ----- ----- ----- ----- ----"
  • Line Location: SP+3
Function Call: WRITE
  • Prompt: !!!,?24,"LEVEL OF RESIDENT SUPERVISION (%)",!,?24,"---------------------------------",!,?42,"MAJOR MINOR"
  • Line Location: RES+2
Function Call: WRITE
  • Prompt: !!,?32,"INDEX PROCEDURES",!,?32,"----------------"
  • Line Location: NDEX+2
Function Call: WRITE
  • Prompt: !,?54,"CASES WITH",!,?30,"CASES DEATHS OCCURRENCES"
  • Line Location: NDEX+3
Function Call: WRITE
  • Prompt: !,?30,"----- ------- -----------"
  • Line Location: NDEX+4
Function Call: WRITE
  • Prompt: !!,?17,"ENSURING CORRECT SURGERY - COMPLIANCE SUMMARY",!,?17,"---------------------------------------------"
  • Line Location: ENSURE+2
Function Call: WRITE
  • Prompt: !!,?42,"CASES % OF TOTAL",!,?42,"----- ----------"
  • Line Location: ENSURE+3
Function Call: WRITE
  • Prompt: !,?18,"TOTAL CASES PERFORMED:"_$J(SRCASES,6)
  • Line Location: ENSURE+4
Function Call: WRITE
  • Prompt: ?53,"100.0"
  • Condition for execution: SRCASES
  • Line Location: ENSURE+4
Function Call: WRITE
  • Prompt: !!,?22,"TIME OUT VERIFIED",!,?36,"YES:"_$J(SRTOV,6)
  • Line Location: ENSURE+5
Function Call: WRITE
  • Prompt: ?53,$J(((SRTOV/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+5
Function Call: WRITE
  • Prompt: !,?37,"NO:"_$J(SRTONO,6)
  • Line Location: ENSURE+6
Function Call: WRITE
  • Prompt: ?53,$J(((SRTONO/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+6
Function Call: WRITE
  • Prompt: !,?28,"NOT ENTERED:"_$J(SRTONE,6)
  • Line Location: ENSURE+7
Function Call: WRITE
  • Prompt: ?53,$J(((SRTONE/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+7
Function Call: WRITE
  • Prompt: !!,?9,"PREOPERATIVE IMAGING CONFIRMED",!,?36,"YES:"_$J(SRICY,6)
  • Line Location: ENSURE+8
Function Call: WRITE
  • Prompt: ?53,$J(((SRICY/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+8
Function Call: WRITE
  • Prompt: !,?19,"IMAGING NOT REQUIRED:"_$J(SRICNR,6)
  • Line Location: ENSURE+9
Function Call: WRITE
  • Prompt: ?53,$J(((SRICNR/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+9
Function Call: WRITE
  • Prompt: !,?37,"NO:"_$J(SRICNO,6)
  • Line Location: ENSURE+10
Function Call: WRITE
  • Prompt: ?53,$J(((SRICNO/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+10
Function Call: WRITE
  • Prompt: !,?28,"NOT ENTERED:"_$J(SRICNE,6)
  • Line Location: ENSURE+11
Function Call: WRITE
  • Prompt: ?53,$J(((SRICNE/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+11
Function Call: WRITE
  • Prompt: !,?17,"ENSURING CORRECT SURGERY - COMPLIANCE SUMMARY (Continued)"
  • Line Location: ENSURE+12
Function Call: WRITE
  • Prompt: !!,?8,"MARK ON SURGICAL SITE CONFIRMED",!,?36,"YES:"_$J(SRSCY,6)
  • Line Location: ENSURE+13
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCY/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+13
Function Call: WRITE
  • Prompt: !,?19,"MARKING NOT REQUIRED:"_$J(SRSCNR,6)
  • Line Location: ENSURE+14
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCNR/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+14
Function Call: WRITE
  • Prompt: !,?37,"NO:"_$J(SRSCNO,6)
  • Line Location: ENSURE+15
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCNO/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+15
Function Call: WRITE
  • Prompt: !,?28,"NOT ENTERED:"_$J(SRSCNE,6)
  • Line Location: ENSURE+16
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCNE/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: ENSURE+16
Function Call: WRITE
  • Prompt: !!,?20,"OVERALL COMPLIANCE FOR THIS DATE RANGE",!,?20,"--------------------------------------"
  • Line Location: ENSURE+17
Function Call: WRITE
  • Prompt: !,?34,"TIME OUT VERIFIED: "
  • Line Location: ENSURE+18
Function Call: WRITE
  • Prompt: $J(((SRTOV/SRCASES)*100),5,1),"%"
  • Condition for execution: SRCASES
  • Line Location: ENSURE+18
Function Call: WRITE
  • Prompt: !,?21,"PREOPERATIVE IMAGING CONFIRMED: "
  • Line Location: ENSURE+19
Function Call: WRITE
  • Prompt: $J((((SRICY+SRICNR)/SRCASES)*100),5,1),"%"
  • Condition for execution: SRCASES
  • Line Location: ENSURE+19
Function Call: WRITE
  • Prompt: !,?20,"MARK ON SURGICAL SITE CONFIRMED: "
  • Line Location: ENSURE+20
Function Call: WRITE
  • Prompt: $J((((SRSCY+SRSCNR)/SRCASES)*100),5,1),"%"
  • Condition for execution: SRCASES
  • Line Location: ENSURE+20
Function Call: WRITE
  • Prompt: !!,?19,"PREOPERATIVE HAIR REMOVAL METHODS SUMMARY",!,?19,"-----------------------------------------"
  • Line Location: HAIR+2
Function Call: WRITE
  • Prompt: !!,?42,"CASES % OF TOTAL",!,?42,"----- ----------"
  • Line Location: HAIR+3
Function Call: WRITE
  • Prompt: !,?18,"TOTAL CASES PERFORMED:"_$J(SRCASES,6)
  • Line Location: HAIR+4
Function Call: WRITE
  • Prompt: ?53,"100.0"
  • Condition for execution: SRCASES
  • Line Location: HAIR+4
Function Call: WRITE
  • Prompt: !!,?32,"CLIPPER:"_$J(SRHAIR("C"),6)
  • Line Location: HAIR+5
Function Call: WRITE
  • Prompt: ?53,$J(((SRHAIR("C")/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: HAIR+5
Function Call: WRITE
  • Prompt: !,?29,"DEPILATORY:"_$J(SRHAIR("D"),6)
  • Line Location: HAIR+6
Function Call: WRITE
  • Prompt: ?53,$J(((SRHAIR("D")/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: HAIR+6
Function Call: WRITE
  • Prompt: !,?24,"NO HAIR REMOVED:"_$J(SRHAIR("N"),6)
  • Line Location: HAIR+7
Function Call: WRITE
  • Prompt: ?53,$J(((SRHAIR("N")/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: HAIR+7
Function Call: WRITE
  • Prompt: !,?15,"PATIENT REMOVED OWN HAIR:"_$J(SRHAIR("P"),6)
  • Line Location: HAIR+8
Function Call: WRITE
  • Prompt: ?53,$J(((SRHAIR("P")/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: HAIR+8
Function Call: WRITE
  • Prompt: !,?32,"SHAVING:"_$J(SRHAIR("S"),6)
  • Line Location: HAIR+9
Function Call: WRITE
  • Prompt: ?53,$J(((SRHAIR("S")/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: HAIR+9
Function Call: WRITE
  • Prompt: !,?25,"NOT DOCUMENTED:"_$J(SRNDOC,6)
  • Line Location: HAIR+11
Function Call: WRITE
  • Prompt: ?53,$J(((SRNDOC/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: HAIR+11
Function Call: WRITE
  • Prompt: !,?34,"OTHER:"_$J(SRHAIR("O"),6)
  • Line Location: HAIR+12
Function Call: WRITE
  • Prompt: ?53,$J(((SRHAIR("O")/SRCASES)*100),5,1)
  • Condition for execution: SRCASES
  • Line Location: HAIR+12
Function Call: WRITE
  • Prompt: !,$J(SRPTF,2),?4,SRSP,?27,$J(SRP(1),6),?37,$J(SRP(2),6),?46,$J(SRP(3),6),?55,$J(SRP(4),6),?64,$J(SRP(5),6),?73,$J(((SRP(5)/$S(SRP(2):SRP(2),1:1))*100),5,1)
  • Line Location: SPOUT+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP("SRPROC" IX+1
^TMP("SRSS" SRSS+17, SPOUT+1

Label References

Name Line Occurrences
IX NDEX+5
SPOUT SRSS+1, SRSS+2, SRSS+3, SRSS+4, SRSS+5, SRSS+6, SRSS+7, SRSS+8, SRSS+9, SRSS+10
, SRSS+11, SRSS+12, SRSS+13, SRSS+14, SRSS+15, SRSS+16, SRSS+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> I ASA*, RES+4*, RES+5, RES+6
IO SROQ1+6
IOST SP, RES+1, ENSURE+12, HAIR+1
>> J NDEX+5*, IX+1, IX+3
>> K IX+1*, SPOUT+1*
>> SR60 ASA+9
>> SRADMT ASA+5
>> SRALL TOT+1*, TOT+2, ASA+2, ASA+3, ASA+4, ASA+7, ASA+8, ASA+9
>> SRASA( ASA
>> SRASA(7 ASA+1
>> SRATT("J" RES+4, RES+6
>> SRATT("N" RES+6
>> SRCASES TOT+1, ASA+4, RES+3, ENSURE+4, ENSURE+5, ENSURE+6, ENSURE+7, ENSURE+8, ENSURE+9, ENSURE+10
, ENSURE+11, ENSURE+13, ENSURE+14, ENSURE+15, ENSURE+16, ENSURE+18, ENSURE+19, ENSURE+20, HAIR+4, HAIR+5
, HAIR+6, HAIR+7, HAIR+8, HAIR+9, HAIR+11, HAIR+12
>> SRCOMP ASA+3
>> SREMERG ASA+8
>> SRHAIR("C" HAIR+5
>> SRHAIR("D" HAIR+6
>> SRHAIR("N" HAIR+7
>> SRHAIR("O" HAIR+12
>> SRHAIR("P" HAIR+8
>> SRHAIR("S" HAIR+9
>> SRHAIR("U" HAIR+10
>> SRHAIR("ZZ" HAIR+10
>> SRHDR SROQ1+6*
>> SRICNE ENSURE+11
>> SRICNO ENSURE+10
>> SRICNR ENSURE+9, ENSURE+19
>> SRICY ENSURE+8, ENSURE+19
>> SRINPAT ASA+4, ASA+7
>> SRINV("O" ASA+6
>> SRIX RES+3*, RES+6
>> SRL RES+5*, RES+6
>> SRMAJ TOT+2*, ASA, ASA+1, RES+3*, RES+6
>> SRMAJOR TOT+2, RES+3
>> SRMORT ASA+2
SRNDOC HAIR+10~*, HAIR+11
>> SROP IX+3*, IX+4
>> SROPD ASA+2
>> SRP( IX+1*, SPOUT+1*
>> SRP(1 IX+4, SPOUT+3
>> SRP(2 IX+4, SPOUT+3
>> SRP(3 IX+4, SPOUT+3
>> SRP(4 SPOUT+3
>> SRP(5 SPOUT+3
>> SRPAGE SROQ1+6*
>> SRPTF SRSS+1*, SRSS+2*, SRSS+3*, SRSS+4*, SRSS+5*, SRSS+6*, SRSS+7*, SRSS+8*, SRSS+9*, SRSS+10*
, SRSS+11*, SRSS+12*, SRSS+13*, SRSS+14*, SRSS+15*, SRSS+16*, SRSS+17*, SPOUT+1, SPOUT+2*, SPOUT+3
>> SRSCNE ENSURE+16
>> SRSCNO ENSURE+15
>> SRSCNR ENSURE+14, ENSURE+20
>> SRSCY ENSURE+13, ENSURE+20
>> SRSOUT SROQ1+6, SP, RES+1, NDEX+1, ENSURE+1, ENSURE+12, HAIR+1
>> SRSP SRSS+1*, SRSS+2*, SRSS+3*, SRSS+4*, SRSS+5*, SRSS+6*, SRSS+7*, SRSS+8*, SRSS+9*, SRSS+10*
, SRSS+11*, SRSS+12*, SRSS+13*, SRSS+14*, SRSS+15*, SRSS+16*, SRSS+17*, SPOUT+3
>> SRTONE ENSURE+7
>> SRTONO ENSURE+6
>> SRTOV ENSURE+5, ENSURE+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All