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

Package: Surgery

Routine: SROQD0


Information

SROQD0 ;BIR/ADM-Cases with Deaths within 30 Days ; [ 02/05/99 9:38 AM ]

Source Information

Source file <SROQD0.m>

Entry Points

Name Comments DBIA/ICR reference
AC
TOT
SPEC
INDEX
CASE ; examine case
TMP ; update ^TMP
PAGE
HDR ; print heading
SUM ; print category totals
MORT ; look for operations in next quarter
CLEAN ; deselect deaths attributable to operations outside date range

Interaction Calls

Name Line Occurrences
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
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(X)\2),X
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?124,"DEATH",!,"OP DATE",?10,"CASE #",?22,"IN/OUT",?31,"SURGICAL SPECIALTY",?69,"PROCEDURE(S)",?123,"RELATED"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !,SRNAME_" * * Continued from previous page * *",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,"TOTAL DEATHS: "_SRDTOT
  • Line Location: SUM+2
Info |  Source |  Entry Points |  Interaction Calls