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

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

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 SROCMP1  

Entry Points

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

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+10
HDR^SROCMP2 BEG+6, BEG+8, PRINT+1, SRC+1, WP+3
BEG^SROMORT BEG+11
$$MANDIV^SROUTL0 BEG+3, BEG+4, BEG+5
$$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 "_$S(SRBOTH1="I":"intraoperative",SRBOTH1="P":"postoperative",SRBOTH1="B":"perioperative",1:"")_" occurrences recorded for the selected date range."
  • Line Location: BEG+8
Function Call: WRITE
  • Prompt: !
  • Line Location: BEG+9
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" BEGBEG+1
^DD(130 ATT+1, ATT+4, OPS+2, OPS+4
^SRF - [#130] BEG+3, BEG+4, BEG+5, ATTATT+3, UTIL+2, UTIL+6, SET+1, OPSOPS+2
OPS+4, OPS+6, COMP+2, COMP+3, COMP+4, COMP+5, COMP+6, 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+6, BEG+8, END!, MOREATT+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+7, BEG+8
MORE BEG+6
OPER OPS+1
OTHER OPS
PRNT3 PRINT+3
SET MORE
SRC PRNT3+2
TEXT PRINT+5, SRC+2, PRNT3+1
UTIL BEG+3, BEG+4, BEG+5
WP PRINT+5, SRC+2, PRNT3+1

Naked Globals

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

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+9*
IO BEG
IOF ENDEND+1
IOSL BEG+9, 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+11
>> SRBOTH1 BEG+3, BEG+4, BEG+5, BEG+8, UTIL+6, COMP+2, COMP+4, COMP+5
SRC SET+1!, PRINT+2*, PRINT+4, SRC*, SRC+2, PRNT3TEXT+1, DATE+1, DATE+2
SRC( COMP+3*, COMP+5*, COMP+6*, PRINT+2, PRINT+4, SRCSRC+2, PRNT3TEXT+1, DATE+1
DATE+2
SRC(0 PRINT+2
SRDIV ATT~, ATT+2*, OPS+3*
>> SRDT DATE+2*
>> SRED BEGBEG+1
>> SREDT BEG*, BEG+2
>> SRFG COMP+1*, COMP+3*, COMP+5*, COMP+6
SRFRTO BEG+1~*
>> SRHDR BEG+6*, PRINT+2*
>> SRI UTIL+6*
>> SRIC COMP+1*, COMP+2*, COMP+3
>> SRINSTP BEG+3, BEG+4, BEG+5
>> SRJ UTIL+6*
>> 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+4*, COMP+5, COMP+6
>> SRPRINT BEG*
>> SRSD BEGBEG+1
>> SRSDATE BEG+6*, 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+6, BEG+7, BEG+8, BEG+11*, PRINT+1, SRCSRC+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+6*, MOREATT+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*, BEG+3, BEG+4, BEG+5, END+1!, MORE*, ATTATT+2, ATT+3, ATT+7
UTIL+2, UTIL+4, UTIL+6, UTIL+9, SET+1, OPSOPS+2, OPS+3, OPS+4, OPS+6
COMP+2, COMP+3, COMP+4, COMP+5, COMP+6, 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+10*, 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