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

Package: Surgery

Routine: SROQN


Information

SROQN ;BIR/ADM - KEY MISSING SURGICAL PACKAGE DATA ;12/07/2010

Source Information

Source file <SROQN.m>

Entry Points

Name Comments DBIA/ICR reference
SEL ; select date range and specialty
IO
EN
END
AC
CASE ; examine case for missing items
PRINT ; print case information
PRESS
PAGE
HDR ; print heading
CODES ; missing items code definition

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,?18,"Report of Key Missing Surgical Package Data",!!
  • Line Location: SROQN+6
Function Call: WRITE
  • Prompt: !,"For surgical cases with an entry in the TIME PAT IN OR field and that are not",!,"aborted, this option generates a report of cases missing any of the following",!,"pieces of information:"
  • Line Location: SROQN+7
Function Call: WRITE
  • Prompt: !!,?10,"Hospital Admission Status",!,?10,"Case Schedule Type",!,?10,"Attending Code",!,?10,"Time Pat Out OR",!,?10,"Wound Classification",!,?10,"ASA Class",!,?10,"CPT Code (Principal)",!,?10,"Principal anesthesia technique",!
  • Line Location: SROQN+8
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: IO+0
Function Call: WRITE
  • Prompt: !!,"No data for selected date range."
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"TOTAL CASES MISSING DATA: ",SRTOT
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,SRSDATE,?22,SRSNM,?54,$S(SRSPEC:SRDOC,1:SRSS),?97,SRMISS,!,SRTN,?22,SRSSN_" ("_SRAGE_")",?54,SRPROC(1),!
  • 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"),?97,"MISSING ITEMS",!,"CASE #",?22,"PATIENT ID (AGE)",?54,"PRINCIPAL PROCEDURE"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !
  • Line Location: CODES+1
Function Call: WRITE
  • Prompt: !
  • Line Location: CODES+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CODES+2
Function Call: WRITE
  • Prompt: !,"MISSING ITEMS CODES: A-HOSPITAL ADMISSION STATUS, C-CASE SCHEDULE TYPE, D-ATTENDING CODE,"
  • Line Location: CODES+3
Function Call: WRITE
  • Prompt: !,"E-TIME PAT OUT OR, F-WOUND CLASSIFICATION, G-ASA CLASS, H-CPT CODE (PRINCIPAL), I-PRINCIPAL ANESTHESIA TECHNIQUE"
  • Line Location: CODES+4

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