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

Package: Surgery

Routine: SROQL


Information

SROQL ;BIR/ADM - LIST OF OPERATIONS FOR QUARTERLY REPORT ;06/15/04 11:46 AM

Source Information

Source file <SROQL.m>

Entry Points

Name Comments DBIA/ICR reference
SEL ; select date range and specialty
IO
EN
END
AC
CASE ; examine case
AAA
PRESS
OCC ; get occurrences
PAGE
HDR ; print heading

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?17,"List of Operations Included on Quarterly Report",!!
  • Line Location: SROQL+6
Function Call: WRITE
  • Prompt: !,"This option generates a list of completed operations that are included on the",!,"Quarterly Report and displays the data fields for each case that are checked",!,"by the Quarterly Report."
  • Line Location: SROQL+7
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+4
Function Call: WRITE
  • Prompt: !!,"TOTAL CASES: ",SRTOT
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,SRSDATE,?22,SRSNM,?54,SRSSN_" ("_SRAGE_")",?81,$E(SRASA,1,25),?108,"LEVEL "_SRATT,!,SRTN_" ("_SRMM_")",?22,$S(SRSPEC:SRDOC,1:$E(SRSS,1,30)),?54,$E(SRTYPE,1,25),?81,SRWC,?108,SRIO,!
  • Line Location: CASE+12
Function Call: WRITE
  • Prompt: SRPERI(I)
  • Condition for execution: $D(SRPERI(I))
  • Line Location: CASE+13
Function Call: WRITE
  • Prompt: ?54,SRPROC(I)
  • Condition for execution: $D(SRPROC(I))
  • Line Location: CASE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+13
Function Call: WRITE
  • Prompt: !
  • Line Location: AAA+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: AAA+2
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,"PATIENT ID (AGE)",?81,"ASA CLASS",?108,"RESIDENT SUPERVISION"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"CASE # (MAJ/MIN)",?22,$S(SRSPEC:"SURGEON",1:"SURGICAL SPECIALTY"),?54,"CASE SCHEDULE TYPE",?81,"WOUND CLASS",?108,"IN/OUT-PAT STATUS"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"OCCURENCE(S)",?54,"PROCEDURE(S)"
  • Line Location: HDR+6
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