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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROAR1

Package: Surgery

Routine: SROAR1


Information

SROAR1 ;BIR/MAM - ANNUAL REPORT, ALL SPECIALTIES ;11/17/99 6:25 AM

Source Information

Source file <SROAR1.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Surgery 2 ^SROSTOP  $$DIV^SROUTL0  
DRG Grouper 1 $$CPT^ICPTCOD  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROAR  

Entry Points

Name Comments DBIA/ICR reference
SET ; set local variables
HDR ; print heading
SETUTL ; set ^TMP("SR",$J)
TOTS
GRAND
SPEC ; specialty heading
OUT ; print info

External References

Name Field # of Occurrence
$$CPT^ICPTCOD SET+7, SET+8
^SROSTOP HDR+1
$$DIV^SROUTL0 SROAR1+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!
  • Line Location: SROAR1+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: SROAR1+5
Function Call: WRITE
  • Prompt: !!,"TOTAL OPERATIONS:",?50,GRAND,?68,GMAS,?77,GMAR,?88,GMAJ,?103,GMIS,?112,GMIR,?124,GMIN,!!
  • Line Location: SROAR1+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: SROAR1+6
Function Call: WRITE
  • Prompt: !,?(132-$L(SRSS)\2),SRSS,!
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SPEC+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?48,"ANNUAL REPORT OF SURGICAL PROCEDURES",?100,"DATE REVIEWED:"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?75,"MAJOR",?110,"MINOR",!,"CPT CODE - OPERATION",?48,"TOTAL",?67,"STAFF",?74,"RESIDENT",?87,"TOTAL",?102,"STAFF",?109,"RESIDENT",?122,"TOTAL",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(132-$L(SRSS)\2),SRSS,!
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !,SRCPT("NAME"),?50,SUBT,?68,MAJS,?77,MAJR,?88,MAJT,?103,MINS,?112,MINR,?124,MINT
  • Line Location: OUT+9
Function Call: WRITE
  • Prompt: !!!
  • Line Location: TOTS+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOTS+0
Function Call: WRITE
  • Prompt: !,"TOTALS FOR "_SRSS_": ",?50,TOTAL,?68,TOTMAS,?77,TOTMAR,?88,TOTMAJ,?103,TOTMIS,?112,TOTMIR,?124,TOTMIN,!
  • Line Location: TOTS+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: TOTS+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROAR1+3, SET+1, SET+2, SET+3, SET+4, SET+6, SET+7, SET+8
^SRF("AC" SROAR1+3
^SRO(136 - [#136] SET+7, SET+8
^SRO(137.45 - [#137.45] SET+4
^TMP("SR" SROAR1+2!, SROAR1+4, OUT+2, OUT+4, OUT+5, OUT+6, OUT+7, SETUTL+2*, SETUTL+4*

Label References

Name Line Occurrences
HDR SROAR1+3, SROAR1+6, SPEC+1, OUT+1, TOTS+1
OUT SROAR1+4
SET SROAR1+3
SETUTL SET+9
SPEC SROAR1+4
TOTS SROAR1+4

Naked Globals

Name Field # of Occurrence
^("R" OUT+5, OUT+7
^("S" OUT+4, OUT+6
^(30 SET+2
^(31 SET+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT SET+7*
CPT SET+4!, SET+7*, SET+9*, SETUTL+1, SETUTL+4
CPT( SET+7*, SET+9, SETUTL+1, SETUTL+4
CPT("*" SET+8*
>> EDATE1 SROAR1+3
>> FLAG SETUTL+1*, SETUTL+2*, SETUTL+3
>> GMAJ SROAR1+2*, SROAR1+6, GRAND*
>> GMAR SROAR1+2*, SROAR1+6, GRAND*
>> GMAS SROAR1+2*, SROAR1+6, GRAND*
>> GMIN SROAR1+2*, SROAR1+6, GRAND*
>> GMIR SROAR1+2*, SROAR1+6, GRAND*
>> GMIS SROAR1+2*, SROAR1+6, GRAND*
>> GRAND SROAR1+2*, SROAR1+6, GRAND*
>> I SROAR1+6*, HDR+4*, TOTS*
IOF HDR+2
IOSL SROAR1+6, SPEC+1, OUT+1, TOTS+1
>> LINE SROAR1+5*, SPEC+1*, OUT+1*, TOTS+1*
MAJR OUT+1!, OUT+3*, OUT+5*, OUT+8, OUT+9
MAJS OUT+1!, OUT+3*, OUT+4*, OUT+8, OUT+9
MAJT OUT+1!, OUT+8*, OUT+9
MINR OUT+1!, OUT+3*, OUT+7*, OUT+8, OUT+9
MINS OUT+1!, OUT+3*, OUT+6*, OUT+8, OUT+9
MINT OUT+1!, OUT+8*, OUT+9
>> PAGE SROAR1+2*, HDR+2, HDR+5*
>> SDATE1 SROAR1+3
>> SR(0 SET+4*, SET+5
>> SRATT SET+6*, SETUTL+2, SETUTL+4
>> SRCPT SROAR1+4*, OUT+2, OUT+4, OUT+5, OUT+6, OUT+7, SETUTL+1*, SETUTL+2, SETUTL+4
>> SRCPT("NAME" OUT+2*, OUT+9
>> SRFRTO HDR+3
>> SRHALT SROAR1+3, SROAR1+4, SROAR1+6, SPEC+1, HDR+1, OUT+1, TOTS+1
>> SRINST HDR+2
>> SRMAJ SET+5*, SETUTL+2, SETUTL+4
>> SRPRINT HDR+3
>> SRSDATE SROAR1+3*
>> SRSS SROAR1+4*, SPEC+1, OUT+1, OUT+2, OUT+4, OUT+5, OUT+6, OUT+7, SET+4*, SETUTL+2
, SETUTL+4, TOTS+1
>> SRTN SROAR1+3*, SET+1, SET+2, SET+3, SET+4, SET+6, SET+7, SET+8
>> SUBT OUT+8*, OUT+9
>> TOTAL SPEC+2*, OUT+8*, TOTS+1, GRAND
>> TOTMAJ SPEC+2*, OUT+8*, TOTS+1, GRAND
>> TOTMAR SPEC+2*, OUT+8*, TOTS+1, GRAND
>> TOTMAS SPEC+2*, OUT+8*, TOTS+1, GRAND
>> TOTMIN SPEC+2*, OUT+8*, TOTS+1, GRAND
>> TOTMIR SPEC+2*, OUT+8*, TOTS+1, GRAND
>> TOTMIS SPEC+2*, OUT+8*, TOTS+1, GRAND
>> X SET+7*, SET+8*
>> Y SET+7*
>> ZTQUEUED HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All