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

Package: Surgery

Routine: SROQ


Information

SROQ ;B'HAM ISC/ADM - QUARTERLY REPORT ; [ 07/31/00 10:07 AM ]

Source Information

Source file <SROQ.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
Surgery 5 SHOW^SROQ0A  ^SROQ1  (,END,SET)^SROQ2  (,QUE)^SROQT  ^SRSKILL  
VA Fileman 4 DD^%DT  C^%DTC  $$GET1^DIQ  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SRO QUARTERLY REPORT  SROQ1A  SROQT  

Entry Points

Name Comments DBIA/ICR reference
SEL
QTR
HELP
MO
PRT
EN ; entry point when queued
IO
ASK
END
YR

External References

Name Field # of Occurrence
DD^%DT YR+9
C^%DTC MO+2, YR+8
^%ZIS IO
^%ZISC END+1
^%ZTLOAD IO+1
$$GET1^DIQ EN+6
^DIR SROQ+10
SHOW^SROQ0A SROQ+10
^SROQ1 EN+4, EN+8
^SROQ2 SEL+2
END^SROQ2 EN+9
SET^SROQ2 EN+4, EN+7
^SROQT EN+4, EN+7
QUE^SROQT PRT+3
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"QUARTERLY/SUMMARY REPORT FOR SURGICAL SERVICE"
  • Line Location: SROQ+7
Function Call: WRITE
  • Prompt: !!,"NOTE: Listed below are the CPT codes for the index procedures on these reports."
  • Line Location: SROQ+8
Function Call: WRITE
  • Prompt: !!,?4,"Procedure",?30,"CPT Code(s)",!,?4,"---------",?30,"-----------"
  • Line Location: SROQ+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SROQ+10
Function Call: WRITE
  • Prompt: @IOF,!,"Run which report ?",!!,?3,"1. Summary Report for Selected Date Range",!,?3,"2. Quarterly Report for Central Office"
  • Line Location: SROQ+11
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: @IOF,!,"QUARTERLY REPORT FOR SURGICAL SERVICE"
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: !!,"Run report for which quarter of the fiscal year ?",!!,?5,"(1) October 1 - December 31",!,?5,"(2) January 1 - March 31",!,?5,"(3) April 1 - June 30",!,?5,"(4) July 1 - September 30"
  • Line Location: QTR+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: QTR+1
Function Call: WRITE
  • Prompt: !,"Enter a number between 1 and 4 corresponding to the quarter of the fiscal year",!,"for which you want to run the report. The quarter selected must have ended",!,"at least 30 days in the past."
  • Line Location: QTR+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: YR+0
Function Call: WRITE
  • Prompt: !,"Enter the fiscal year for the quarter you have selected. The quarter",!,"selected must have ended at least 30 days in the past."
  • Line Location: YR+1
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: YR+4
Function Call: WRITE
  • Prompt: " ??"
  • Line Location: YR+6
Function Call: WRITE
  • Prompt: !!,"The report cannot be run for the future !!"
  • Line Location: YR+7
Function Call: WRITE
  • Prompt: !!,"At least 30 days have not passed since the end of the quarter selected."
  • Line Location: YR+8
Function Call: WRITE
  • Prompt: !!,$S(SRAC:"No surgical data exists before "_SRAC1_".",1:"There are no surgical cases on record !")
  • Line Location: YR+9
Function Call: WRITE
  • Prompt: " (",$S(SRQTR=1:SRY+1701,1:SRY+1700),")"
  • Line Location: YR+10
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"Enter 'Y' to have this report automatically transmitted to the Central Office",!,"Surgical Service database. Enter 'N' or press RETURN if you do NOT want this",!,"report transmitted."
  • Line Location: ASK+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !!,"Enter 'NO' if you want to have this report transmitted, but do not want to",!,"have it printed. Enter 'YES' or press RETURN if you do want to print the",!,"report as well as have it transmitted."
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: IO+0
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,"Enter '1' or press RETURN to get a summary report based on the same criteria",!,"and in the same format as the Quarterly Report for Central Office except",!,"that the date range is selectable."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"Enter '2' to generate the Quarterly Report for Central Office for an entire",!,"quarter at least 30 days in the past."
  • Line Location: HELP+1
Routine Call
  • DIR
  • Line Location:
    • SROQ+10
Routine Call
  • %ZIS
  • Line Location:
    • IO

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF("AC" YR+9
^SRO(133 - [#133] EN+2

Label References

Name Line Occurrences
ASK ASK+1, ASK+2
END SROQ+10, SEL, QTR+1, YR, ASK, PRT, IO, IO+1
HELP SEL+1
IO ASK+3
MO YR+1, YR+4, YR+6
PRT PRT+1, PRT+2
QTR QTR+2, YR+7, YR+8, YR+9
SEL HELP+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS IO!*
%ZIS("A" IO*
DIR SROQ+10!
DIR(0 SROQ+10*
DT MO, MO+2, YR+3, YR+7, YR+8
DTIME SEL, QTR+1, YR, ASK, PRT, END
>> DTOUT SROQ+10
>> DUOUT SROQ+10
IO("Q" IO!, IO+1!
IOF SROQ+7, SROQ+11, SEL+3, END+1
POP IO!
>> SRAC YR+9*
>> SRAC1 YR+9*
>> SRCOUNT EN+1*, EN+2*, EN+3
>> SRDT MO+2*
SRDVSN EN+1~*
SRDVSN( EN+2*, EN+5, EN+6
>> SREMO MO+1*, MO+2, YR+8
>> SREND YR+8*, YR+9
>> SRFLG YR+10*
SRIEN EN+1~*, EN+5*, EN+6
>> SRINST EN+6*
SRINSTP EN+1!, EN+6*
SRMULT EN+1~*, EN+3*, EN+4
>> SRQTR QTR+3*, MO, MO+1, MO+2, YR+7, YR+10
>> SRSMO MO*, YR+7
>> SRSOUT SROQ+7*, SROQ+10*, SEL*, QTR+1*, YR*, ASK*, PRT*, IO*, IO+1*, END
>> SRSTART YR+7*
>> SRSTATN EN+6*
>> SRT SROQ+7*, PRT*, EN+4, EN+8
>> SRY MO*, YR+3*, YR+4*, YR+5*, YR+6, YR+7*, YR+8, YR+10
>> SRYR MO*, MO+2*, YR, YR+2
>> X SEL*, SEL+1*, SEL+2, QTR+1*, QTR+2, QTR+3, MO+2, YR*, YR+1, YR+2*
, YR+3, YR+4, YR+5, YR+8, ASK*, ASK+1, ASK+2*, ASK+3, PRT*, PRT+1
, PRT+2*, PRT+3, EN+1*, EN+2*, END*
>> X1 MO+2*, YR+8*
>> X2 MO+2*, YR+8*
>> Y YR+9*
>> ZTDESC IO+1*
>> ZTRTN IO+1*
>> ZTSAVE("SREND" IO+1*
>> ZTSAVE("SRFLG" IO+1*
>> ZTSAVE("SRSTART" IO+1*
>> ZTSAVE("SRT" IO+1*
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