Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Surgery 7 TECH^SROPRIN  RS^SROQ0A  ^SROSTOP  (DATE,SPEC)^SROUTL  ($$INST,$$MANDIV)^SROUTL0  $$SITE^SROVAR  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 NOW^%DTC  $$GET1^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROQ MISSING DATA  

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

External References

Name Field # of Occurrence
NOW^%DTC EN+3
^%ZIS IO+1
^%ZISC END+2
^%ZTLOAD IO+2
$$GET1^DIQ EN+2
^DIR PRESS
TECH^SROPRIN CASE+6
RS^SROQ0A CASE+4
^SROSTOP HDR+1
DATE^SROUTL SEL+1
SPEC^SROUTL SEL+1
$$INST^SROUTL0 SEL+2
$$MANDIV^SROUTL0 AC
$$SITE^SROVAR EN+2
^SRSKILL END+2
DEM^VADPT PRINT+3

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
Routine Call
  • DIR
  • Line Location:
    • PRESS
Routine Call
  • %ZIS
  • Line Location:
    • IO+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" EN, EN+3, PRINT+1
^SRF - [#130] AC, CASE+1, CASE+2, CASE+4, CASE+5, PRINT+2, PRINT+4
^SRF("AC" AC
^SRO(136 - [#136] CASE+5
^SRO(137.45 - [#137.45] PRINT+1
^TMP("SR" EN!, EN+5, EN+6, END+2!, CASE+8*
^VA(200 - [#200] PRINT+2

Label References

Name Line Occurrences
AC EN+4
CASE AC
CODES EN+8, PAGE
END SEL+1, SEL+2, IO+1, IO+2, EN+5, EN+7
HDR EN+4, PAGE
PAGE EN+7, PRINT+1
PRESS END+1, PAGE+1
PRINT EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EN+3
%ZIS IO+1!*
%ZIS("A" IO+1*
%ZIS("B" IO+1*
>> DFN CASE+2*, CASE+8, PRINT+1*
DIR PRESS!
DIR(0 PRESS*
>> DTOUT PRESS
>> DUOUT PRESS
>> EDATE SEL+1, EN
>> ENDATE EN*, EN+1
>> I PRINT+6*, HDR+5*, CODES+1*, CODES+2*
IO EN
IO("Q" IO+1!, IO+2!
IOF SROQN+6, END, END+2, HDR+2
IOM HDR+2, HDR+3, HDR+5, CODES+2
IOP IO+1!
IOSL EN+7, PRINT+1, CODES+1
IOST END, END+1, PAGE, HDR+2
>> J PRINT+6*
>> K PRINT+5*, PRINT+6*
POP IO+1!
>> SDATE SEL+1, EN
>> SR(0 CASE+2*, CASE+3, CASE+4
>> SRAGE PRINT+3*, PRINT+7
>> SRANES CASE+6*, CASE+7
>> SRASA CASE+4*, CASE+7
>> SRATT CASE+4*, CASE+7
>> SRCPT CASE+5*, CASE+7
>> SRDOC PRINT+2*, PRINT+7
>> SRED EN*, AC
SRFRTO EN+1*, END+2!, HDR+2
>> SRHALT HDR+1
>> SRHDR EN*, PAGE, HDR+5*
>> SRINST SEL+2*, EN+2*, HDR+2
SRINSTP SEL+2~*, EN+2, AC
SRIO END+2!, CASE+3*, CASE+7
>> SRMISS CASE+7*, CASE+8*, PRINT+3*, PRINT+7
>> SROUT CASE+5*, CASE+7
>> SRPAGE EN*, HDR+2, HDR+5*
>> SRPRINT EN+3*, HDR+2
SRPROC PRINT+4!
SRPROC( PRINT+5*, PRINT+6*
SRPROC(1 PRINT+4*, PRINT+7
SRPROC(2 PRINT+8
SRRPT EN+1*, END+2!, HDR+2
>> SRSD EN*, EN+6*, AC*, CASE+8, PRINT+1, PRINT+3
>> SRSDATE PRINT+1*, PRINT+7
>> SRSNM PRINT+3*, PRINT+7
>> SRSOUT SROQN+6*, SEL+1, IO+1*, IO+2*, EN*, EN+6, EN+7, END+1, AC, PRINT+1
, PRESS*, PAGE+1, HDR+1*
>> SRSPEC SROQN+6*, CASE+2, PRINT+7, HDR+3, HDR+4
>> SRSPECN HDR+3
>> SRSS CASE+2*, CASE+8, PRINT+1*, PRINT+7
>> SRSSN PRINT+3*, PRINT+7
>> SRTECH CASE+6
SRTN EN+6*, END+2!, AC*, CASE+1, CASE+2, CASE+4, CASE+5, CASE+8, PRINT+2, PRINT+4
, PRINT+7
SRTOT EN*, EN+6*, EN+7, END+2!
>> SRTYPE CASE+4*, CASE+7
>> SRWC CASE+4*, CASE+7
>> SRZ EN+6*, PRINT+1, PRINT+3
>> STARTDT EN*, EN+1
>> VA("PID" PRINT+3
>> VADM(1 PRINT+3
>> VADM(3 PRINT+3
>> X CASE+7*, CASE+8, PRINT+4*, PRINT+5, PRINT+6*, HDR+3*
>> X1 PRINT+3*
>> X2 PRINT+3*
>> Y EN*, EN+3*, CASE+8*, PRINT+1*, PRINT+6*
>> ZTDESC IO+2*
>> ZTQUEUED END, HDR+1
>> ZTREQ END*
>> ZTRTN IO+2*
>> ZTSAVE("EDATE" IO+2*
>> ZTSAVE("SDATE" IO+2*
>> ZTSAVE("SRINSTP" IO+2*
>> ZTSAVE("SRSPEC*" IO+2*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All