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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROQL

Package: Surgery

Routine: SROQL


Information

SROQL ;BIR/ADM - LIST OF OPERATIONS FOR QUARTERLY REPORT ;06/15/04 11:46 AM

Source Information

Source file <SROQL.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Surgery 7 RS^SROQ0A  ^SROSTOP  (DATE,PROC,SPEC)^SROUTL  ($$INST,$$MANDIV,$$NODATA)^SROUTL0  PROC^SROUTLN  $$SITE^SROVAR  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  ($$GET1,Y)^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROQ LIST OPS  

Entry Points

Name Comments DBIA/ICR reference
SEL ; select date range and specialty
IO
EN
END
AC
CASE ; examine case
AAA
PRESS
OCC ; get occurrences
PAGE
HDR ; print heading

External References

Name Field # of Occurrence
NOW^%DTC EN+3
^%ZIS IO+1
^%ZISC END+2
^%ZTLOAD IO+2
$$GET1^DIQ EN+2
Y^DIQ CASE+6, CASE+7
^DIR PRESS
RS^SROQ0A CASE+8
^SROSTOP HDR+1
DATE^SROUTL SEL+1
PROC^SROUTL CASE+11
SPEC^SROUTL SEL+1
$$INST^SROUTL0 SEL+2
$$MANDIV^SROUTL0 AC
$$NODATA^SROUTL0 EN+4
PROC^SROUTLN AAA
$$SITE^SROVAR EN+2
^SRSKILL END+2
DEM^VADPT CASE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?17,"List of Operations Included on Quarterly Report",!!
  • Line Location: SROQL+6
Function Call: WRITE
  • Prompt: !,"This option generates a list of completed operations that are included on the",!,"Quarterly Report and displays the data fields for each case that are checked",!,"by the Quarterly Report."
  • Line Location: SROQL+7
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: IO+0
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"TOTAL CASES: ",SRTOT
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,SRSDATE,?22,SRSNM,?54,SRSSN_" ("_SRAGE_")",?81,$E(SRASA,1,25),?108,"LEVEL "_SRATT,!,SRTN_" ("_SRMM_")",?22,$S(SRSPEC:SRDOC,1:$E(SRSS,1,30)),?54,$E(SRTYPE,1,25),?81,SRWC,?108,SRIO,!
  • Line Location: CASE+12
Function Call: WRITE
  • Prompt: SRPERI(I)
  • Condition for execution: $D(SRPERI(I))
  • Line Location: CASE+13
Function Call: WRITE
  • Prompt: ?54,SRPROC(I)
  • Condition for execution: $D(SRPROC(I))
  • Line Location: CASE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: AAA+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: AAA+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRRPT)\2),SRRPT,?(IOM-10),$J("PAGE "_SRPAGE,9),!,?(IOM-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRPRINT)\2),SRPRINT
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(X)\2),X
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"DATE OF OPERATION",?22,"PATIENT NAME",?54,"PATIENT ID (AGE)",?81,"ASA CLASS",?108,"RESIDENT SUPERVISION"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"CASE # (MAJ/MIN)",?22,$S(SRSPEC:"SURGEON",1:"SURGICAL SPECIALTY"),?54,"CASE SCHEDULE TYPE",?81,"WOUND CLASS",?108,"IN/OUT-PAT STATUS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"OCCURENCE(S)",?54,"PROCEDURE(S)"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Routine Call
  • DIR
  • Line Location:
    • PRESS
Routine Call
  • %ZIS
  • Line Location:
    • IO+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN, EN+3, CASE+4
