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

Package: Surgery

Routine: SROSCH2


Information

SROSCH2 ;B'HAM ISC/MAM - QUEUE SCHEDULE TO ALL LOCATIONS ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROSCH2.m>

Entry Points

Name Comments DBIA/ICR reference
DEVICE
QUEUE ; queue report to device
PRINT ; print variables
XRAY ; print x-rays

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SRNM,?24,SROPD,?40,SRDIAG,?92,SRANES,?115,SRSUR,!,VA("PID"),?16,AGE,?24,SRSST,?40,SROPS(1),?92,SRAN1,?115,SRFST
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,SRSLOC,?24,SRSET
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?40,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?92,SRAN2,?115,SRATT
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?92,SRAN2,?115,SRATT
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?40,SROPS(4)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?40,SROPS(5)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,?40,SROPS(5)
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,"Case # "_SRTN
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,SRPREAD
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?24,"FROZEN SECTION TESTS REQUIRED",!
  • Line Location: PRINT+11
Function Call: WRITE
  • Prompt: !,?24,"SPINAL LEVEL: ",?45,$P($G(^SRF(SRTN,1.1)),"^",4)
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,@$S(JJ=1:"?24"_",""SPECIAL EQUIPMENT: """,1:"?45"),$P($G(^SRO(131.3,SRIEN,0)),"^")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,@$S(JJ=1:"?24"_",""PLANNED IMPLANT: """,1:"?45"),$P($G(^SRO(131.5,SRIEN,0)),"^")
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,@$S(JJ=1:"?24"_",""SPECIAL SUPPLIES: """,1:"?45"),$P($G(^SRO(131.04,SRIEN,0)),"^")
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,@$S(JJ=1:"?24"_",""SPECIAL INSTRUMENTS: """,1:"?45"),$P($G(^SRO(131.02,SRIEN,0)),"^")
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,@$S(JJ=1:"?24"_",""PHARMACY ITEMS: """,1:"?45"),$P(^PSDRUG(+$G(^SRO(131.06,SRIEN,0)),0),"^")
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: ?24,"PREOPERATIVE XRAYS: "_SRXRAY1
  • Line Location: XRAY+1
Function Call: WRITE
  • Prompt: " INTRAOPERATIVE X-RAYS REQUESTED"
  • Condition for execution: SRXRAY2="Y"
  • Line Location: XRAY+1
Function Call: WRITE
  • Prompt: " C-ARM REQUESTED"
  • Condition for execution: SRXRAY2="C"
  • Line Location: XRAY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: XRAY+1
Function Call: WRITE
  • Prompt: ?24,"INTRAOPERATIVE X-RAYS REQUESTED",!
  • Line Location: XRAY+2
Function Call: WRITE
  • Prompt: ?24,"C-ARM REQUESTED"
  • Line Location: XRAY+3
Function Call: WRITE
  • Prompt: !
  • Line Location: XRAY+4
Info |  Source |  Entry Points |  Interaction Calls