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 ;05/30/06

Source Information

Source file <SRONIN.m>

Call Graph

Call Graph Total: 30

Package Total Call Graph
Surgery 15 ^SRCUSS  ^SROCON1  ^SROERR0  (CHECK,EXIT)^SROES  PRNT^SROESPR  $$STATUS^SROESUTL  ^SROLOCK  RPT^SRONRPT  
^SROPCE1  ^SROPS  ^SROSTOP  ($$LOCK,UNLOCK)^SROUTL  $$SITE^SROUTL0  (,EN2)^SROVAR  ^SRSKILL  
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

Caller Graph Total: 3

Package Total Caller Graph
Surgery 3 SROESX  SRONRPT  SROVER2  

Entry Points

Name Comments DBIA/ICR reference
CODE ; entry point from coding menu
HDR ; heading
DH ;;48^COUNT VERIFIER
DF ;;46^INSTRUMENT COUNT CORRECT (Y/N)
DG ;;47^SPONGE, SHARPS, & INST COUNTER
SRHDR
DE ;;45^SHARPS COUNT CORRECT (Y/N)
HB ;;82^TIME OUT VERIFY COMMENTS
HC ;;83^IMAGING CONFIRMED COMMENTS
EJH ;;508^HAIR REMOVAL COMMENTS
HD ;;84^MARKED SITE COMMENTS
DISPLY
LAST
FUNCT ; nurse intraop report functions
PRNT
TR
ALLIN
DD ;;44^SPONGE COUNT CORRECT (Y/N)
EN
END
ENF
MESS ; display list of missing items
EJF ;;506^HAIR REMOVAL METHOD
SIGN ; sign report if appropriate user
GC ;;73^MARKED SITE CONFIRMED
PBJE ;;.205^TIME PAT IN OR
GA ;;71^TIME OUT VERIFIED
FOOT ; print footer
ES
EDIT ; edit report data fields
LIST
PBCB ;;.232^TIME PAT OUT OR
PAGE
GB ;;72^PREOPERATIVE IMAGING CONFIRMED

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+2
^DIR PAGE+2, LAST, FUNCT+9, ES+8, MESS+8
^SRCUSS EDIT+4
^SROCON1 EDIT+6
^SROERR0 EDIT+7
CHECK^SROES EDIT+1
EXIT^SROES EDIT+8
PRNT^SROESPR DISPLY
$$STATUS^SROESUTL SRONIN+15, FUNCT+3, CODE+4
^SROLOCK EDIT+2
RPT^SRONRPT EN, ES
^SROPCE1 EDIT+5
^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+4
^SRSKILL END+2
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: !!,"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(SRJJ)
  • Line Location: MESS+4
Function Call: WRITE
  • Prompt: !,?5,SRX(508)
  • Line Location: MESS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: MESS+8
