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 |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Surgery 6 TECH^SROPRIN  ^SROSTOP  (DATE,PROC,SPEC)^SROUTL  ($$INST,$$MANDIV,$$NODATA)^SROUTL0  $$SITE^SROVAR  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 (C,NOW)^%DTC  $$GET1^DIQ  ^DIR  
Registration 1 (DEM,IN5)^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 SROQADM  

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

External References

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

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
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+2, PRINT+3
^DGPM("APTT1" ADM+2
^SRF - [#130] AC, CASE+1, CASE+2, CASE+4, ADM+1, PRINT+2, OCC+2
^SRF("AC" AC
^SRO(136.5 - [#136.5] OCC+4
^SRO(137.45 - [#137.45] PRINT+2
^TMP("SR" EN!, EN+6, END+2!, TMP+1*
^VA(200 - [#200] PRINT+2

Label References

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

Naked Globals

Name Field # of Occurrence
^(0 OCC+2

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*, ADM+2, TMP+1, PRINT+2*
DIR PRESS!
DIR(0 PRESS*
>> DTOUT PRESS
>> DUOUT PRESS
>> EDATE SEL+1, EN
>> ENDATE EN*, EN+1
>> I PRINT+7*, HDR+6*
IO EN
IO("Q" IO+1!, IO+2!
IOF SROQADM+8, END, END+2, HDR+2
IOM HDR+2, HDR+3, HDR+6
IOP IO+1!
IOSL EN+7, PRINT+1
IOST END, END+1, PAGE, HDR+2
POP IO+1!
>> SDATE SEL+1, EN
>> SR(0 CASE+2*, CASE+3
SR14 END+2!, ADM+1*, ADM+2
SRADM END+2!, AC!, PRINT+2*, PRINT+5
SRADM( ADM+2*
SRADM(0 AC, TMP+1
SRADMT EN*, EN+5, EN+7, END+2!, ADM+2*
>> SRAGE PRINT+3*, PRINT+6
>> SRANES PRINT+4*, PRINT+5
>> SRCAT OCC+2*, OCC+4
>> SRDOC PRINT+2*, PRINT+5
>> SRED EN*, AC
SRFRTO EN+1*, END+2!, HDR+2
>> SRHALT HDR+1
>> SRHDR EN*, PAGE, HDR+6*
>> SRINST SEL+2*, EN+2*, HDR+2
SRINSTP SEL+2~*, EN+2, AC
SRIO END+2!, CASE+3*, CASE+4
SRIOT END+2!
>> SRL PRINT+1*
SROCC END+2!, OCC+1*, OCC+2*
>> SRP OCC+1*, OCC+4*
>> SRPAGE EN*, HDR+2, HDR+6*
SRPOST OCC+1!
SRPOST( PRINT+7, OCC+4*
>> SRPRINT EN+3*, HDR+2
>> SRPROC( PRINT+7
>> SRPROC(1 PRINT+6
SRRPT EN+1*, END+2!, HDR+2
>> SRSD EN*, EN+6*, AC*, CASE+3, TMP+1, PRINT+3
>> SRSDATE ADM+1*, ADM+2*, TMP+1*, PRINT+3*, PRINT+5
>> SRSNM PRINT+3*, PRINT+5
>> SRSOUT SROQADM+8*, SEL+1, IO+1*, IO+2*, EN*, EN+6, EN+7, END+1, AC, PRINT+1
, PRESS*, PAGE+1, HDR+1*
>> SRSPEC SROQADM+8*, CASE+2, PRINT+5, HDR+3, HDR+4
>> SRSPECN HDR+3
>> SRSS CASE+2*, TMP+1, PRINT+2*, PRINT+5
>> SRSSN PRINT+3*, PRINT+6
>> SRSUPCPT PRINT+1*
>> SRTECH PRINT+4
SRTN EN+6*, END+2!, AC*, CASE+1, CASE+2, CASE+4, ADM+1, TMP+1, PRINT+2, PRINT+6
, OCC+2
>> SRZ EN+6*, PRINT+2
>> STARTDT EN*, EN+1
>> VA("PID" PRINT+3
>> VADM(1 PRINT+3
>> VADM(3 PRINT+3
VAIP CASE+3!
VAIP("D" CASE+3*
VAIP(13 CASE+3
>> X ADM+1, OCC+2*, OCC+3, HDR+3*
>> X1 ADM+1*
>> X2 ADM+1*
>> Y EN*, EN+3*, PRINT+2*, PRINT+3*
>> Z OCC+3*, OCC+4
>> 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("SRSITE*" 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 |  Naked Globals |  Local Variables  | All