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

Package: Surgery

Routine: SROCMP


Information

SROCMP ;BIR/MAM - PERIOPERATIVE OCCURRENCES ;05/15/06

Source Information

Source file <SROCMP.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 4 (FOOT,HDR)^SROCMP2  BEG^SROMORT  ($$MANDIV,$$SITE)^SROUTL0  ^SRSKILL  
VA Fileman 2 (D,Y)^DIQ  ^DIWP  
Kernel 1 ^%ZISC  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROCMP1  

Entry Points

Name Comments DBIA/ICR reference
OPER ; break procedure if greater than 50 characters
SRC
SET ; set variables to print
END
OPS
COMP ; perioperative occurrences
PRNT3
BEG
UTIL ; set ^TMP
DATE
ATT
OTHER ; other operations
TEXT ; check for comments
WP ; print perioperative occurrence comments
PRINT ; print perioperative occurrence information
MORE

External References

Name Field # of Occurrence
^%ZISC END+1
D^DIQ SET+1
Y^DIQ ATT+1, ATT+4, OPS+2, OPS+4
^DIWP WP+1
FOOT^SROCMP2 BEG+7
HDR^SROCMP2 BEG+3, BEG+5, PRINT+1, SRC+1, WP+3
BEG^SROMORT BEG+8
$$MANDIV^SROUTL0 BEG+2
$$SITE^SROUTL0 ATT+2, OPS+3
^SRSKILL END+1
DEM^VADPT SET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There are no perioperative occurrences recorded for the selected date range."
  • Line Location: BEG+5
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!,SRNM,?29,$S(SRSEL=2:SRSPEC,1:SRATT)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?80,$P(SRC(SRC),"^")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: ?80,$P(SRC(SRC),"^")
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,VA("PID"),?29,SRP(1),?80,$P(SRC(SRC),"^",4)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,SROD
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?29,SRP(2)
  • Condition for execution: $D(SRP(2))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(SRP(3))!SRT
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?29,SRP(3)
  • Condition for execution: $D(SRP(3))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?129,$P(SRC(SRC),"^",2),!,?80,$P(SRC(SRC),"^",4),!
  • Line Location: SRC+2
Function Call: WRITE
  • Prompt: !
  • Line Location: SRC+2
Function Call: WRITE
  • Prompt: !,VA("PID"),?29,SRSPEC,?80,$P(SRC(SRC),"^",4)
  • Line Location: PRNT3+0
Function Call: WRITE
  • Prompt: !,SROD
  • Line Location: PRNT3+1
Function Call: WRITE
  • Prompt: ?29,SRP(1)
  • Line Location: PRNT3+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $D(SRP(2))!SRT
  • Line Location: PRNT3+1
Function Call: WRITE
  • Prompt: ?29,SRP(2)
  • Condition for execution: $D(SRP(2))
  • Line Location: PRNT3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+3
Function Call: WRITE
  • Prompt: ?80,">>> Comments:"
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: " /"_SRSEP
  • Line Location: DATE+1
Function Call: WRITE
  • Prompt: " ("_$E(SRDT,4,5)_"/"_$E(SRDT,6,7)_"/"_$E(SRDT,2,3)_")"
  • Line Location: DATE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG, BEG+1
