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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls