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

Package: Surgery

Routine: SROSUR2


Information

SROSUR2 ;B'HAM ISC/MAM - SURGEON'S REPORT FOR ONE ; [ 07/27/98 2:33 PM ]

Source Information

Source file <SROSUR2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 4 ^SROSTOP  ASSTS^SROSUR  ($$DIV,$$NODATA)^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 2 ^DIC  D^DIQ  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROSUR1  

Entry Points

Name Comments DBIA/ICR reference
SET ; set variables and print from ^SRF(
END
NAME
OPS
SETUP ; set up ^TMP(
BEG ; entry when queued
ASK
OTHER ; other operations
ROLE
LOOP ; break procedure if greater than 50 characters
PRINT ; print from ^TMP(
PRIN2
HDR ; print heading

External References

Name Field # of Occurrence
^%ZIS SROSUR2+3
^%ZISC END
^%ZTLOAD SROSUR2+4
^DIC SROSUR2+2
D^DIQ SET+1
^SROSTOP HDR+1
ASSTS^SROSUR SETUP+5
$$DIV^SROUTL0 BEG+3
$$NODATA^SROUTL0 PRINT+2
^SRSKILL END
DEM^VADPT SET+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SROSUR2+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: SROSUR2+3
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: NAME+0
Function Call: WRITE
  • Prompt: !!," ** "_J_" **"
  • Line Location: NAME+1
Function Call: WRITE
  • Prompt: !!,?5,"ROLE: "
  • Line Location: ROLE+1
Function Call: WRITE
  • Prompt: $S(K="1ST":"FIRST ASSISTANT",K="2ND":"SECOND ASSISTANT",K="ATT":"ATTENDING SURGEON",K="OTH":"OTHER ASSISTANT",1:"SURGEON"),!
  • Line Location: ROLE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?54,"SURGEON STAFFING 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: !!,?1,"DATE/TIME",?23,"PATIENT",?43,"OPERATION(S)",?95,"DIAGNOSIS",!,?1,"CASE #",?23,"ID #",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,DATE,?23,PAT,?43,SROPS(1),?95,$E(ICD("*"),1,35)
  • Line Location: OPS+6
Function Call: WRITE
  • Prompt: !,SRTN,?23,SSN
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: ?43,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: ?95,$E(ICD(ICD),1,35)
  • Condition for execution: ICD
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: !,?43,SROPS(3)
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: !,?43,SROPS(3)
  • Line Location: OPS+7
Function Call: WRITE
  • Prompt: !,?43,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: !,?43,SROPS(5)
  • Condition for execution: $D(SROPS(5))
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: !,?43,SROPS(6)
  • Condition for execution: $D(SROPS(6))
  • Line Location: OPS+9
Function Call: WRITE
  • Prompt: !
  • Line Location: OPS+9
Routine Call
  • DIC
  • Line Location:
    • SROSUR2+2
Routine Call
  • %ZIS
  • Line Location:
    • SROSUR2+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+1
^SRF - [#130] BEG+3, OTHER+1, OTHER+2, SETUP+1, SETUP+2, SETUP+3, SETUP+5, SET+1, OPS, OPS+2
, OPS+4
^SRF("AC" BEG+3
^TMP("SRO" BEG+2!, PRINT+1, PRINT+2, PRINT+3!, SETUP+3*, SETUP+4*, PRIN2
^VA(200 - [#200] SETUP+3, SETUP+4

Label References

Name Line Occurrences
ASK ROLE, OPS+5
END SROSUR2+2, SROSUR2+3, SROSUR2+4
HDR BEG+2, ASK+1
LOOP OPS+1
NAME PRINT+1
OTHER OPS
PRIN2 PRINT+1
ROLE PRINT+1, HDR+5
SET PRIN2
SETUP BEG+3

Naked Globals

Name Field # of Occurrence
^( SETUP+2, SETUP+3, OPS+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS SROSUR2+3!*
%ZIS("A" SROSUR2+3*
>> ATT SETUP+3*, SETUP+4
>> CNT OPS+4*
CPT SET+1!, OPS+6*, OPS+8
>> DATE SETUP+3*, SETUP+4, SET+1*, OPS+6
>> DFN SET+1*
DIC SROSUR2+2!*
DIC("A" SROSUR2+2*
DIC(0 SROSUR2+2*
DT BEG+1
DTIME PRINT+4, ASK
>> FRST SETUP+3*, SETUP+4
>> I OPS*, OPS+4*
ICD SET+1!, OPS+4*, OPS+6*, OPS+7*, OPS+8
ICD( OPS+4*, OPS+7, OPS+8
ICD("*" OPS+4*, OPS+6
IO BEG+1
IO("Q" SROSUR2+3!, SROSUR2+4!
IOF PRINT+3, END, HDR+2
IOM NAME
IOP SROSUR2+3!
IOSL ROLE, OPS+5
IOST PRINT+3, PRINT+4, ASK
J BEG+2!*, BEG+3*, PRINT+1*, NAME+1, HDR+5, PRIN2
>> K PRINT+1*, ROLE+1, PRIN2
>> L PRINT+1*, PRIN2, SET+1
>> LINE NAME*, HDR+4*
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
>> MM LOOP+1*
MMM OPS+1!, LOOP+1*
>> OPER OTHER+1*, OTHER+2, OPS*
>> PAGE BEG+2*, HDR+2, HDR+5*
>> PAT SET+1*, SET+2*, OPS+6
POP SROSUR2+3!
>> S( SETUP+3*
>> S(0 SET+1*
>> SCND SETUP+3*, SETUP+4
>> SRDG OPS+2*, OPS+3*, OPS+4
>> SRDG1 OPS+2*, OPS+3*, OPS+4
>> SRED BEG+1, BEG+3
>> SRF BEG+2*, PRINT+1, PRINT+4, ASK*, ROLE+1, HDR+1*, PRIN2, OPS+6
SRFRTO BEG+1~*, HDR+3
>> SRHALT HDR+1
>> SRINST HDR+2
>> SRLONG OTHER+1*, OTHER+2
>> SROPER OTHER+1, OTHER+3*, OPS*, OPS+1, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS OPS+1!
SROPS( LOOP+1*
SROPS(1 OPS+1*, OPS+6
SROPS(2 OPS+7
SROPS(3 OPS+7
SROPS(4 OPS+9
SROPS(5 OPS+9
SROPS(6 OPS+9
>> SROSUR SROSUR2+2*, SETUP+3, SETUP+4
>> SRPRINT BEG+1*, HDR+3
>> SRSD BEG+1, BEG+2
SRTN BEG+2*, BEG+3*, END!, OTHER+1, OTHER+2, SETUP+1, SETUP+2, SETUP+3, SETUP+4, SETUP+5
, PRIN2*, SET+1, OPS, OPS+2, OPS+4, OPS+7
>> SRUL BEG+2*, ASK*, NAME, NAME+1*
>> SSN SET+1*, OPS+7
>> SUR SETUP+3*
>> VA("PID" SET+1
>> VADM(1 SET+1
>> X PRINT+4*, ASK*
>> Y SROSUR2+2, BEG+1*, SET+1*
>> ZTDESC SROSUR2+4*
>> ZTQUEUED PRINT+3, HDR+1
>> ZTREQ PRINT+3*
>> ZTRTN SROSUR2+4*
>> ZTSAVE("SRED" SROSUR2+4*
>> ZTSAVE("SRINST" SROSUR2+4*
>> ZTSAVE("SROSUR" SROSUR2+4*
>> ZTSAVE("SRSD" SROSUR2+4*
>> ZTSAVE("SRSITE*" SROSUR2+4*
>> ZTSTOP PRINT+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All