^DD(130 ATT+1, ATT+4, OPS+2, OPS+4
^SRF - [#130] BEG+2, ATT, ATT+3, UTIL+2, UTIL+6, SET+1, OPS, OPS+2, OPS+4, OPS+6
, COMP+1, COMP+2, COMP+3, COMP+4, WP+1, TEXT+1, OTHER+1, OTHER+2
^SRF("AC" BEG+2
^SRO(133 - [#133] ATT+2, OPS+3
^SRO(136.5 - [#136.5] UTIL+8
^SRO(137.45 - [#137.45] UTIL+3, OPS+6
^TMP("SR" BEG!, BEG+3, BEG+5, END!, MORE, ATT+7*, UTIL+4*, UTIL+9*
^UTILITY($J WP+1!, WP+2, WP+4

Label References

Name Line Occurrences
ATT UTIL+5
DATE PRINT+2, SRC+2
END BEG+4, BEG+5
MORE BEG+3
OPER OPS+1
OTHER OPS
PRNT3 PRINT+3
SET MORE
SRC PRNT3+2
TEXT PRINT+5, SRC+2, PRNT3+1
UTIL BEG+2
WP PRINT+5, SRC+2, PRNT3+1

Naked Globals

Name Field # of Occurrence
^( COMP+1
^(0 COMP+1, COMP+3
^(2 COMP+1, COMP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C ATT+1*, ATT+4*, OPS+2*, OPS+4*
>> CM WP+1*
>> DFN SET+1*
>> DIWL WP+1*
>> DIWR WP+1*
DT BEG
>> I BEG+6*
IO BEG
IOF END, END+1
IOSL BEG+6, PRINT+1, SRC+1, WP+3
IOST END
>> J WP+2*, WP+4
>> LOOP OPER+1*
>> M OPS+1*, OPER+1
>> OPER OPS*, OTHER+1*, OTHER+2
>> PAGE BEG*
>> SRATT OPS+2*, OPS+3, OPS+4*, OPS+5*, PRINT+2
>> SRBOTH BEG+8
SRC SET+1!, PRINT+2*, PRINT+4, SRC*, SRC+2, PRNT3, TEXT+1, DATE+1, DATE+2
SRC( COMP+1*, COMP+3*, COMP+4*, PRINT+2, PRINT+4, SRC, SRC+2, PRNT3, TEXT+1, DATE+1
, DATE+2
SRC(0 PRINT+2
SRDIV ATT~, ATT+2*, OPS+3*
>> SRDT DATE+2*
>> SRED BEG, BEG+1
>> SREDT BEG*, BEG+2
>> SRFG COMP+1*, COMP+3*, COMP+4
SRFRTO BEG+1~*
>> SRHDR BEG+3*, PRINT+2*
>> SRI UTIL+6*
>> SRIC COMP+1*
>> SRINSTP BEG+2
>> SRLONG OTHER+1*, OTHER+2
>> SRNM SET+1*, PRINT+2
>> SROCC UTIL+6*
>> SROD SET+1*, PRINT+5, PRNT3+1
>> SROPER OPS*, OPS+1*, OTHER+1, OTHER+3*, OPER+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SRP OPS+1!
SRP( OPER+1*
SRP(1 OPS+1*, PRINT+4, PRNT3+1
SRP(2 PRINT+5, PRNT3+1
SRP(3 PRINT+5
>> SRPC COMP+1*, COMP+2*, COMP+3, COMP+4
>> SRPRINT BEG*
>> SRSD BEG, BEG+1
>> SRSDATE BEG+3*, MORE
>> SRSDT BEG*, BEG+2*, ATT+7, UTIL+4, UTIL+9
>> SRSEL UTIL+1, UTIL+5, UTIL+6, PRINT+2, PRINT+3
SRSEP DATE~, DATE+1*
>> SRSOUT BEG*, BEG+2, BEG+3, BEG+4, BEG+5, BEG+8*, PRINT+1, SRC, SRC+1, WP+3
>> SRSP ATT+5, UTIL+2, UTIL+7
>> SRSP( ATT+5, UTIL+2, UTIL+7
>> SRSPEC OPS+6*, PRINT+2, PRNT3
>> SRSS BEG+3*, MORE, ATT+1*, ATT+4*, ATT+6*, ATT+7, UTIL+3*, UTIL+4, UTIL+8*, UTIL+9
>> SRSSN SET+1*
>> SRT PRINT+5, SRC+2, PRNT3+1, TEXT+1*
SRTN BEG+2*, END+1!, MORE*, ATT, ATT+2, ATT+3, ATT+7, UTIL+2, UTIL+4, UTIL+6
, UTIL+9, SET+1, OPS, OPS+2, OPS+3, OPS+4, OPS+6, COMP+1, COMP+2, COMP+3
, COMP+4, WP+1, TEXT+1, OTHER+1, OTHER+2
>> SRX WP+1, TEXT+1*
SRY ATT~*, ATT+1, ATT+2, ATT+3*, ATT+4, ATT+5*, ATT+6, WP+1, TEXT+1*
>> VA("PID" SET+1, PRINT+4, PRNT3
>> VADM(1 SET+1
>> X BEG+7*, WP+1*, DATE+1*
>> Y BEG*, BEG+1*, ATT+1*, ATT+4*, UTIL+2*, UTIL+3, UTIL+6*, UTIL+7, UTIL+8, SET+1*
, OPS+2*, OPS+4*, OPS+6*
Z OPS+1!, OPER+1*
>> ZTQUEUED END
>> ZTREQ END*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All