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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SRONPEN

Package: Surgery

Routine: SRONPEN


Information

SRONPEN ;B'HAM ISC/ADM - NON-O.R. PROCEDURE REPORT ; [ 07/26/04 9:50 AM ]

Source Information

Source file <SRONPEN.m>

Call Graph

Call Graph Total: 16

Package Total Call Graph
Surgery 6 OPTOP^SRONP2  SEL^SROPER  ^SROSTOP  $$SITE^SROUTL0  ^SROVAR  ^SRSKILL  
VA Fileman 5 DD^%DT  ^DIC  $$EXTERNAL^DILFD  D^DIQ  ^DIR  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  
Registration 1 (DEM,OERR)^VADPT  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SR NON-OR INFO  

Entry Points

Name Comments DBIA/ICR reference
NON ; select patient and case
EN
END
HDR ; heading
SRHDR
LIST ; list case
FOOT
SEL
LOOP ; break procedure if greater than 55 characters
DISPLY

External References

Name Field # of Occurrence
DD^%DT EN+3
^%ZIS DISPLY
^%ZISC END+4
^%ZTLOAD DISPLY+1
^DIC NON+1
$$EXTERNAL^DILFD EN+6
D^DIQ EN+1, SRHDR+1, NON+3, LIST+4
^DIR FOOT
OPTOP^SRONP2 EN
SEL^SROPER LIST+1
^SROSTOP HDR+1
$$SITE^SROUTL0 EN+6
^SROVAR SRONPEN+2
^SRSKILL END+2
DEM^VADPT SRHDR, NON+2
OERR^VADPT EN+1
$$NOW^XLFDT EN+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?5,"The case selected is not a Non-OR Procedure.",!
  • Line Location: SRONPEN+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF,!,"Non-O.R. Procedures for "_SRNM_" ("_VA("PID")_")"
  • Line Location: NON+3
Function Call: WRITE
  • Prompt: !," (DIED ON "_Y_")"
  • Line Location: NON+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: NON+4
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: SEL+0
Function Call: WRITE
  • Prompt: !!,"Enter the number corresponding to the procedure for which you want to print",!,"a report."
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,"NON-O.R. PROCEDURES FOR "_VADM(1)_" ("_VA("PID")_")",!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: !,CNT_".",?4,SRSDATE,?20,SROPS(1)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !,?20,SROPS(2)
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,VADM(1)_" ("_VA("PID"),") Age: "_SRAGE,?(79-$L("PAGE "_SRPAGE)),"PAGE "_SRPAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"NON-O.R. PROCEDURE - CASE #"_SRTN,?52,SRPRINT,!,SRLINE,!
  • Line Location: HDR+4
Routine Call
  • DIC
  • Line Location:
    • NON+1
Routine Call
  • DIR
  • Line Location:
    • FOOT
Routine Call
  • %ZIS
  • Line Location:
    • DISPLY

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] NON+3
^SRF - [#130] SRONPEN+4, EN, EN+5, SRHDR, SRHDR+1, NON+4, LIST+2
^SRF("ADT" NON+4
^SRO(133 - [#133] EN+6
^TMP("SRNOR" EN+9, EN+12, END!

Label References

Name Line Occurrences
END SRONPEN+2, SRONPEN+3, SRONPEN+4, DISPLY, DISPLY+1, EN+13, NON+1, SEL
FOOT SRONPEN+4, EN+10, EN+11, EN+13
HDR EN+8, EN+10, EN+11
LIST NON+4
LOOP LIST+3
NON SRONPEN+3
SEL SEL+1

Naked Globals

Name Field # of Occurrence
^( NON+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DISPLY!*
>> CNT NON+4*, LIST+1*, LIST+2*, LIST+5
>> DFN EN*, SRHDR*, NON+2*, NON+3, NON+4
DIC NON+1!*
DIC("A" NON+1*
DIC(0 NON+1*
DIR FOOT!
DIR(0 FOOT*
DTIME SEL
>> DTOUT FOOT
>> DUOUT FOOT
IO EN+8
IO("Q" DISPLY!, DISPLY+1!
IOF END+1, NON+3, LIST+1, HDR+2
IOSL EN+10, EN+11, LIST+1
IOST EN+10, EN+11, FOOT
>> LOOP LOOP+1*
>> M LIST+3*, LOOP+1
MM LIST+3!, LOOP+1*
MMM LIST+3!, LOOP+1*
>> POP DISPLY
SRAGE SRONPEN+5~, EN+5*, HDR+3
>> SRBACK LIST+1*
>> SRCASE( SEL+1, SEL+2, LIST+2*
>> SRCASE(1 LIST+1
SRDIV SRONPEN+5~, EN+6*, EN+7*
>> SRDT NON+4*, LIST+1*
SRDTITL SRONPEN+5~, SRONPEN+6*
>> SRHALT HDR+1
SRHDR SRONPEN+5~, EN+2*, SRHDR+2*
>> SRI EN+9*, EN+12
>> SRLINE EN+8*, HDR+4
SRLOC SRONPEN+5~, EN+4*
>> SRNM NON+2*, NON+3
>> SROP NON+4*, LIST+1*, LIST+2
>> SROPER LIST+2*, LIST+3*, LOOP+1*
SROPS LIST+3!
SROPS( LOOP+1*
SROPS(1 LIST+3*, LIST+5
SROPS(2 LIST+5
SROPS(3 LIST+5
SROPS(4 LIST+5
>> SRPAGE EN+8*, HDR+2*, HDR+3
SRPRINT SRONPEN+5~, EN+3*, HDR+4
>> SRSDATE EN+1*, EN+2, SRHDR+1*, SRHDR+2, LIST+2*, LIST+4*, LIST+5
SRSEL SRONPEN+5~
SRSINED SRONPEN+5~
SRSITE SRONPEN+2, END+2!
SRSITE("KILL" SRONPEN+2*, END+2
SRSITE("SITE" EN+7
>> SRSOUT SRONPEN+3*, EN+8*, EN+9, EN+10, EN+11, EN+13, NON+1*, LIST+1, FOOT*, HDR+1*
SRTN SRONPEN+3, SRONPEN+4, EN, EN+2, EN+5, EN+6, EN+9, EN+12, SRHDR, SRHDR+1
, SRHDR+2, END+3!, NON+4, SEL+2*, LIST+1, HDR+4
SRTN("KILL" SRONPEN+3*, END+3
>> VA("PID" EN+2, SRHDR+2, NON+3, LIST+1, HDR+3
>> VADM(1 EN+2, SRHDR+2, NON+2, LIST+1, HDR+3
>> VADM(3 EN+5
VAIN END+2!
VAIN(4 EN+4
VAIN(5 EN+4
VAINDT EN*, EN+1, END+2!
>> X EN+5*, EN+6*, SEL*, SEL+1, SEL+2
>> Y EN+1*, EN+3*, EN+5*, SRHDR+1*, NON+1, NON+2, NON+3*, LIST+4*
>> Z EN+5*
>> ZTDESC DISPLY+1*
>> ZTQUEUED END+1, HDR+1
>> ZTREQ END+1*
>> ZTRTN DISPLY+1*
>> ZTSAVE("SRSITE(" DISPLY+1*
>> ZTSAVE("SRTN" DISPLY+1*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All