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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROVER2

Package: Surgery

Routine: SROVER2


Information

SROVER2 ;BIR/ADM - Case Coding and Verification ; 8/10/04 3:00pm

Source Information

Source file <SROVER2.m>

Call Graph

Call Graph Total: 15

Package Total Call Graph
Surgery 10 (ADXKILL,PADXD)^SROADX1  ^SROERR0  CODE^SRONIN  CODE^SRONON  CODE^SROPRPT  ^SROPS1  ($$LOCK,UNLOCK)^SROUTL  ^SROVAR  
(,PRESS)^SROVER3  ^SRSKILL  
DRG Grouper 3 $$ICDDX^ICDCODE  ($$CPT,$$CPTD)^ICPTCOD  $$MOD^ICPTMOD  
Registration 1 DEM^VADPT  
VA Fileman 1 D^DIQ  

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Surgery 4 SRCODING NURSE REPORT  SRCODING OP REPORT  SROADX  SROVER3  

Entry Points

Name Comments DBIA/ICR reference
END
HDR
BEG
NRPT ; print nurse intraoperative report
ORPT ; print operation/procedure report
PRINT ; print information
CHECK ; check for changes to data
LOOP ; break procedure if greater than 45 characters
MOD ; if data changed set coder verification field

External References

Name Field # of Occurrence
D^DIQ BEG+1
$$ICDDX^ICDCODE PRINT+20, PRINT+24
$$CPT^ICPTCOD PRINT+4
$$CPTD^ICPTCOD PRINT+8
$$MOD^ICPTMOD PRINT+11
ADXKILL^SROADX1 END
PADXD^SROADX1 PRINT+14
^SROERR0 END
CODE^SRONIN NRPT+2
CODE^SRONON ORPT+1
CODE^SROPRPT ORPT+2
^SROPS1 SROVER2+3
$$LOCK^SROUTL PRINT+28
UNLOCK^SROUTL END+1
^SROVAR SROVER2+2
^SROVER3 PRINT+29
PRESS^SROVER3 NRPT+1
^SRSKILL END
DEM^VADPT BEG+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1. Principal Procedure: ",?24,SROPS(1)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+6
Function Call: WRITE
  • Prompt: !,"2. Principal CPT Code: ",?24,$S(CPT:SRCPT,1:"NOT ENTERED")
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?6,SRDES(I)
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,?10,SRX
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,"3. Other Procedures: "_$S($O(^SRF(SRTN,13,0)):"** INFORMATION ENTERED **",1:"NO OTHER PROCEDURES HAVE BEEN ENTERED")
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"4. Principal Diagnosis: "_SRTXT
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"4. Postoperative Diagnosis: "_SRTXT
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: !,"5. Principal Diagnosis Code: "_SRDIAG
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: !,"6. Other Postop Diagnosis: "_$S($O(^SRF(SRTN,15,0)):"** INFORMATION ENTERED **",1:"NO OTHER POSTOP DIAGNOSIS HAS BEEN ENTERED")
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: !,"7. Principal Pre-OP Diagnosis: "
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: $P(^(33),"^")
  • Line Location: PRINT+23
Function Call: WRITE
  • Prompt: !,"8. Principal Pre-OP Diagnosis Code: "_SRDIAG
  • Line Location: PRINT+25
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF,!,SRNM,!,"Operation Date: "_SRSDATE,?40,"Case #",SRTN,!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: "-"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,?5,"Nurse Intraoperative Report NOT available on Non-OR Procedure",!
  • Line Location: NRPT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NRPT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] BEG, BEG+1, BEG+2, PRINT+1, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10, PRINT+11
, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22, PRINT+23, PRINT+24, PRINT+26
, ORPT+1, NRPT+1, MOD+1*, CHECK+1, CHECK+2, CHECK+4, CHECK+5, CHECK+7, CHECK+8, CHECK+9
^TMP("SRV1" BEG!, PRINT+3*, PRINT+16*, PRINT+21*, PRINT+26*, END!, CHECK+1, CHECK+4, CHECK+6, CHECK+7
, CHECK+8, CHECK+9, CHECK+10
^TMP("SRV2" BEG!, END!, CHECK+4*, CHECK+6, CHECK+9*, CHECK+10

Label References

Name Line Occurrences
CHECK MOD+1
END PRINT+28, PRINT+29
HDR PRINT+1
LOOP PRINT+5
MOD PRINT+29
PRINT PRINT+29

Naked Globals

Name Field # of Occurrence
^( BEG
^(33 PRINT+23

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CPT PRINT+1*, PRINT+3, PRINT+4, PRINT+7, PRINT+8, PRINT+9
>> DFN BEG+1*
DUZ MOD+1
>> I PRINT+8*, HDR*
IOF END, HDR, NRPT+1
>> LINE PRINT+27*
>> LOOP LOOP+1*
>> M PRINT+5*, LOOP+1
MM PRINT+5!, LOOP+1*
MMM PRINT+5!, LOOP+1*
>> S("OP" PRINT+1*
>> S(0 BEG+1*
>> SR2 BEG*
>> SRCMOD PRINT+10*, PRINT+11*, PRINT+12
>> SRCOMMA PRINT+10*, PRINT+12*
>> SRCPT PRINT+4*, PRINT+7
>> SRDATE BEG+1*, PRINT+20, PRINT+24
SRDES BEG~, PRINT+8!
SRDES( PRINT+8
SRDES(0 PRINT+8
>> SRDIAG PRINT+20*, PRINT+21, PRINT+24*, PRINT+25
SRDX BEG~, PRINT+20*, PRINT+21, PRINT+24*
SREDIT BEG~*, PRINT+29
>> SRI PRINT+10*, PRINT+11
>> SRJ PRINT+2*, PRINT+17*, CHECK+2*, CHECK+5*
SRLCK PRINT+28~*, END+1
SRM PRINT+11*!
SRMOD BEG~*, MOD+1, CHECK+1*, CHECK+4*, CHECK+6*, CHECK+7*, CHECK+8*, CHECK+9*, CHECK+10*
>> SRMSG PRINT+13*
>> SRNM BEG+1*, HDR
SRNON BEG~, BEG+2*, PRINT+18, PRINT+19, ORPT+1~*, NRPT+1~*, CHECK+7, CHECK+8
>> SROERR END*
>> SROPER PRINT+1*, PRINT+3, PRINT+5*, LOOP+1*
SROPS PRINT+5!
SROPS( LOOP+1*
SROPS(1 PRINT+5*, PRINT+6
SROPS(2 PRINT+6
SROPS(3 PRINT+6
>> SRS BEG*
>> SRSDATE BEG+1*, HDR
SRSEL BEG~
>> SRSITE SROVER2+2
>> SRSOUT BEG*, PRINT+29
>> SRTN SROVER2+3, BEG, BEG+1, BEG+2, PRINT+1, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10
, PRINT+11, PRINT+15, PRINT+16, PRINT+17, PRINT+18, PRINT+19, PRINT+20, PRINT+22, PRINT+23, PRINT+24
, PRINT+26, PRINT+28, END, END+1, HDR, ORPT+1, NRPT+1, MOD+1, CHECK+1, CHECK+2
, CHECK+4, CHECK+5, CHECK+7, CHECK+8, CHECK+9
SRTXT BEG~, PRINT+18*, PRINT+19*, PRINT+21
>> SRX PRINT+9, PRINT+10*, PRINT+12*
>> VA("PID" BEG+1
>> VADM(1 BEG+1
>> X PRINT+8*, PRINT+16*, PRINT+17, PRINT+26*, CHECK+1*, CHECK+3*, CHECK+4*, CHECK+5, CHECK+6*, CHECK+7*
, CHECK+8*, CHECK+9*, CHECK+10*
>> XQUIT SROVER2+2*, SROVER2+3*
>> Y BEG+1*, PRINT+2*, PRINT+3, PRINT+4*, PRINT+16, PRINT+17*, PRINT+26*, CHECK+2*, CHECK+3, CHECK+4
, CHECK+5*, CHECK+9*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All