Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls