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

Package: Surgery

Routine: SROAT0P


Information

SROAT0P ;B'HAM ISC/MAM - ATTENDING SURGEON REPORT (CONT.) ; [ 05/11/04 2:33 PM ]

Source Information

Source file <SROAT0P.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 1 DEM^VADPT  
Surgery 1 ^SROSTOP  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROATT0  

Entry Points

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

External References

Name Field # of Occurrence
Y^DIQ SET+2
^SROSTOP HDR+1
DEM^VADPT SET+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,SRDT,?12,VADM(1),?50,SRSS,?112,SRSUR,!,SRTN,?12,VA("PID"),?50,SRDIAG,?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,SRATC(1),?50,SROP(1),?112,SRTWO
  • Line Location: OPS+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: ?13,SRATC(2)
  • Condition for execution: $D(SRATC(2))
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: ?50,SROP(2)
  • Condition for execution: $D(SROP(2))
  • Line Location: OPS+3
Function Call: WRITE
  • Prompt: !,?50,SROP(3)
  • Line Location: OPS+4
Function Call: WRITE
  • Prompt: !,?50,SROP(4)
  • Line Location: OPS+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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+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",?50,"SURGICAL SPECIALTY",?112,"SURGEON",!,?2,"CASE #",?14,"ID#",?50,"PRINCIPAL DIAGNOSIS",?112,"1ST ASST",!,?12,"ATTENDING CODE",?50,"OPERATIVE PROCEDURE(S)",?112,"2ND ASST",!
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !!,?(132-$L(SRATT)\2),SRATT,!,?(132-$L(SRATT)\2),SRATT1
  • Line Location: HDR+6

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
HDR SROAT0P+2, PAGE
LOOP OPS+1
OTHER OPS
PAGE SET+1, PAGE+2
SET SROAT0P+3

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C SET+2*
>> DFN SET+6*
DTIME PAGE+1
I SET+5~*, OPS*, HDR+5*
IOF HDR+2
IOSL SET+1
IOST PAGE
J SET+5~*
>> 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+9*
>> SR(0 SET+6*
SRATC SET+2!*, SET+3*, SET+4, SET+5
SRATC(1 SET+4*, SET+5*, OPS+2
SRATC(2 SET+5*, OPS+3
>> SRATT HDR+6
>> SRATT1 HDR+6
>> SRDIAG SET+8*, OPS+2
>> SRDT SET+6*, OPS+2
>> SRFRTO HDR+4
>> SRFST SET+9*, SET+11*, OPS+2
>> SRHALT HDR+1
>> SRINST HDR+3
>> SRLONG OTHER+1*, OTHER+2
SROP OPS+1!
SROP( LOOP+1*
SROP(1 OPS+1*, OPS+2
SROP(2 OPS+3
SROP(3 OPS+4
SROP(4 OPS+4
>> SROPER OPS*, OPS+1*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
>> SRPAGE SROAT0P+2*, HDR+3, HDR+6*
>> SRPRINT HDR+4
>> SRSDATE SROAT0P+3*, SET+6
>> SRSOUT SROAT0P+2, SROAT0P+3, SET+1, PAGE+1*, HDR+1*
>> SRSS SET+7*, OPS+2
>> SRSUR SET+9*, SET+10*, OPS+2
>> SRTN SROAT0P+3*, SET+2, SET+6, SET+7, SET+8, SET+9, OPS, OPS+2, OTHER+1, OTHER+2
>> SRTWO SET+9*, SET+12*, OPS+2
>> VA("PID" OPS+2
>> VADM(1 OPS+2
X SET+5~*, PAGE+1*, PAGE+2
Y SET+2*, 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