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

Package: Surgery

Routine: SROACMP


Information

SROACMP ;BIR/ADM - M&M VERIFICATION REPORT ;12/19/07

Source Information

Source file <SROACMP.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 4 (END,HDR,HDR2)^SROACMP1  CPTS^SROAUTL0  ($$ICD,$$ICD910)^SROICD  ($$DIV,$$MANDIV)^SROUTL0  
VA FileMan 2 C^%DTC  ^DIWP  
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 SROACMP1  

Entry Points

Name Comments DBIA/ICR reference
UTIL ; list all cases within 30 days prior to postop occurrence and/or 90 days prior to death
PRIOR ; list cases in 30 days before this occurrence or 90 days before death
SET ; set variables to print
OPS
COMP ; perioperative occurrences
RA ; risk assessment type and status
PRINT ; print case information
OPER ; break procedure if greater than 48 characters
DATE
SS ; set up ^TMP for selected specialties
WP ; print occurrence comments
TEXT ; check for occurrence comments
DWP ; print review of death comments

External References

Name Field # of Occurrence
C^%DTC PRIOR+1, OPS+3
^DIWP WP+1, DWP+1
END^SROACMP1 SROACMP+9, SROACMP+10
HDR^SROACMP1 SROACMP+4, SROACMP+7, PRINT+1, PRINT+8, WP+3, DWP+3
HDR2^SROACMP1 SROACMP+10
CPTS^SROAUTL0 OPS+2
$$ICD^SROICD COMP+3, COMP+10
$$ICD910^SROICD COMP+3, COMP+10
$$DIV^SROUTL0 PRIOR+3
$$MANDIV^SROUTL0 PRIOR+2
DEM^VADPT UTIL+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROACMP+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SROACMP+4
Function Call: WRITE
  • Prompt: !!,"There are no perioperative occurrences or deaths recorded for ",$S(SRFORM=1:"surgeries performed in the selected date range.",1:"completed assessments not yet transmitted.")
  • Line Location: SROACMP+9
Function Call: WRITE
  • Prompt: !!,SRSDATE,?11,SRTN,?25,SRSS,?80,SRTYPE,?98,SRSTATUS,?116,SRREL
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?11,SRP(1)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?11,SRP(2)
  • Condition for execution: $D(SRP(2))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?11,"CPT Codes: ",SRPROC(1)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?24,SRPROC(2)
  • Condition for execution: $D(SRPROC(2))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?24,$P(SRC(SRI),"^")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,?11,"Date of Death: "_$E(SRNDTH,4,5)_"/"_$E(SRNDTH,6,7)_"/"_$E(SRNDTH,2,3)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "@"_$E(X,1,2)_":"_$E(X,3,4)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "NONE ENTERED"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+3
