Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

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

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
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call