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

Package: Surgery

Routine: SROQADM


Information

SROQADM ;BIR/ADM - ADMISSIONS WITHIN 14 DAYS OF OUTPATIENT SURGERY ;09/22/98

Source Information

Source file <SROQADM.m>

Entry Points

Name Comments DBIA/ICR reference
SEL ; select date range and specialty
IO
EN
END
AC
CASE ; examine case
ADM ; check for admission within 14 days of surgery
TMP ; set TMP global
PRINT ; print case information
PRESS
OCC ; get post-op occurrences
PAGE
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?18,"Outpatient Cases with Postop Occurrences",!,?24,"and Admissions Within 14 Days"
  • Line Location: SROQADM+8
Function Call: WRITE
  • Prompt: !!!,"This report displays the completed outpatient surgical cases which resulted in",!,"at least one postoperative occurrence and a hospital admission within 14 days.",!
  • Line Location: SROQADM+9
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: IO+0
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !,"TOTAL CASES: ",SRADMT
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,SRSDATE,?22,SRSNM,?54,$S(SRSPEC:$E(SRDOC,1,30),1:$E(SRSS,1,30)),?87,SRANES,?114,SRADM
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: !,SRTN,?22,SRSSN_" ("_SRAGE_")",?54,SRPROC(1),!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: "*"_$P(SRPOST(I),"^")_" - ("_$P(SRPOST(I),"^",2)_")"
  • Condition for execution: $D(SRPOST(I))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: ?54,SRPROC(I+1)
  • Condition for execution: $D(SRPROC(I+1))
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: PRESS+0
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(SRPRINT)\2),SRPRINT
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(IOM-$L(X)\2),X
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"DATE OF OPERATION",?22,"PATIENT NAME",?54,$S(SRSPEC:"SURGEON",1:"SURGICAL SPECIALTY"),?87,"ANESTHESIA TECHNIQUE",?114,"DATE OF ADMISSION"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"CASE #",?22,"PATIENT ID (AGE)",?54,"PROCEDURE(S) PERFORMED",!,"*OCCURRENCE - (DATE)"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call