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 |  Local Variables |  Marked Items  | All
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>

Call Graph

Call Graph Total: 31

Package Total Call Graph
Surgery 16 ^SRCUSS  ^SROCON1  ^SROERR0  (CHECK,EXIT)^SROES  PRNT^SROESPR  $$STATUS^SROESUTL  ^SROLOCK  RPT^SRONRPT  
^SROPCE1  ^SROPS  ^SROSTOP  ($$LOCK,UNLOCK)^SROUTL  $$SITE^SROUTL0  (,EN2)^SROVAR  ^SRSKILL  ($$ABORT,$$VER1,$$VER2,WSXR)^SRTOVRF  
Kernel 6 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$NOW^XLFDT  DELETEA^XQALERT  SIG^XUSESIG  
VA FileMan 5 DD^%DT  $$EXTERNAL^DILFD  D^DIQ  EN^DIQ1  ^DIR  
Text Integration Utility 3 EXTRACT^TIULQ  ES^TIUSROI  UPDATE^TIUSRVP  
Registration 1 (DEM,OERR)^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: 3

Package Total Caller Graph
Surgery 3 SROESX  SRONRPT  SROVER2  

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)

External References

Name Field # of Occurrence
DD^%DT EN+3
^%ZIS DISPLY+1
^%ZISC DISPLY+2, EN+13, EN+14
^%ZTLOAD DISPLY+2
$$EXTERNAL^DILFD EN+6
D^DIQ EN+1, SRHDR+1
EN^DIQ1 ALLIN+9
^DIR PAGE+2, LAST, FUNCT+9, ES+8, MESS+19
^SRCUSS EDIT+7
^SROCON1 EDIT+13
^SROERR0 EDIT+14
CHECK^SROES EDIT+1
EXIT^SROES EDIT+15
PRNT^SROESPR DISPLY
$$STATUS^SROESUTL SRONIN+15, FUNCT+3, CODE+4
^SROLOCK EDIT+2
RPT^SRONRPT EN, ES
^SROPCE1 EDIT+12
^SROPS SRONIN+11
^SROSTOP HDR+1
$$LOCK^SROUTL EDIT+3, SIGN+1
UNLOCK^SROUTL FUNCT+11
$$SITE^SROUTL0 EN+6
^SROVAR SRONIN+10
EN2^SROVAR EDIT+7
^SRSKILL END+2
$$ABORT^SRTOVRF ALLIN+4
$$VER1^SRTOVRF EDIT+6, ALLIN+6
$$VER2^SRTOVRF EDIT+6, ALLIN+6
WSXR^SRTOVRF EDIT+11
EXTRACT^TIULQ SIGN+5
ES^TIUSROI ES+6
UPDATE^TIUSRVP ES+4
DEM^VADPT SRHDR, HDR+3
OERR^VADPT EN+1
$$NOW^XLFDT EN+3
DELETEA^XQALERT ES+7
SIG^XUSESIG ES+2

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
Routine Call
  • DIR
  • Line Location:
    • PAGE+2
    • LAST
    • FUNCT+9
    • ES+8
    • MESS+19
Routine Call
  • %ZIS
  • Line Location:
    • DISPLY+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] Classic Fileman Calls
