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

Package: Surgery

Routine: SRSRQST1


Information

SRSRQST1 ;B'HAM ISC/MAM,ADM - MAKE REQUEST (optional fields); [ 04/26/97 3:23 PM ]

Source Information

Source file <SRSRQST1.m>

Entry Points

Name Comments DBIA/ICR reference
BLOOD
OTH
SS
LOOP ; break procedure if greater than 54 charcaters
RT ; start RT logging
REF
DIK
REQ ; print request message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SRSRQST1+5
Function Call: WRITE
  • Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE"
  • Condition for execution: $D(SRCC)
  • Line Location: SRSRQST1+5
Function Call: WRITE
  • Prompt: !,?20,"OPERATION REQUEST: PROCEDURE INFORMATION",!!,SRNM_" ("_SRSSN_")",?65,SREQDT,!,SRLINE
  • Line Location: SRSRQST1+5
Function Call: WRITE
  • Prompt: !,"Principal Procedure: ",?26,SROPS(1)
  • Line Location: SRSRQST1+7
Function Call: WRITE
  • Prompt: !,?26,SROPS(2)
  • Line Location: SRSRQST1+7
Function Call: WRITE
  • Prompt: !,?26,SROPS(2)
  • Line Location: SRSRQST1+7
Function Call: WRITE
  • Prompt: !,"Principal Procedure Code (CPT): "_$P(SREQ(27),"^",2)
  • Line Location: SRSRQST1+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: BLOOD+0
Function Call: WRITE
  • Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE"
  • Condition for execution: $D(SRCC)
  • Line Location: BLOOD+0
Function Call: WRITE
  • Prompt: !,?20,"OPERATION REQUEST: BLOOD INFORMATION",!!,SRNM_" ("_SRSSN_")",?65,SREQDT,!,SRLINE,!
  • Line Location: BLOOD+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: OTH+0
Function Call: WRITE
  • Prompt: !,?29,$S(SRSCON=1:"FIRST",1:"SECOND")_" CONCURRENT CASE"
  • Condition for execution: $D(SRCC)
  • Line Location: OTH+0
Function Call: WRITE
  • Prompt: !,?20,"OPERATION REQUEST: OTHER INFORMATION",!!,SRNM_" ("_SRSSN_")",?65,SREQDT,!,SRLINE,!
  • Line Location: OTH+0
Function Call: WRITE
  • Prompt: !!,"A request has been made for "_SRNM_" on "_$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3)_".",!
  • Line Location: REQ+1
Info |  Source |  Entry Points |  Interaction Calls