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

Package: Surgery

Routine: SROQIDP0


Information

SROQIDP0 ;BIR/ADM - LIST OF INVASIVE DIAGNOSTIC PROCEDURES ;09/22/98 11:46 AM

Source Information

Source file <SROQIDP0.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; print case information
PRESS
PAGE
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: SROQIDP0+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROQIDP0+14
Function Call: WRITE
  • Prompt: ?4,"TOTAL CASES BY IN/OUT-PATIENT STATUS",!,?14,"INPATIENT: ",SRIOT("I"),!,?13,"OUTPATIENT: ",SRIOT("O"),!,?12,"NOT ENTERED: ",SRIOT("N"),!!,?12,"TOTAL CASES: ",SRIDPT
  • Line Location: SROQIDP0+15
Function Call: WRITE
  • Prompt: "TOTAL "_$S(SRIO="I":"INPATIENT",1:"OUTPATIENT")_" CASES: "_SRIOT(SRIO)
  • Line Location: SROQIDP0+16
Function Call: WRITE
  • Prompt: !,SRSDATE,?22,SRSNM,?54,$S(SRSPEC:$E(SRDOC,1,27),1:$E(SRSS,1,27)),?89,SRANES,?117,SRIOSTAT
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?54,SRPROC(I),!
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: ?54,SRPROC(I),!
  • Line Location: PRINT+7
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"),?89,"ANESTHESIA TECHNIQUE",?117,"IN/OUT-PATIENT"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"CASE #",?22,"PATIENT ID (AGE)",?54,"PROCEDURE(S) PERFORMED"
  • 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