^SRO(133 - [#133] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SRONIN+14, DISPLY, EN, EN+5, SRHDR, SRHDR+1, HDR+3, FUNCT+2, EDIT+12, SIGN+2
, SIGN+3, ES+1, ALLIN+10, ALLIN+11, ALLIN+14, ALLIN+15, ALLIN+21, ALLIN+22, ALLIN+26, MESS+7
, MESS+12, MESS+16, MESS+17, CODE+3
^SRO(131.9 - [#131.9] MESS+9
^SRO(133 - [#133] EN+6
^TMP("SR182" EDIT+4!
^TMP("SRNIR" EN+9, EN+12, END!, ES+3
^XUSEC("SROCHIEF" SIGN+4

Label References

Name Line Occurrences
@( FUNCT+11
ALLIN SIGN+7
DISPLY CODE+5
EDIT ALLIN+30
EN SRONIN+16, PRNT
END SRONIN+10, SRONIN+11, ENF+1, FUNCT+9, CODE+5
ENF FUNCT+12
FOOT EN+10, EN+11, EN+14
FUNCT SRONIN+16, ENF
HDR EN+8, EN+10, EN+11
LAST PAGE
LIST ALLIN+17
MESS ALLIN+30
PAGE FOOT+1
SRHDR FUNCT+2
TR LIST

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DISPLY+1!*
DA EDIT+5!*, ALLIN+7!, ALLIN+8*, ALLIN+17!
>> DFN EN*, SRHDR*, HDR+3*
DIC EDIT+10, ALLIN+7!, ALLIN+8*, ALLIN+17!
DIE EDIT+5!*
DIQ ALLIN+7!, ALLIN+8*, ALLIN+17!
DIQ(0 ALLIN+8*
DIR PAGE+2!, LAST!, FUNCT+9!, ES+8!, MESS+19!
DIR("A" PAGE+2*, FUNCT+6*, FUNCT+7*, FUNCT+8*, ES+8*, MESS+19*
DIR("B" FUNCT+8*, MESS+19*
DIR(0 PAGE+2*, LAST*, FUNCT+8*, ES+8*, MESS+19*
DR EDIT+5!, EDIT+6*, ALLIN+7!, ALLIN+8*, ALLIN+9*, ALLIN+17!
DR(1 EDIT+10
DTIME EDIT+5*, EDIT+7*
>> DTOUT PAGE+2, LAST, FUNCT+9, MESS+19
>> DUOUT PAGE+2, LAST, FUNCT+9, MESS+19
DUZ SIGN+3, SIGN+4, SIGN+5, ES+6
>> I ES+3*
>> II LIST+4*
IO EN+8
IO("Q" DISPLY+1!, DISPLY+2!
IOF END+1, HDR+2, FUNCT+4, EDIT+10, MESS+1
IOSL EN+10, EN+11, FOOT+2
IOST EN+10, EN+11, FOOT+1, HDR+3, HDR+4, HDR+5
>> J MESS+10*
>> POP DISPLY+1
>> Q3("VIEW" EDIT+2*, EDIT+7!
SRA SIGN+2~
SRA( SIGN+5
SRABORT ALLIN~, ALLIN+4*, MESS+3
SRAGE SRONIN+12~, EN+5*, FOOT+3, CODE+1~
SRALRT EN+15, FUNCT+1!
SRAT SRONIN+12~
SRAY ES~, ES+4!
SRAY( ES+4*
SRAY("TEXT" ES+3*
SRDIV SRONIN+12~, EN+6*, PRNT~, CODE+1~
SRDIVNM SRONIN+12~, EN+6*, EN+7*, FOOT+3, CODE+1~
SRDO SRONIN+12~, FUNCT+10*, FUNCT+11, CODE+1~
SRDONR1 ALLIN~, ALLIN+5*, ALLIN+6*, ALLIN+9, ALLIN+28, MESS+14, LIST+4
SRDONR2 ALLIN~, ALLIN+5*, ALLIN+6*, ALLIN+9, ALLIN+29, MESS+18
>> SRDTIME EDIT+5*, EDIT+7
SRDTITL SRONIN+12~, SRONIN+13*, DISPLY, DISPLY+2, CODE+1~, CODE+2*
>> SREDIT ALLIN+3*, ALLIN+30, MESS+20*
SRERR SIGN+5, ES~, ES+4, ES+5
SRESIG SIGN+1~*
SRFLD ALLIN~, LIST*
SRFUNCT SRONIN+12~, SRONIN+14*, ENF, EN+15*, EN+16, PRNT~, PAGE+1*, PAGE+3*, FUNCT+12*, CODE+1~
, CODE+3*
>> SRHALT HDR+1
SRHDR SRONIN+12~, EN+2*, SRHDR+2*, FUNCT+2, FUNCT+4, CODE+1~
SRI EN+9*, EN+12, ES~, ALLIN~
SRII SIGN+2~*, SIGN+5
SRINUSE SRONIN+12~, CODE+1~
SRJ SIGN+2~, SIGN+3*, SIGN+5, MESS+7*, MESS+8
SRJJ ALLIN~, ALLIN+10*, ALLIN+19*, ALLIN+20*, ALLIN+21*, MESS+5*, MESS+7*, MESS+9
SRJK ALLIN~, ALLIN+10*
SRLCK EDIT+3~*, SIGN+1~*
SRLEAVE SRONIN+12~, SRONIN+14*, ENF, DISPLY*, DISPLY+1*, EN+16*, PRNT~, PAGE+2*, FUNCT+9*, CODE+1~
, CODE+3*
>> SRLINE EN+8*, FOOT+3, HDR+4, HDR+5
SRLOC SRONIN+12~, EN+4*, FOOT+3, CODE+1~
SRM ALLIN~, ALLIN+12*, ALLIN+13*
SRMIS508 ALLIN~, ALLIN+3*, ALLIN+22*, ALLIN+30
SRMIS633 ALLIN~, ALLIN+3*, ALLIN+23*, ALLIN+30
SRMIS636 ALLIN~, ALLIN+3*, ALLIN+24*, ALLIN+30
SRMISS SIGN+2~, SIGN+7*, ALLIN+3*, ALLIN+30*
SRMISS1 ALLIN~, ALLIN+3*, ALLIN+18*, ALLIN+19*, ALLIN+20*, ALLIN+30, MESS+2, MESS+3
SRMISS2 ALLIN~, ALLIN+3*, ALLIN+25*, ALLIN+30, MESS+4
SRMISS3 ALLIN~, ALLIN+3*, ALLIN+26*, ALLIN+30, MESS+7, MESS+12
SRMISS85 ALLIN~, ALLIN+3*, ALLIN+21*, ALLIN+30
SRMISSAT ALLIN~, ALLIN+3*, ALLIN+27*, ALLIN+30, MESS+13
SRMISSD ALLIN~, ALLIN+3*, ALLIN+28*, ALLIN+29*, ALLIN+30, MESS+14, MESS+18
SRNEWOP SRONIN+11!
SRNOEDIT PAGE, CODE+1~, CODE+2*
SRNUR SIGN+2~, SIGN+3*
SRO ALLIN~, ALLIN+11*, ALLIN+12, ALLIN+13
>> SRODR EDIT+13
>> SROERR EDIT+14*
SROK SIGN+2~, SIGN+3*, SIGN+4*, SIGN+5*, SIGN+6
SROLOCK EDIT+2~, EDIT+6
SROO ALLIN~, ALLIN+11*, ALLIN+12, LIST+1*, LIST+2
>> SROO1 ALLIN+11*, ALLIN+13
SRP ES~, ALLIN~, TR*
>> SRPAGE EN+8*, HDR+2*, HDR+3, HDR+4
SRPARAM SRONIN+12~, CODE+1~
SRPF ALLIN~, MESS+8*, MESS+11!
SRPF( MESS+8*, MESS+10
SRPF(0 MESS+9
SRPRINT SRONIN+12~, EN+3*, FOOT+3, CODE+1~
>> SRSDATE EN+1*, EN+2, SRHDR+1*, SRHDR+2
SRSEL SRONIN+12~, ENF*, FUNCT+10*, CODE+1~
SRSIG ES~
SRSINED SRONIN+12~, SRONIN+14*, SRONIN+15*, SRONIN+16, DISPLY, FUNCT+3*, FUNCT+4, FUNCT+7, FUNCT+8, ES+5*
, CODE+1~, CODE+3*, CODE+4*
SRSITE SRONIN+10, END+2!
SRSITE("KILL" SRONIN+10*, END+2
SRSITE("SITE" EN+7
>> SRSOUT EN+8*, EN+9, EN+10, EN+11, EN+13, PAGE+1*, PAGE+2*, PAGE+3*, LAST*, FOOT+1
, HDR+1*, FUNCT+2*, FUNCT+9*, FUNCT+12*, EDIT+1, SIGN+7, ALLIN+3*, ALLIN+30, MESS+19*
SRSTAT CODE+1~
SRTIU SRONIN+12~, SRONIN+14*, SRONIN+15, DISPLY*, FUNCT+2*, FUNCT+3, FUNCT+7, FUNCT+8, ES~, ES+1*
, ES+4, ES+6, CODE+1~, CODE+3*, CODE+4
SRTN SRONIN+11, SRONIN+14, DISPLY, EN, EN+2, EN+5, EN+6, EN+9, EN+12, SRHDR
, SRHDR+1, SRHDR+2, END+3!, HDR+3, HDR+4, FUNCT+2, FUNCT+11, EDIT+3, EDIT+5, EDIT+6
, EDIT+11, EDIT+12, EDIT+14, SIGN+1, SIGN+2, SIGN+3, ES, ES+1, ES+3, ES+7
, ALLIN+4, ALLIN+6, ALLIN+8, ALLIN+10, ALLIN+11, ALLIN+12, ALLIN+13, ALLIN+14, ALLIN+15, ALLIN+21
, ALLIN+22, ALLIN+23, ALLIN+24, ALLIN+26, ALLIN+27, MESS+7, MESS+12, MESS+16, MESS+17, CODE+3
, LIST, LIST+1, LIST+3, LIST+4
SRTN("KILL" SRONIN+11*, END+3
SRX EDIT+2~, ALLIN~, MESS+19!
SRX( ALLIN+18, ALLIN+19, ALLIN+20, ALLIN+25, ALLIN+26, ALLIN+28, MESS+2, MESS+3, MESS+4, MESS+5
, MESS+6, MESS+7, MESS+8, MESS+15, LIST*, LIST+2*, LIST+3*, LIST+4*
SRX(48 ALLIN+25
SRX(506 ALLIN+18
SRX(605 ALLIN+18
SRX(606 ALLIN+18
SRX(659 ALLIN+29, MESS+18
SRXX SRONIN+12~, HDR+3*, CODE+1~
SRY ALLIN~
SRY( ALLIN+12*, ALLIN+13*, ALLIN+14*, ALLIN+15*, ALLIN+27, LIST+1, LIST+3, LIST+4
SRY(130 ALLIN+10*, ALLIN+21, ALLIN+22, ALLIN+23, ALLIN+24, LIST
SRZ EDIT+2~, ALLIN~, ALLIN+25*, ALLIN+28*, MESS+2*, MESS+3*, MESS+4*, MESS+6*, MESS+15*, LIST*
, LIST+1*, TR
>> ST EDIT+6*
>> VA("PID" EN+2, SRHDR+2, FOOT+3, HDR+3
>> VADM(1 EN+2, SRHDR+2, FOOT+3, HDR+3
>> VADM(3 EN+5
VAIN END+2!
VAIN(4 EN+4
VAIN(5 EN+4
VAINDT EN*, EN+1, END+2!
>> X EN+5*, EN+6*, PAGE+3, FOOT+2*, LIST*
X1 ES~, ES+2
>> XQAID ES+7*
>> XQAKILL ES+7*
Y EN+1*, EN+3*, EN+5*, SRHDR+1*, FUNCT+10, SIGN+2~, MESS+20
>> Z EN+5*
ZTDESC DISPLY+2~*
ZTQUEUED DISPLY+2~, END+1, HDR+1
>> ZTREQ END+1*
ZTRTN DISPLY+2~*
ZTSAVE DISPLY+2~
ZTSAVE("SRSITE*" DISPLY+2*
ZTSAVE("SRTN" DISPLY+2*
>> ZTSTOP END+1

Marked Items

Name Field # of Occurrence
$T(@SRP LIST
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 |  Local Variables |  Marked Items  | All