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

Package: Surgery

Routine: SROACMP


Information

SROACMP ;BIR/ADM - M&M VERIFICATION REPORT ;12/19/07

Source Information

Source file <SROACMP.m>

Entry Points

Name Comments DBIA/ICR reference
UTIL ; list all cases within 30 days prior to postop occurrence and/or 90 days prior to death
PRIOR ; list cases in 30 days before this occurrence or 90 days before death
SET ; set variables to print
OPS
COMP ; perioperative occurrences
RA ; risk assessment type and status
PRINT ; print case information
OPER ; break procedure if greater than 48 characters
DATE
SS ; set up ^TMP for selected specialties
WP ; print occurrence comments
TEXT ; check for occurrence comments
DWP ; print review of death comments

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROACMP+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SROACMP+4
Function Call: WRITE
  • Prompt: !!,"There are no perioperative occurrences or deaths recorded for ",$S(SRFORM=1:"surgeries performed in the selected date range.",1:"completed assessments not yet transmitted.")
  • Line Location: SROACMP+9
Function Call: WRITE
  • Prompt: !!,SRSDATE,?11,SRTN,?25,SRSS,?80,SRTYPE,?98,SRSTATUS,?116,SRREL
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?11,SRP(1)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?11,SRP(2)
  • Condition for execution: $D(SRP(2))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?11,"CPT Codes: ",SRPROC(1)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?24,SRPROC(2)
  • Condition for execution: $D(SRPROC(2))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?24,$P(SRC(SRI),"^")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,?11,"Date of Death: "_$E(SRNDTH,4,5)_"/"_$E(SRNDTH,6,7)_"/"_$E(SRNDTH,2,3)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "@"_$E(X,1,2)_":"_$E(X,3,4)
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: "NONE ENTERED"
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: WP+3
Function Call: WRITE
  • Prompt: !,?26,">>> Comments:"
  • Line Location: TEXT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: DWP+3
Info |  Source |  Entry Points |  Interaction Calls