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

Package: Surgery

Routine: SROAT2P


Information

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

Source Information

Source file <SROAT2P.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 1 DEM^VADPT  
Surgery 1 $$NODATA^SROUTL0  
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 SROATT2  

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
SPEC
AT

External References

Name Field # of Occurrence
Y^DIQ SET+3
$$NODATA^SROUTL0 SROAT2P+4
DEM^VADPT SET+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROAT2P+4
Function Call: WRITE
  • Prompt: !!,SRDT,?12,VADM(1),?50,SRDIAG,?112,SRSUR,!,SRTN,?12,VA("PID"),?50,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: ?50,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 selected. 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+1
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+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!?3,"DATE",?12,"PATIENT",?50,"PRINCIPAL DIAGNOSIS",?112,"PRIMARY SURGEON",!,?2,"CASE #",?14,"ID#",?50,"PRINCIPAL OPERATIVE PROCEDURE",?112,"1ST ASST",!,?12,"ATTENDING/RES SUP CODE",?112,"2ND ASST",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,?X,SRSSN,!,?X,SRSS1
  • Line Location: SPEC+2
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, OPSOPS+2, OTHER+1, OTHER+2
^TMP("SR" SROAT2P+3, SROAT2P+4, MORE+3, CASE
^VA(200 - [#200] SET+9, SET+10, SET+11

Label References

Name Line Occurrences
AT MORE+1, MORE+2
CASE MORE+3
HDR SROAT2P+4, PAGE
LOOP OPS+1
MORE SROAT2P+3
OTHER OPS
PAGE SROAT2P+3, MORE+1, MORE+2, 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+4*
IOF HDR+1
IOSL MORE+1, SET+1
IOST PAGE
J SET+5~*
>> LINE SPEC+1*, 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+3*, CASESET+2
>> SRATT SROAT2P+3*, MOREMORE+3, CASE
>> SRATT1 MORE*, AT+1, AT+2
>> SRATT2 AT+1*, AT+2
>> SRB MORE+1, MORE+2
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
>> SRFLG PAGE*
>> SRFRTO HDR+3
>> SRFST SET+8*, SET+10*, OPS+2
>> SRHDR SROAT2P+2*, SROAT2P+3*, SET+1*, AT*, AT+2*
>> SRINST HDR+2
>> SRLONG OTHER+1*, OTHER+2
>> SRNEW SROAT2P+3*, MORE+2*
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 SROAT2P+2*, HDR+2, HDR+5*
>> SRPRINT HDR+3
>> SRSDATE MORE+3*, CASESET+6
>> SRSOUT SROAT2P+3, MOREMORE+1, MORE+2, MORE+3, CASESET+1, PAGE+1*
>> SRSS SROAT2P+2*, SROAT2P+3*, MORE+3, CASESPEC
>> SRSS1 SPEC+1*, SPEC+2
>> SRSSN SPEC*, SPEC+1, SPEC+2
>> SRSUR SET+8*, SET+9*, OPS+2
>> SRTN CASE*, SET+6, SET+7, SET+8, OPSOPS+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, SPEC+2*, AT+2*
Y SET+3*, SET+5~*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All