^DD(130 CASE+6, CASE+7
^SRF - [#130] AC, CASE+1, CASE+2, CASE+4, CASE+6, CASE+7, CASE+8, OCC+2, OCC+3
^SRF("AC" AC
^SRO(136.5 - [#136.5] OCC+2, OCC+3
^SRO(137.45 - [#137.45] CASE+4
^TMP("SR" EN!
^VA(200 - [#200] CASE+4

Label References

Name Line Occurrences
AC EN+4
CASE AC
END SEL+1, SEL+2, IO+1, IO+2, EN+4, EN+5
HDR EN+4, PAGE
OCC CASE+11
PAGE EN+5, CASE+11, AAA
PRESS END+1, PAGE+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+3
%ZIS IO+1!*
%ZIS("A" IO+1*
%ZIS("B" IO+1*
>> C CASE+6*, CASE+7*
>> DFN CASE+2*
DIR PRESS!
DIR(0 PRESS*
>> DTOUT PRESS
>> DUOUT PRESS
>> EDATE SEL+1, EN
>> ENDATE EN*, EN+1
>> I CASE+9*, CASE+10, CASE+13*, AAA*, AAA+1, AAA+2*, HDR+6*
IO EN
IO("Q" IO+1!, IO+2!
IOF SROQL+6, END, END+2, HDR+2
IOM AAA+2, HDR+2, HDR+3, HDR+6
IOP IO+1!
IOSL EN+5, CASE+11, AAA
IOST END, END+1, PAGE, HDR+2
POP IO+1!
>> SDATE SEL+1, EN
>> SR(0 CASE+2*, CASE+5, CASE+6
>> SRAGE CASE+3*, CASE+12
>> SRASA CASE+6*, CASE+12
>> SRATT CASE+8*, CASE+9, CASE+10*, CASE+12
>> SRCAT OCC+2*, OCC+3*
>> SRDOC CASE+4*, CASE+12
>> SRED EN*, AC
SRFRTO EN+1*, END+2!, HDR+2
>> SRHALT HDR+1
>> SRHDR EN*, PAGE, HDR+6*
>> SRINST SEL+2*, EN+2*, HDR+2
SRINSTP SEL+2~*, EN+2, AC
SRIO END+2!, CASE+5*, CASE+12
>> SRL CASE+11*, AAA*
>> SRMM CASE+5*, CASE+12
>> SROCC OCC+1*, OCC+2*, OCC+3*
>> SRP OCC+1*, OCC+2*, OCC+3*
>> SRPAGE EN*, HDR+2, HDR+6*
SRPERI END+2!, OCC+1!
SRPERI( CASE+13, OCC+2*, OCC+3*
>> SRPRINT EN+3*, HDR+2
>> SRPROC( CASE+13, AAA, AAA+1
SRRPT EN+1*, END+2!, HDR+2
>> SRSD EN*, AC*, CASE+3, CASE+4
>> SRSDATE CASE+4*, CASE+12
>> SRSNM CASE+3*, CASE+12
>> SRSOUT SROQL+6*, SEL+1, IO+1*, IO+2*, EN*, EN+5, END+1, AC, CASE+11, AAA
, PRESS*, PAGE+1, HDR+1*
>> SRSPEC SROQL+6*, CASE+2, CASE+12, HDR+3, HDR+5
>> SRSPECN HDR+3
>> SRSS CASE+2*, CASE+4*, CASE+12
>> SRSSN CASE+3*, CASE+12
>> SRSUPCPT CASE+11*
SRTN END+2!, AC*, CASE+1, CASE+2, CASE+4, CASE+6, CASE+7, CASE+8, CASE+12, OCC+2
, OCC+3
SRTOT EN*, EN+4, EN+5, END+2!, CASE+11*
>> SRTYPE CASE+6*, CASE+12
>> SRWC CASE+7*, CASE+12
>> STARTDT EN*, EN+1
>> VA("PID" CASE+3
>> VADM(1 CASE+3
>> VADM(3 CASE+3
>> X CASE+5*, HDR+3*
>> X1 CASE+3*
>> X2 CASE+3*
>> Y EN*, EN+3*, CASE+4*, CASE+6*, CASE+7*
>> ZTDESC IO+2*
>> ZTQUEUED END, HDR+1
>> ZTREQ END*
>> ZTRTN IO+2*
>> ZTSAVE("EDATE" IO+2*
>> ZTSAVE("SDATE" IO+2*
>> ZTSAVE("SRINSTP" IO+2*
>> ZTSAVE("SRSPEC*" IO+2*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All