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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: SROPECS1

Package: Surgery

Routine: SROPECS1


Information

SROPECS1 ;BIR/ADM-Ensuring Correct Surgery Compliance Report, continued ; [ 06/03/04 2:10 PM ]

Source Information

Source file <SROPECS1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 Y^DIQ  ^DIR  
Registration 1 DEM^VADPT  
Surgery 1 ^SROSTOP  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROPECS  

Entry Points

Name Comments DBIA/ICR reference
TMP ; print cases stored in ^TMP
CASE ; print case info
NEWSP
HDR ; print heading
SPNAME
SUM ; print summary
NONE ; no cases to list
ZERO
DEM ; get patient demographic information
PROC ; get principal procedure
PAGE

External References

Name Field # of Occurrence
Y^DIQ DEM+3, DEM+6
^DIR PAGE+1
^SROSTOP HDR+1
DEM^VADPT DEM+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"NO NON-COMPLIANT SURGICAL CASES WERE FOUND FOR THIS DATE RANGE."
  • Line Location: ZERO+0
Function Call: WRITE
  • Prompt: !,?42,"CASES % OF TOTAL",!,?42,"----- ----------"
  • Line Location: SUM+2
Function Call: WRITE
  • Prompt: !,?18,"TOTAL CASES PERFORMED:"_$J(SRTOT,6),?53,"100.0"
  • Line Location: SUM+3
