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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SRONIN

Package: Surgery

Routine: SRONIN


Information

SRONIN ;BIR/MAM,ADM - NURSE INTRAOPERATIVE REPORT ; October 24, 2011

Source Information

Source file <SRONIN.m>

Entry Points

Name Comments DBIA/ICR reference
ENF
DISPLY
EN
SRHDR
PRNT
END
PAGE
LAST
FOOT ; print footer
HDR ; heading
FUNCT ; nurse intraop report functions
EDIT ; edit report data fields
SIGN ; sign report if appropriate user
ES
ALLIN
MESS ; display list of missing items
CODE ; entry point from coding menu
LIST
TR
PBJE ;;.205^TIME PAT IN OR
PBCB ;;.232^TIME PAT OUT OR
DD ;;44^SPONGE FINAL COUNT CORRECT
DE ;;45^SHARPS FINAL COUNT CORRECT
DF ;;46^INSTRUMENT FINAL COUNT CORRECT
DG ;;47^SPONGE, SHARPS, & INST COUNTER
DH ;;48^COUNT VERIFIER
FJJ ;;600^CORRECT PATIENT IDENTITY
FJA ;;601^PROCEDURE TO BE PERFORMED
FJB ;;602^SITE OF PROCEDURE
FJC ;;603^CONFIRM VALID CONSENT
FJD ;;604^CONFIRM PATIENT POSITION
FJE ;;605^MARKED SITE CONFIRMED
FJF ;;606^PREOPERATIVE IMAGING CONFIRMED
FJG ;;607^CORRECT MEDICAL IMPLANTS
FJH ;;608^ANTIBIOTIC PROPHYLAXIS
FJI ;;609^APPROPRIATE DVT PROPHYLAXIS
FAJ ;;610^BLOOD AVAILABILITY
FAA ;;611^AVAILABILITY OF SPECIAL EQUIP
HE ;;85^CHECKLIST COMMENT
PFI ;;.69^TIME-OUT DOCUMENT COMPLETED BY
GD ;;74^TIME-OUT COMPLETED
EJF ;;506^HAIR REMOVAL METHOD
EJH ;;508^HAIR REMOVAL COMMENTS
APAC ;;1.13^ASA CLASS
FCC ;;633^WOUND SWEEP
FCF ;;636^INTRAOPERATIVE X-RAY
FDH ;;648^UNOS NUMBER
FDI ;;649^DONOR SEROLOGY HCV
FEJ ;;650^DONOR SEROLOGY HBV
FEA ;;651^DONOR SEROLOGY CMV
FEB ;;652^DONOR SEROLOGY HIV
FEC ;;653^DONOR ABO TYPE
FED ;;654^RECIPIENT ABO TYPE
FEE ;;655^BLOOD BANK ABO VERIFICATION
FEF ;;656^OR ABO VERIFICATION
FEG ;;657^SURGEON VERIFYING UNET
FEH ;;658^ORGAN VER PRE-ANESTHESIA
FEI ;;659^SURGEON VER DONOR ORG PRE-ANES
FFJ ;;660^ORGAN VER PRE-TRANSPLANT
FFC ;;663^DONOR VESSEL USAGE
FFE ;;665^DONOR VESSEL DISPOSITION
GDG ;;747^D/T BLOOD BANK ABO VERIF
GDI ;;749^D/T OR ABO VERIF
GEJ ;;750^UNET VERIF BY SURGEON
GEA ;;751^SURGEON VER ORGAN PRE-ANES
GEB ;;752^DONOR ORG VER PRE-ANES
GEC ;;753^SURGEON VER ORG PRE-TRANSPLANT
BJJF ;;2006^ROBOTIC ASSISTANCE (Y/N)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: !
  • Line Location: LAST+0
Function Call: WRITE
  • Prompt: !
  • Line Location: FOOT+2
Function Call: WRITE
  • Prompt: !,SRLINE,!,VADM(1),?50,SRPRINT,!,VA("PID")_" Age: "_SRAGE,?50,SRLOC,!,SRDIVNM,?59,"Vice SF 509",!,SRLINE
  • Line Location: FOOT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRXX)\2),SRXX
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!!,SRLINE
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?3,"MEDICAL RECORD NURSE INTRAOPERATIVE REPORT - CASE #"_SRTN,?(79-$L("PAGE "_SRPAGE)),"PAGE "_SRPAGE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF,!,SRHDR
  • Line Location: FUNCT+4
Function Call: WRITE
  • Prompt: !!," * * The Nurse Intraoperative Report has been electronically signed. * *"
  • Line Location: FUNCT+4
Function Call: WRITE
  • Prompt: !!," Nurse Intraoperative Report Functions:",!
  • Line Location: FUNCT+5
Function Call: WRITE
  • Prompt: @IOF,!,"Processing for last edits..."
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+10
Function Call: WRITE
  • Prompt: !!,"Sorry, you are not authorized to sign this report."
  • Line Location: SIGN+6
Function Call: WRITE
  • Prompt: !!,"Signature failed."
  • Line Location: ES+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ES+8
Function Call: WRITE
  • Prompt: @IOF,!,"The following information is required before this report may be signed:",!
  • Line Location: MESS+1
Function Call: WRITE
  • Prompt: !,?5,SRX(SRZ)
  • Line Location: MESS+2
Function Call: WRITE
  • Prompt: !,?5,SRX(SRZ)
  • Line Location: MESS+3
Function Call: WRITE
  • Prompt: !,?5,SRX(SRZ)
  • Line Location: MESS+4
Function Call: WRITE
  • Prompt: !,?5,SRX(SRJJ)
  • Line Location: MESS+5
Function Call: WRITE
  • Prompt: !,?5,SRX(SRZ)
  • Line Location: MESS+6
Function Call: WRITE
  • Prompt: !!,?5,"PROSTHESIS INSTALLED item "_$P(^SRO(131.9,SRJJ,0),"^")_":"
  • Line Location: MESS+9
Function Call: WRITE
  • Prompt: !,?7,$S(J=8:"IMPLANT STERILITY CHECKED",J=9:"STERILITY EXPIRATION DATE",J=10:"RN VERIFIER",J=11:"LOT NUMBER",J=12:"SERIAL NUMBER",1:"PROVIDER READ BACK PERFORMED")
  • Line Location: MESS+10
Function Call: WRITE
  • Prompt: !!,?5,"PROSTHESIS INSTALLED Multiple"
  • Line Location: MESS+12
Function Call: WRITE
  • Prompt: !,?5,"ANESTHESIA TECHNIQUE Multiple"
  • Line Location: MESS+13
Function Call: WRITE
  • Prompt: !
  • Line Location: MESS+14
Function Call: WRITE
  • Prompt: !,?5,SRX(SRZ)
  • Line Location: MESS+15
Function Call: WRITE
  • Prompt: !,?5,"DONOR VESSEL UNOS ID Multiple"
  • Line Location: MESS+16
Function Call: WRITE
  • Prompt: !,?5,"ORGAN TO BE TRANSPLANTED Multiple"
  • Line Location: MESS+17
Function Call: WRITE
  • Prompt: !,?5,SRX(659)
  • Line Location: MESS+18
Function Call: WRITE
  • Prompt: !
  • Line Location: MESS+19

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
^SRO(133 - [#133] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call