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

Package: Surgery

Routine: SROAPRT6


Information

SROAPRT6 ;BIR/MAM - PRINT OUTCOME INFO ;01/29/07

Source Information

Source file <SROAPRT6.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 4 PAGE^SROAPAS  ^SROAPRT7  SSPRIN^SROCPT0  ($$ICD,$$ICDSTR)^SROICD  
VA FileMan 2 C^%DTC  D^DIQ  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  

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 SROAPAS  

Entry Points

Name Comments DBIA/ICR reference
DISP ;
MOD ;; append CPT modifiers to CPT code
YN ;
RET ; print returns

External References

Name Field # of Occurrence
C^%DTC DISP+4
D^DIQ SROAPRT6+5
$$CPT^ICPTCOD SROAPRT6+8
PAGE^SROAPAS DISP+8
^SROAPRT7 DISP+9
SSPRIN^SROCPT0 MOD+1
$$ICD^SROICD SROAPRT6+2
$$ICDSTR^SROICD DISP+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?27,"OUTCOME INFORMATION"
  • Line Location: DISP+1
Function Call: WRITE
  • Prompt: !!,$J("Postoperative Diagnosis Code "_$$ICDSTR^SROICD(SRTN)_": ",39)_$P(SRAO(1),"^"),!,$J("Length of Postoperative Hospital Stay: ",39)_$P(SRAO(2),"^")
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: !,$J("Date of Death: ",39)_$P(SRAO(3),"^")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !,$J("Death Unrelated/Related: ",39)_$S($P($G(^SRF(SRTN,.4)),"^",7)="R":"RELATED",$P($G(^SRF(SRTN,.4)),"^",7)="U":"UNRELATED",1:"")
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !,$J("Death Unrelated/Related: ",39)_"N/A"
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: !,$J("Return to OR Within 30 Days: ",39)_$P(SRAO(4),"^")
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: !,?15,"CPT Code: "_SRCPT(X)
  • Line Location: RET+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SROAPRT6+5
^SRF - [#130] SROAPRT6+3, SROAPRT6+7, SROAPRT6+10*, DISP+4, DISP+5
^SRO(136 - [#136] SROAPRT6+2, SROAPRT6+7

Label References

Name Line Occurrences
MOD SROAPRT6+8
RET DISP+8
YN SROAPRT6+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CASE SROAPRT6+7*, MOD+1
>> DFN SROAPRT6+5
>> I SROAPRT6+10*
IOSL DISP+8
IOST DISP+8
>> NYUK SROAPRT6+6*, SROAPRT6+9*, SROAPRT6+10, YN+1
>> SHEMP SROAPRT6+10, YN+1*
SRA SROAPRT6+2!
SRA(205 SROAPRT6+3*, SROAPRT6+5
SRA(3 DISP+6
>> SRAO( SROAPRT6+10*
>> SRAO(1 SROAPRT6+2*, DISP+2
>> SRAO(2 SROAPRT6+4*, DISP+2
>> SRAO(3 SROAPRT6+6*, DISP+3, DISP+4, DISP+5
>> SRAO(4 SROAPRT6+10*, DISP+7
>> SRC SROAPRT6+7*, SROAPRT6+8, SROAPRT6+9
SRCPT SROAPRT6+6!
SRCPT( SROAPRT6+9*, RET+1
>> SRDEAD SROAPRT6+5*, SROAPRT6+6
>> SRET SROAPRT6+6*, SROAPRT6+7*
>> SRSOUT DISP+8
SRTN SROAPRT6+2, SROAPRT6+3, SROAPRT6+7, SROAPRT6+10, DISP+2, DISP+4, DISP+5, MOD+1~*
>> X SROAPRT6+2*, SROAPRT6+3*, SROAPRT6+4, SROAPRT6+5*, DISP+5, DISP+6, RET+1*
>> X1 DISP+4*
>> X2 DISP+4*
>> Y SROAPRT6+5*, SROAPRT6+8*, SROAPRT6+9
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All