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

Package: Surgery

Routine: SROAT1P


Information

SROAT1P ;B'HAM ISC/MAM - ATTENDING SURGEON REPORT (CONT.) ; [ 05/11/04 11:29 AM ]

Source Information

Source file <SROAT1P.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Surgery 2 ^SROSTOP  $$NODATA^SROUTL0  
Registration 1 DEM^VADPT  
VA FileMan 1 Y^DIQ  

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 SROATT1  

Entry Points

Name Comments DBIA/ICR reference
MORE
CASE
SET ; print case
OPS
OTHER ; other operations
LOOP ; break procedure if greater than 55 characters
PAGE
HDR ; print heading
AT

External References

Name Field # of Occurrence
Y^DIQ SET+3
^SROSTOP HDR+1
$$NODATA^SROUTL0 SROAT1P+7
DEM^VADPT SET+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROAT1P+7
Function Call: WRITE
  • Prompt: !!,SRDT,?12,VADM(1),?52,SRDIAG,?112,SRSUR,!,SRTN,?12,VA("PID"),?52,SROP(1),?112,SRFST,!
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: "ABORTED"
  • Condition for execution: $P($G(^SRF(SRTN,30)),"^")
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: ?12,SRCODE(1)
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: ?52,SROP(2)
  • Condition for execution: $D(SROP(2))
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: ?112,SRTWO
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: ?13,SRCODE(2)
  • Condition for execution: $D(SRCODE(2))
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: ?50,SROP(3)
  • Condition for execution: $D(SROP(3))
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: !,?50,SROP(4)
  • Line Location: OPS+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"There are more cases for the date range listed. If you want to continue",!,"listing them, enter RETURN. Enter '^' to exit from this option."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: ",SRPAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?54,"ATTENDING SURGEON REPORT",?100,"DATE REVIEWED: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,?3,"DATE",?12,"PATIENT",?52,"PRINCIPAL DIAGNOSIS",?112,"PRIMARY SURGEON",!,?2,"CASE #",?14,"ID#",?52,"PRINCIPAL OPERATIVE PROCEDURE",?112,"1ST ASST",!,?12,"ATTENDING/RES SUP CODE",?112,"2ND ASST",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,?SRSSL,SRSS,!,?SRSSL,SRSS1
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,?X,SRATT1,!,?X,SRATT2
  • Line Location: AT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 SET+3
^SRF - [#130] SET+6, SET+7, SET+8, OPS, OPS+2, OTHER+1, OTHER+2
^SRO(137.45 - [#137.45] SROAT1P+2
^TMP("SR" SROAT1P+4, SROAT1P+7, MORE, CASE
^VA(200 - [#200] SET+9, SET+10, SET+11

Label References

Name Line Occurrences
AT SROAT1P+5, SROAT1P+6, HDR+6
CASE MORE
HDR SROAT1P+3, PAGE
LOOP OPS+1
MORE SROAT1P+5, SROAT1P+6
OTHER OPS
PAGE SROAT1P+5, SROAT1P+6, SET+1, PAGE+2
SET CASE

Naked Globals

Name Field # of Occurrence
^( SET+8
^(34 SET+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C SET+3*
>> CODE SET+2*, SET+3
>> DFN SET+6*
DTIME PAGE+1
I SET+5~*, OPS*, HDR+5*
IOF HDR+2
IOSL SROAT1P+5, SET+1
IOST PAGE
J SET+5~*
>> LINE SROAT1P+2*, AT+1*
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
MM OPS+1!, LOOP+1*
MMM OPS+1!, LOOP+1*
>> OPER OPS*, OTHER+1*, OTHER+2
>> SR( SET+8*
>> SR(0 SET+6*
>> SRATC MORE*, CASE, SET+2
>> SRATT SROAT1P+3*, SROAT1P+4*, MORE, CASE
>> SRATT1 SROAT1P+4*, AT+1, AT+2
>> SRATT2 AT+1*, AT+2
>> SRB SROAT1P+5, SROAT1P+6
SRCODE SET+2!*, SET+3*, SET+4, SET+5
SRCODE(1 SET+4*, SET+5*, OPS+2
SRCODE(2 SET+5*, OPS+3
>> SRDIAG SET+7*, OPS+2
>> SRDT SET+6*, OPS+2
>> SRFRTO HDR+4
>> SRFST SET+8*, SET+10*, OPS+2
>> SRHALT HDR+1
>> SRHDR SROAT1P+3*, SROAT1P+4*, SET+1*, PAGE+3*, AT*, AT+2*
>> SRINST HDR+3
>> SRLONG OTHER+1*, OTHER+2
>> SRNEW SROAT1P+3*, SROAT1P+6*
SROP OPS+1!
SROP( LOOP+1*
SROP(1 OPS+1*, OPS+2
SROP(2 OPS+2
SROP(3 OPS+3
SROP(4 OPS+4
>> SROPER OPS*, OPS+1*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
>> SRPAGE SROAT1P+3*, HDR+3, HDR+6*
>> SRPRINT HDR+4
>> SRSAV SROAT1P+2*, SROAT1P+8
>> SRSDATE MORE*, CASE, SET+6
>> SRSOUT SROAT1P+4, SROAT1P+5, SROAT1P+6, MORE, CASE, SET+1, PAGE+1*, HDR+1*
>> SRSS SROAT1P+2*, SROAT1P+8*, HDR+6
>> SRSS1 SROAT1P+2*, HDR+6
>> SRSSL SROAT1P+2*, HDR+6
>> SRSUR SET+8*, SET+9*, OPS+2
>> SRTN CASE*, SET+6, SET+7, SET+8, OPS, OPS+2, OTHER+1, OTHER+2
>> SRTWO SET+8*, SET+11*, OPS+2
>> VA("PID" OPS+2
>> VADM(1 OPS+2
X SET+5~*, PAGE+1*, PAGE+2, AT+2*
Y SET+3*, SET+5~*
>> ZTQUEUED HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All