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
Print Page as PDF
Routine: SROQD1

Package: Surgery

Routine: SROQD1


Information

SROQD1 ;BIR/ADM - CASES WITH DEATHS WITHIN 30 DAYS ;01/29/98

Source Information

Source file <SROQD1.m>

Entry Points

Name Comments DBIA/ICR reference
NAT ; loop through national specialties
IP ; loop through index procedures
NEW ; print national specialty or index procedure category
PATS ; print patient list
CASE ; print case information
PAGE
HDR ; print heading
SUM ; print total for specialty or index procedure
SUM1 ; print grand total for all specialties or index procedures
PRESS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,">>> "_SRNATNM_" <<<",!
  • Line Location: NEW+2
Function Call: WRITE
  • Prompt: ?44,SRPROC(I),!
  • Line Location: CASE+8
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(SRRPT)\2),SRRPT,?(IOM-10),$J("PAGE "_SRPAGE,9),!,?(IOM-$L(SRFRTO)\2),SRFRTO,!,?(IOM-$L(SRPRINT)\2),SRPRINT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"OP DATE",?12,"PATIENT NAME",?44,"DATE OF DEATH",?60,"LOCAL SPECIALTY",?102,"IN/OUT",?111,"DEATH RELATED"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"CASE #",?12,"PATIENT ID# (AGE)",?44,"PROCEDURE(S)"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,">>> "_SRNATNM_" <<< * * Continued from previous page * *"
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"TOTAL DEATHS FOR "_SRNATNM_": "_SRDNAT,!
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR ALL "_$S(SRSEL=2:"SPECIALTIES",1:"INDEX PROCEDURES")_": "_SRDTOT
  • Line Location: SUM1+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRESS+0
Info |  Source |  Entry Points |  Interaction Calls