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

Package: Surgery

Routine: SROALEC


Information

SROALEC ;BIR/ADM - LIST OF ELIGIBLE CASES ;02/04/08

Source Information

Source file <SROALEC.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 2 $$XL^SROAX  $$MANDIV^SROUTL0  
DRG Grouper 1 $$CPT^ICPTCOD  
Registration 1 DEM^VADPT  
VA Fileman 1 D^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROALOG  

Entry Points

Name Comments DBIA/ICR reference
CASE
HDR ; print heading
UTL ; set up TMP global
OTHER ; other operations
TOT
SRSD
GRAND
PRINT ; print case info
CPT ; check code for exclusion and get output value
PAGE
LOOP ; break procedures

External References

Name Field # of Occurrence
D^DIQ PRINT+8
$$CPT^ICPTCOD CPT+2
$$XL^SROAX UTL+5
$$MANDIV^SROUTL0 SROALEC+4
DEM^VADPT PRINT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SRTN,?18,SRANM_" "_VA("PID"),?53,SRATYPE,?67,SRSTATUS,!,SRDT,?18,SROPS(1),!
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: ?18,SROPS(I),!
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,">>> Final CPT Coding is not complete."
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"CPT Codes: ",SRPROCS
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+18
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"If you want to continue the listing, press the 'Enter' key.",!,"Type '^' to return to the menu."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J("PAGE "_SRPAGE,9)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,">>> "_SRSS
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR "_SRSS_": ",TOT
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",GRAND
  • Line Location: GRAND+0
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR ALL SPECIALTIES: ",GRAND
  • Line Location: GRAND+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SROALEC+4, UTL+2, UTL+3, UTL+4, UTL+6, UTL+10, PRINT+3, PRINT+6, OTHER+1, OTHER+2
^SRF("AC" SROALEC+4
^SRO(136 - [#136] UTL+5, PRINT+13, PRINT+14, PRINT+16
^SRO(137 - [#137] CPT+3
^SRO(137.45 - [#137.45] SROALEC+3, UTL+10, PRINT+5
^TMP("SRA" SROALEC+2!, SROALEC+5, SROALEC+6, UTL+10*, UTL+11*, SRSD

Label References

Name Line Occurrences
CASE SROALEC+6, SRSD
CPT PRINT+13, PRINT+14
GRAND SROALEC+7, SROALEC+8, SROALEC+9, SROALEC+10, SROALEC+11
HDR SROALEC+8, SROALEC+9, SROALEC+10, PAGE
LOOP PRINT+7
OTHER PRINT+6
PAGE PRINT+2, PRINT+9, PAGE+2
PRINT CASE+6
SRSD SROALEC+5
TOT SROALEC+5, GRAND+2
UTL SROALEC+4

Naked Globals

Name Field # of Occurrence
^( SROALEC+6, SRSD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN PRINT+3*
DTIME PAGE+1
>> GRAND SROALEC+2*, SROALEC+7, SROALEC+8, SROALEC+9, SROALEC+10, SROALEC+11, CASE+6*, GRAND, GRAND+1
I PRINT+3~, PRINT+6*, PRINT+11*, PRINT+12*
IOF HDR+1
IOSL PRINT+2, PRINT+9
IOST PAGE, HDR+1, HDR+2
>> LINE PRINT+18*, HDR+4*
>> LOOP LOOP+1*
>> M PRINT+7*, LOOP+1
MM PRINT+7!, LOOP+1*
MMM PRINT+7!, LOOP+1*
>> SRA SROALEC+6*, UTL+6*, UTL+7, UTL+8, UTL+9, UTL+10, UTL+11, SRSD*, CASE, CASE+3
, PRINT+8
>> SRA(0 PRINT+3*, PRINT+5
SRA2 CASE~*, CASE+1, CASE+2, CASE+5
>> SRANM PRINT+3*, PRINT+4*, PRINT+10
>> SRASP SROALEC+3, UTL+4
>> SRASSN PRINT+3*
>> SRAST UTL+7, UTL+8, UTL+9
>> SRATYPE CASE+1*, CASE+3*, CASE+4*, CASE+5*, PRINT+10
>> SRCODE PRINT+13, PRINT+15, CPT+1*, CPT+2*, CPT+4*
SRCPLT UTL+1~, UTL+5*
SRDA PRINT+1~, PRINT+14*
>> SRDT PRINT+8*, PRINT+10
>> SRED SROALEC+4
SREX CPT+1~*, CPT+3*, CPT+4
>> SRFLG SROALEC+3, SROALEC+7, SROALEC+8, SROALEC+9, UTL+4, GRAND+1, GRAND+2
>> SRFRTO HDR+1
>> SRHDR SROALEC+2*, PAGE, HDR+5*
>> SRINST HDR+1
>> SRINSTP SROALEC+4
>> SRLONG OTHER+1*, OTHER+2
>> SRNEW SROALEC+2*, SROALEC+6*, SRSD*, PRINT+2, HDR+5*
>> SROPER PRINT+6*, PRINT+7*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS PRINT+7!
SROPS( PRINT+11, PRINT+12, LOOP+1*
SROPS(1 PRINT+7*, PRINT+10
>> SROTHER PRINT+6*, OTHER+1*, OTHER+2
>> SRPAGE SROALEC+2*, HDR+1, HDR+5*
>> SRPRINT HDR+2
SRPROCS PRINT+1~*, PRINT+13*, PRINT+15*, PRINT+16, PRINT+17*
>> SRSD SROALEC+4*, SROALEC+6*, UTL+10, UTL+11, SRSD*, PRINT+8, CPT+2
>> SRSOUT SROALEC+2*, SROALEC+4, SROALEC+5, SROALEC+6, SROALEC+7, SRSD, PRINT+2, PRINT+9, PRINT+18, PAGE+1*
>> SRSP SROALEC+5, SROALEC+6, SROALEC+7, SROALEC+9, SROALEC+10, SROALEC+11, UTL+10, PRINT+11, PRINT+12, HDR+3
, HDR+4, GRAND, GRAND+1, GRAND+2
SRSP1 PRINT+1~, PRINT+5*, PRINT+11
>> SRSPEC SROALEC+3*, SROALEC+8, GRAND+2
>> SRSS SROALEC+5*, SROALEC+8*, SROALEC+9*, SROALEC+10*, SROALEC+11*, UTL+10*, SRSD, HDR+3, TOT, GRAND+2*
>> SRSTATUS PRINT+8*, PRINT+10
>> SRTITLE SROALEC+2*, HDR+1
>> SRTN SROALEC+4*, SROALEC+6*, UTL+2, UTL+3, UTL+4, UTL+5, UTL+6, UTL+10, UTL+11, SRSD*
, PRINT+3, PRINT+6, PRINT+10, PRINT+13, PRINT+14, PRINT+16, OTHER+1, OTHER+2
SRY PRINT+1~, PRINT+13*, PRINT+14*, CPT+2, CPT+3
>> TOT SROALEC+2*, SROALEC+5, SROALEC+6*, SRSD*, CASE+6*, TOT
>> VA("PID" PRINT+3, PRINT+10
VADM PRINT+3!
VADM(1 PRINT+3
>> X PRINT+5*, PRINT+8*, PAGE+1*, PAGE+2
Y PRINT+8*, CPT+1~, CPT+2*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All