Routine Call
  • DIR
  • Line Location:
    • PAGE+2
    • LAST
    • FUNCT+9
    • ES+8
    • MESS+8
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+5, SIGN+2
, SIGN+3, ES+1, ALLIN+3, ALLIN+4, ALLIN+8, ALLIN+9, ALLIN+11, MESS+6, CODE+3
^SRO(131.9 - [#131.9] MESS+7
^SRO(133 - [#133] EN+6
^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+12
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+6
MESS ALLIN+12
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+4!*, ALLIN+1!, ALLIN+2*, ALLIN+6!
>> DFN EN*, SRHDR*, HDR+3*
DIC ALLIN+1!, ALLIN+2*, ALLIN+6!
DIE EDIT+4!*
DIQ ALLIN+1!, ALLIN+2*, ALLIN+6!
DIQ(0 ALLIN+2*
DIR PAGE+2!, LAST!, FUNCT+9!, ES+8!, MESS+8!
DIR("A" PAGE+2*, FUNCT+6*, FUNCT+7*, FUNCT+8*, ES+8*, MESS+8*
DIR("B" FUNCT+8*, MESS+8*
DIR(0 PAGE+2*, LAST*, FUNCT+8*, ES+8*, MESS+8*
DR EDIT+4!*, ALLIN+1!, ALLIN+2*, ALLIN+6!
DTIME EDIT+4*
>> DTOUT PAGE+2, LAST, FUNCT+9, MESS+8
>> DUOUT PAGE+2, LAST, FUNCT+9, MESS+8
DUZ SIGN+3, SIGN+4, SIGN+5, ES+6
>> I ES+3*
IO EN+8
IO("Q" DISPLY+1!, DISPLY+2!
IOF END+1, HDR+2, FUNCT+4, MESS+1
IOSL EN+10, EN+11, FOOT+2
IOST EN+10, EN+11, FOOT+1, HDR+3, HDR+4, HDR+5
>> POP DISPLY+1
>> Q3("VIEW" EDIT+2*, EDIT+4!
SRA SIGN+2~
SRA( SIGN+5
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~
>> SRDTIME EDIT+4*
SRDTITL SRONIN+12~, SRONIN+13*, DISPLY, DISPLY+2, CODE+1~, CODE+2*
>> SREDIT ALLIN+1*, ALLIN+12, MESS+9*
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+6*
SRJJ ALLIN~, ALLIN+3*, ALLIN+8*, MESS+4*, MESS+6*, MESS+7
SRJK ALLIN~, ALLIN+3*
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+5*
SRMIS508 ALLIN~, ALLIN+1*, ALLIN+9*, ALLIN+12, MESS+5
SRMISS SIGN+2~, SIGN+7*, ALLIN+1*, ALLIN+12*
SRMISS1 ALLIN~, ALLIN+1*, ALLIN+7*, ALLIN+12, MESS+2
SRMISS2 ALLIN~, ALLIN+1*, ALLIN+10*, ALLIN+12, MESS+3
SRMISS3 ALLIN~, ALLIN+1*, ALLIN+11*, ALLIN+12, MESS+6
SRMISS82 ALLIN~, ALLIN+1*, ALLIN+12
SRMISS83 ALLIN~, ALLIN+1*, ALLIN+12
SRMISS84 ALLIN~, ALLIN+1*, ALLIN+12
SRNEWOP SRONIN+11!
SRNOEDIT PAGE, CODE+1~, CODE+2*
SRNUR SIGN+2~, SIGN+3*
SRO ALLIN~, ALLIN+4*, ALLIN+5
>> SRODR EDIT+6
>> SROERR EDIT+7*
SROK SIGN+2~, SIGN+3*, SIGN+4*, SIGN+5*, SIGN+6
SROLOCK EDIT+2~, EDIT+4
SROO ALLIN~, ALLIN+4*, ALLIN+5, LIST+1*, LIST+2
SRP ES~, ALLIN~, TR*
>> SRPAGE EN+8*, HDR+2*, HDR+3, HDR+4
SRPARAM SRONIN+12~, CODE+1~
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+1*, ALLIN+12, MESS+8*
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+4, EDIT+5
, EDIT+7, SIGN+1, SIGN+2, SIGN+3, ES, ES+1, ES+3, ES+7, ALLIN+2, ALLIN+3
, ALLIN+4, ALLIN+5, ALLIN+8, ALLIN+9, ALLIN+11, MESS+6, CODE+3, LIST, LIST+1
SRTN("KILL" SRONIN+11*, END+3
SRX EDIT+2~, ALLIN~, MESS+8!
SRX( ALLIN+7, ALLIN+10, ALLIN+11, MESS+2, MESS+3, MESS+4, MESS+6, LIST*, LIST+2*
SRX(48 ALLIN+10
SRX(506 ALLIN+7
SRX(508 MESS+5
SRX(71 ALLIN+7
SRX(72 ALLIN+7
SRX(73 ALLIN+7
SRXX SRONIN+12~, HDR+3*, CODE+1~
SRY ALLIN~
SRY( ALLIN+5*, LIST+1
SRY(130 ALLIN+3*, ALLIN+8, ALLIN+9, LIST
SRZ EDIT+2~, ALLIN~, ALLIN+10*, ALLIN+11*, MESS+2*, MESS+3*, LIST*, LIST+1*, TR
>> ST EDIT+4*
>> 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+9
>> 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