Function Call: WRITE
  • Prompt: !,?26,">>> Comments:"
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DWP+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] UTIL+1, PRIOR+4, PRIOR+5, PRIOR+6, SET+2, OPS, OPS+4, COMP+1, COMP+5, RA+1
, PRINT+10, PRINT+14, SS+3, WP+1, TEXT+1, DWP+1
^SRF("B" PRIOR+1
^SRO(136.5 - [#136.5] COMP+2, COMP+8
^SRO(137.45 - [#137.45] SET+2
^TMP("SR" SROACMP+2, SROACMP+4, SROACMP+8, SROACMP+9, PRIOR+1, PRIOR+6*, SS+2, SS+4!
^TMP("SRPAT" SROACMP+4, UTIL+2*, SS+1, SS+4!
^TMP("SRSP" SS+1!, SS+3*, SS+4
^UTILITY($J WP+1!, WP+2, WP+4, DWP+1!, DWP+2, DWP+4
^XUSEC("SROCHIEF" PRIOR+2, PRIOR+3

Label References

Name Line Occurrences
DATE COMP+2, COMP+6
DWP PRINT+15
OPER OPS+1
PRIOR UTIL+1, UTIL+3
SET SROACMP+8
SS SROACMP+3
TEXT PRINT+9
UTIL SROACMP+2
WP PRINT+9

Naked Globals

Name Field # of Occurrence
^( SROACMP+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CM WP+1~*, DWP+1~*
>> DFN SROACMP+2*, SROACMP+8*, UTIL+2, PRIOR+1, PRIOR+6, SS+1*, SS+2, SS+3, SS+4*
>> DIWL WP+1*, DWP+1*
>> DIWR WP+1*, DWP+1*
DUZ PRIOR+2, PRIOR+3
IOSL SROACMP+4, SROACMP+7, PRINT+1, PRINT+8, WP+3, DWP+3
>> J WP+2*, WP+4, DWP+2*, DWP+4
>> LINE SROACMP+4*
>> LOOP OPER+1*
>> M OPS+1*, OPER+1
>> SDATE PRIOR+1*, PRIOR+5
>> SR(0 SET+2*
>> SRA RA+1*
>> SRBACK UTIL+1*, UTIL+3*, PRIOR+1
SRC COMP+1!
SRC( COMP+2*, COMP+3*, COMP+4*, COMP+8*, COMP+10*, COMP+11*, PRINT+6, PRINT+7, TEXT+1
SRC(1 PRINT+5*
>> SRCASE PRIOR+1*, PRIOR+4, PRIOR+5, PRIOR+6
>> SRCAT COMP+2*, COMP+6*, COMP+7, COMP+8
>> SRCHK OPS+3*, OPS+4
>> SRD SET+2*, OPS+3, COMP+2
>> SRDATE UTIL+1*, UTIL+3*, PRIOR+1, PRIOR+5
>> SRDEATH SROACMP+5*, SROACMP+6, OPS+3, OPS+4, PRINT+11
>> SRE RA+1*
>> SRFG COMP+1*, COMP+2, COMP+3*, COMP+4, COMP+5*, COMP+8, COMP+10*, COMP+11
>> SRFORM SROACMP+3, SROACMP+9
>> SRI PRINT+6*, PRINT+7, TEXT+1
>> SRIC COMP+1*, COMP+4
>> SRICD COMP+1*, COMP+3, COMP+5*, COMP+10
SRICDN SET+1~, COMP+3*, COMP+10*
>> SRINSTP PRIOR+2
SRL OPS+2~*
>> SRNAME SROACMP+5*, SROACMP+6*, SROACMP+8, SS+1*, SS+4*
SRNDTH PRINT+10*, PRINT+11!, PRINT+12
>> SRNM SROACMP+4*, SROACMP+8*
>> SRO COMP+1*, COMP+2, COMP+5*, COMP+6, COMP+7, COMP+9
>> SROPER OPS*, OPS+1*, OPER+1*
SRP OPS+1!
SRP( OPER+1*
SRP(1 OPS+1*, PRINT+3
SRP(2 PRINT+3
>> SRPAT SROACMP+4*, SROACMP+5
>> SRPC COMP+5*, COMP+11
>> SRPOST UTIL+1*
>> SRPROC(1 OPS+2*, PRINT+4
>> SRPROC(2 PRINT+4
>> SRQ SS+1*, SS+2, SS+3*
>> SRREL OPS+3*, OPS+4*, PRINT+2
>> SRSDATE SET+2*, PRINT+2
SRSEP SET+1~, COMP+7*, COMP+8, COMP+9*
>> SRSOUT SROACMP+4, SROACMP+7, SROACMP+8, SROACMP+9, PRINT+1, PRINT+8, WP+3, DWP+3
>> SRSP SROACMP+3
>> SRSP( SS+3
>> SRSS SET+2*, PRINT+2
>> SRSTATUS RA+1*, RA+4*, PRINT+2
>> SRT PRINT+9, TEXT+1*
>> SRTN SROACMP+2*, SROACMP+8*, UTIL+1, PRIOR+2, PRIOR+3, SET+2, OPS, OPS+4, COMP+1, COMP+3
, COMP+5, COMP+10, RA+1, PRINT+2, PRINT+10, PRINT+14, SS+1*, SS+2*, SS+3, WP+1
, TEXT+1, DWP+1
>> SRTYPE RA+1*, RA+2*, RA+3*, PRINT+2
>> SRX SROACMP+5*, SROACMP+8, PRIOR+5*, TEXT+1*
>> SRY COMP+2, COMP+8, DATE*, WP+1, TEXT+1*
>> SRYN RA+1*, RA+3
>> SRZ WP+1, TEXT+1*
>> VA("PID" UTIL+2
>> VADM(1 UTIL+2
>> VADM(6 UTIL+2, UTIL+3
>> X SROACMP+6*, PRIOR+1, OPS+3, OPS+4*, COMP+7*, COMP+9*, PRINT+12*, WP+1*, DWP+1*
>> X1 PRIOR+1*, OPS+3*
>> X2 PRIOR+1*, OPS+3*
>> Y SET+2*, COMP+2*, COMP+6*, DATE, SS+3*
Z OPS+1!, OPER+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All