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

Package: Surgery

Routine: SROSUR2


Information

SROSUR2 ;B'HAM ISC/MAM - SURGEON'S REPORT FOR ONE ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROSUR2.m>

Entry Points

Name Comments DBIA/ICR reference
BEG ; entry when queued
PRINT ; print from ^TMP(
END
ASK
OTHER ; other operations
NAME
ROLE
HDR ; print heading
SETUP ; set up ^TMP(
PRIN2
SET ; set variables and print from ^SRF(
OPS
LOOP ; break procedure if greater than 50 characters

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SROSUR2+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: SROSUR2+3
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !!," ** "_J_" **"
  • Line Location: NAME+1
Function Call: WRITE
  • Prompt: !!,?5,"ROLE: "
  • Line Location: ROLE+1
Function Call: WRITE
  • Prompt: $S(K="1ST":"FIRST ASSISTANT",K="2ND":"SECOND ASSISTANT",K="ATT":"ATTENDING SURGEON",K="OTH":"OTHER ASSISTANT",1:"SURGEON"),!
  • Line Location: ROLE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?54,"SURGEON STAFFING REPORT",?100,"DATE REVIEWED: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?1,"DATE/TIME",?23,"PATIENT",?43,"OPERATION(S)",?95,"DIAGNOSIS",!,?1,"CASE #",?23,"ID #",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,DATE,?23,PAT,?43,SROPS(1),?95,$E(ICD("*"),1,35)
  • Line Location: OPS+6
Function Call: WRITE
  • Prompt: !,SRTN,?23,SSN
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: ?43,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: ?95,$E(ICD(ICD),1,35)
  • Condition for execution: ICD
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: !,?43,SROPS(3)
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: !,?43,SROPS(3)
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: !,?43,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: !,?43,SROPS(5)
  • Condition for execution: $D(SROPS(5))
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: !,?43,SROPS(6)
  • Condition for execution: $D(SROPS(6))
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+9
Info |  Source |  Entry Points |  Interaction Calls