Function Call: WRITE
  • Prompt: !!,?22,"TIME OUT VERIFIED",!,?36,"YES:"_$J(SRTOV,6)
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: ?53,$J(((SRTOV/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+4
Function Call: WRITE
  • Prompt: !,?37,"NO:"_$J(SRTONO,6)
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: ?53,$J(((SRTONO/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+5
Function Call: WRITE
  • Prompt: !,?28,"NOT ENTERED:"_$J(SRTONE,6)
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: ?53,$J(((SRTONE/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+6
Function Call: WRITE
  • Prompt: !!,?9,"PREOPERATIVE IMAGING CONFIRMED",!,?36,"YES:"_$J(SRICY,6)
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: ?53,$J(((SRICY/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+7
Function Call: WRITE
  • Prompt: !,?19,"IMAGING NOT REQUIRED:"_$J(SRICNR,6)
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: ?53,$J(((SRICNR/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+8
Function Call: WRITE
  • Prompt: !,?37,"NO:"_$J(SRICNO,6)
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: ?53,$J(((SRICNO/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+9
Function Call: WRITE
  • Prompt: !,?28,"NOT ENTERED:"_$J(SRICNE,6)
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: ?53,$J(((SRICNE/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+10
Function Call: WRITE
  • Prompt: !!,?8,"MARK ON SURGICAL SITE CONFIRMED",!,?36,"YES:"_$J(SRSCY,6)
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCY/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+11
Function Call: WRITE
  • Prompt: !,?19,"MARKING NOT REQUIRED:"_$J(SRSCNR,6)
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCNR/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+12
Function Call: WRITE
  • Prompt: !,?37,"NO:"_$J(SRSCNO,6)
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCNO/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+13
Function Call: WRITE
  • Prompt: !,?28,"NOT ENTERED:"_$J(SRSCNE,6)
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: ?53,$J(((SRSCNE/SRTOT)*100),5,1)
  • Condition for execution: SRTOT
  • Line Location: SUM+14
Function Call: WRITE
  • Prompt: !!,?20,"OVERALL COMPLIANCE FOR THIS DATE RANGE",!,?20,"--------------------------------------"
  • Line Location: SUM+15
Function Call: WRITE
  • Prompt: !,?34,"TIME OUT VERIFIED: "
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: $J(((SRTOV/SRTOT)*100),5,1),"%"
  • Condition for execution: SRTOT
  • Line Location: SUM+16
Function Call: WRITE
  • Prompt: !,?21,"PREOPERATIVE IMAGING CONFIRMED: "
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: $J((((SRICY+SRICNR)/SRTOT)*100),5,1),"%"
  • Condition for execution: SRTOT
  • Line Location: SUM+17
Function Call: WRITE
  • Prompt: !,?20,"MARK ON SURGICAL SITE CONFIRMED: "
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: $J((((SRSCY+SRSCNR)/SRTOT)*100),5,1),"%"
  • Condition for execution: SRTOT
  • Line Location: SUM+18
Function Call: WRITE
  • Prompt: !,SRSDATE,?32,SRATT,?62,$S(SR71="Y":"YES",SR71="N":"NO",1:"<NOT ENTERED>")
  • Line Location: CASE+3
Function Call: WRITE
  • Prompt: !,SRSNM,?32,SRCIRC,?62,$S(SR72="Y":"YES",SR72="N":"NO",SR72="I":"NOT REQUIRED",1:"<NOT ENTERED>")
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !,SRSSN_" ("_SRAGE_")",?21,SRTN,?32,SRPROC(1),?62,$S(SR73="Y":"YES",SR73="N":"NO",SR73="M":"NOT REQUIRED",1:"<NOT ENTERED>")
  • Line Location: CASE+5
Function Call: WRITE
  • Prompt: !,"("_$E(SRSPEC,1,28)_")"
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: ?32,SRPROC(2)
  • Condition for execution: $D(SRPROC(2))
  • Line Location: CASE+6
Function Call: WRITE
  • Prompt: !,SRCST,!
  • Line Location: CASE+9
Function Call: WRITE
  • Prompt: !,$S(I=82:"TIME OUT VERIFY COMMENTS:",I=83:"PREOPERATIVE IMAGING CONFIRMED COMMENTS:",1:"MARKED SITE CONFIRMED COMMENTS:")
  • Line Location: CASE+10
Function Call: WRITE
  • Prompt: !,?2,"<NOT ENTERED>",!
  • Line Location: CASE+11
Function Call: WRITE
  • Prompt: !,?2,$G(^SRF(SRTN,I,SRSJ,0))
  • Line Location: CASE+12
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+14
Function Call: WRITE
  • Prompt: "-"
  • Line Location: CASE+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J("PAGE "_SRPAGE,9),!,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(80-$L(SRPRINT)\2),SRPRINT
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+9
Routine Call
  • DIR
  • Line Location:
    • PAGE+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DEM+2
^DD(130 DEM+3
^DD(130.28 DEM+6
^SRF - [#130] DEM+3, DEM+4, DEM+5, PROC+1, CASE+11, CASE+12
^TMP("SRLIST" TMP+1, TMP+2, TMP+3, TMP+4, TMP+5, NONE+1, NONE+2

Label References

Name Line Occurrences
CASE TMP+3, TMP+6
DEM CASE+1
HDR SROPECS1+2, PAGE
NEWSP TMP+1
NONE TMP+1, TMP+4
PAGE NEWSP+1, SUM+1, CASE+1
SPNAME HDR+10
SUM SROPECS1+3
TMP SROPECS1+2
ZERO NONE+1, NONE+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C DEM+3*, DEM+6*
>> DFN TMP+3*, TMP+5*
DIR PAGE+1!
DIR(0 PAGE+1*
>> DTOUT PAGE+1
>> DUOUT PAGE+1
>> I PROC+3*, CASE+10*, CASE+11, CASE+12, CASE+14*, HDR+9*
IOF HDR+3
IOSL NEWSP+1, CASE+1
IOST PAGE, HDR+3
>> J PROC+3*
>> K PROC+2*, PROC+3*
>> SR71 TMP+3*, TMP+5*, CASE+3
>> SR72 TMP+3*, TMP+5*, CASE+4
>> SR73 TMP+3*, TMP+5*, CASE+5
>> SRAGE DEM+2*, CASE+5
>> SRATT DEM+3*, CASE+3
>> SRC TMP+3*, TMP+5*
>> SRCIRC DEM+5*, DEM+6*, CASE+4
>> SRCST DEM+4*, CASE+9
>> SRFLG SROPECS1+2, SROPECS1+3
>> SRFRTO HDR+3
>> SRHALT HDR+1
>> SRHDR PAGE, HDR+10, HDR+11*
>> SRHDRL SROPECS1+2*, SUM+1*, HDR+4, HDR+10
>> SRICNE SUM+10
>> SRICNO SUM+9
>> SRICNR SUM+8, SUM+17
>> SRICY SUM+7, SUM+17
>> SRINST HDR+3
>> SRNEW SROPECS1+2*, NEWSP*, SPNAME, SPNAME+1*
>> SRORD TMP+1, TMP+4, NONE+1, NONE+2, CASE+6, CASE+7, HDR+10
>> SRPAGE HDR+3, HDR+9*
>> SRPRINT HDR+3
SRPROC PROC+1!
SRPROC( PROC+2*, PROC+3*
SRPROC(1 PROC+1*, CASE+5
SRPROC(2 CASE+6, CASE+7
SRPROC(3 CASE+8
SRPROC(4 CASE+8
>> SRRPT HDR+2
>> SRSCNE SUM+14
>> SRSCNO SUM+13
>> SRSCNR SUM+12, SUM+18
>> SRSCY SUM+11, SUM+18
>> SRSDATE DEM+2*, CASE+3
>> SRSDT TMP+2*, TMP+3, TMP+4*, TMP+5, NONE+2, DEM+2
>> SRSJ CASE+12*
>> SRSNM DEM+1*, CASE+4
>> SRSOUT SROPECS1+3, TMP+1, TMP+2, TMP+4, CASE+1, PAGE+1*, HDR+1*
>> SRSPEC TMP+6*, NEWSP*, SPNAME, CASE+2*, CASE+6
>> SRSS TMP+1*, TMP+2, TMP+3, TMP+5*, TMP+6, NEWSP, NONE+1, CASE+2
>> SRSSN DEM+1*, CASE+5
>> SRTAG SUM+1*, HDR+2
>> SRTITLE HDR+2*, HDR+3
>> SRTN TMP+2*, TMP+3, TMP+4*, TMP+5, DEM+3, DEM+4, DEM+5, PROC+1, CASE+5, CASE+11
, CASE+12
>> SRTONE SUM+6
>> SRTONO SUM+5
>> SRTOT SUM+3, SUM+4, SUM+5, SUM+6, SUM+7, SUM+8, SUM+9, SUM+10, SUM+11, SUM+12
, SUM+13, SUM+14, SUM+16, SUM+17, SUM+18
>> SRTOV SUM+4, SUM+16
>> VA("PID" DEM+1
>> VADM(1 DEM+1
>> VADM(3 DEM+2
>> X PROC+1*, PROC+2, PROC+3*
>> X1 DEM+2*
>> X2 DEM+2*
>> Y DEM+2*, DEM+3*, DEM+4*, DEM+5*, DEM+6*, PROC+3*
>> ZTQUEUED HDR+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All