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

Package: Surgery

Routine: SROPPC


Information

SROPPC ;B'HAM ISC/MAM - COMPARISON DIAGNOSIS REPORT ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SROPPC.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Surgery 4 ^SROSTOP  DATE^SROUTL  ($$INST,$$MANDIV)^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROPPC  

Entry Points

Name Comments DBIA/ICR reference
SET ; set variables
END
HDR ; print heading
EN1 ; entry when queued
CHK ; compare pre and postop diagnosis
ASK
EN ; entry point
PRINT ; print case

External References

Name Field # of Occurrence
^%ZIS EN+5
^%ZISC END+1
^%ZTLOAD EN+6
^SROSTOP HDR+1
DATE^SROUTL EN+2
$$INST^SROUTL0 EN+4
$$MANDIV^SROUTL0 EN1+2
^SRSKILL END+1
DEM^VADPT SET+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SROD,?10,SRNM,?42,SRPRE("*"),?84,SRPOST("*")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?126,SRWC,!,SRTN,?10,VA("PID")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?42,SRPRE(1)
  • Condition for execution: $D(SRPRE(1))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?84,SRPOST(1)
  • Condition for execution: $D(SRPOST(1))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?10,SRTS,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?42,SRPRE(2)
  • Condition for execution: $D(SRPRE(2))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?84,SRPOST(2)
  • Condition for execution: $D(SRPOST(2))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?46,"COMPARISON OF PREOP AND POSTOP DIAGNOSIS",?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: !!,"DATE",?10,"PATIENT",?42,"PREOPERATIVE DIAGNOSIS",?84,"POSTOPERATIVE DIAGNOSIS",?121,"WOUND CLASS",!,"CASE #",?10,"ID #",!,?10,"SURGICAL SPECIALTY",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF,!,"Comparison of Preoperative and Postoperative Diagnosis",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"No data for selected date range."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: !,"WOUND CLASSIFICATION CODES: ",!,"C: CLEAN, CC: CLEAN/CONTAMINATED, D: CONTAMINATED, I: INFECTED"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: EN1+7
Routine Call
  • %ZIS
  • Line Location:
    • EN+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN1+1
^SRF - [#130] CHK+1, CHK+2, CHK+3, CHK+4, SET+2, SET+3, EN1+2
^SRF("AC" EN1+2
^SRO(137.45 - [#137.45] SET+4

Label References

Name Line Occurrences
ASK PRINT+1
CHK EN1+2
END EN+2, EN+4, EN+5, EN+6, EN1+4, EN1+8
HDR ASK+1, EN1+2
SET EN1+2

Naked Globals

Name Field # of Occurrence
^("1.0" SET+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+5!*
%ZIS("A" EN+5*
>> CNT CHK+3*, CHK+4*
>> DFN SET+2*
DT EN1+1
DTIME ASK, EN1+7
>> I HDR+4*, EN1+5*
IO EN1+1
IO("Q" EN+5!, EN+6!
IOF END, END+1, HDR+2, EN+1
IOM HDR+4, EN1+5
IOP EN+5!
IOSL PRINT+1, EN1+4
IOST END, ASK, EN1+7
>> J EN1+1*, EN1+2*
>> K CHK+1, CHK+2, SET+2, SET+3, EN1+2*
POP EN+5!
>> S(0 SET+2*, SET+3, SET+4
>> SRD EN+3*, EN1+1
>> SRDG CHK+3*, CHK+4*
>> SRED EN+2, EN1+1, EN1+2
>> SRF CHK+5*, EN1+2*
SRFRTO HDR+3, EN1+1~*
>> SRHALT HDR+1
>> SRINST HDR+2, EN+4*
SRINSTP EN+4~*, EN1+2
>> SRNM SET+2*, PRINT+3
>> SROD SET+3*, PRINT+3
SRPOST CHK+2!
SRPOST( CHK+4*
SRPOST("*" CHK+2*, CHK+5*, SET+1, PRINT+3
SRPOST(1 PRINT+3
SRPOST(2 PRINT+4
SRPRE CHK+2!
SRPRE( CHK+3*
SRPRE("*" CHK+2*, CHK+5*, SET+1, PRINT+3
SRPRE(1 PRINT+3
SRPRE(2 PRINT+4
>> SRPRINT HDR+3, EN1+1*
>> SRQ PRINT+1, ASK*, HDR+1*, EN+2, EN1+1*, EN1+2, EN1+4, EN1+7
>> SRSD EN+2, EN+3, EN1+1
>> SRT EN1+1*, EN1+2*, EN1+3
SRTN CHK+2*, CHK+3, CHK+4, SET+2*, PRINT+3, END+1!
>> SRTS SET+4*, SET+5*, PRINT+2*, PRINT+4
>> SRWC SET+3*, PRINT+3
U EN+4
>> VA("PID" PRINT+3
>> VADM(1 SET+2
>> X ASK*, EN1+7*
>> Y EN1+1*
>> Z EN1+4*
>> ZTDESC EN+6*
>> ZTQUEUED END, HDR+1
>> ZTREQ END*
>> ZTRTN EN+6*
>> ZTSAVE("SRD" EN+6*
>> ZTSAVE("SRED" EN+6*
>> ZTSAVE("SRINST" EN+6*
>> ZTSAVE("SRINSTP" EN+6*
>> ZTSAVE("SRSD" EN+6*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All