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

Package: Surgery

Routine: SROVER


Information

SROVER ;BIR/MAM - VERIFY CASE ;[ 01/30/01 1:52 PM ]

Source Information

Source file <SROVER.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Surgery 7 (ADXKILL,OTHADXD,PADXD)^SROADX1  ^SROERR0  CHECK^SROES  ($$ICD,$$ICDSTR)^SROICD  UNLOCK^SROUTL  ^SROVER1  ^SRSKILL  
CPT HCPCS Codes 2 ($$CPT,$$CPTD)^ICPTCOD  $$MOD^ICPTMOD  
Kernel 1 T0^%ZOSV  
Registration 1 DEM^VADPT  
VA FileMan 1 ^DIWP  

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

Package Total Caller Graph
Surgery 1 SROVER  

Entry Points

Name Comments DBIA/ICR reference
BEG
DONE
STRT
UP
VER
END
LOOP ; break procedure if greater than 45 characters
RT ; start RT logging
OTHER
PRINT ; print information

External References

Name Field # of Occurrence
T0^%ZOSV RT+1
^DIWP PRINT+2
$$CPT^ICPTCOD OTHER+2, PRINT+6
$$CPTD^ICPTCOD PRINT+7
$$MOD^ICPTMOD OTHER+6, PRINT+10
ADXKILL^SROADX1 END+2
OTHADXD^SROADX1 OTHER+8
PADXD^SROADX1 PRINT+13
^SROERR0 END
CHECK^SROES UP+5
$$ICD^SROICD PRINT+19
$$ICDSTR^SROICD PRINT+20
UNLOCK^SROUTL END+1
^SROVER1 UP+6
^SRSKILL END+2
DEM^VADPT DONE+4

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DONE+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you would like to reverify this case, or 'N' to exit",!,"this option."
  • Line Location: DONE+2
Function Call: WRITE
  • Prompt: !!,"This case has been locked. If you wish to update it, please contact",!,"your Chief of Surgery, or package coordinator."
  • Line Location: STRT+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: UP+0
Function Call: WRITE
  • Prompt: !!,"Verification of this case has not been made."
  • Line Location: UP+1
Function Call: WRITE
  • Prompt: !!,"Your answer has a control character in it, please re-type it.",!
  • Line Location: UP+3
Function Call: WRITE
  • Prompt: !!,"If the information above is not correct, enter 'YES'. You may then update",!,"any of the fields displayed. Enter RETURN to proceed with verification",!,"of this case."
  • Line Location: UP+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: VER+0
Function Call: WRITE
  • Prompt: !!,"No action has been taken. "
  • Line Location: VER+0
Function Call: WRITE
  • Prompt: !,"Enter 'YES' if the procedures, diagnosis, and occurrences are correct",!,"for this case. If you enter 'NO', the case will be left unverified."
  • Line Location: VER+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !,?10,SRX
  • Line Location: OTHER+4
Function Call: WRITE
  • Prompt: @IOF,!,SRNM,?52,"Operation Date: "_SRSDATE,!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?3,^UTILITY($J,"W",3,V,0)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"2. Principal CPT Code: ",X
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?5,SRDES(I)
  • Line Location: PRINT+7
Function Call: WRITE
  • Prompt: !,?10,SRX
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !,"3. Principal Procedure: ",?24,SROPS(1)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,?24,SROPS(2)
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !,"4. Other Procedures: ",?24
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,"5. Postoperative Diagnosis: "
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: ?30,$P(^(34),"^")
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: !,"6. Intraoperative Occurrences: "_$S($O(^SRF(SRTN,10,0)):"** INFORMATION ENTERED **",1:"NO OCCURRENCES HAVE BEEN ENTERED")
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !,"7. Principal Pre-OP Diagnosis: "
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: $P(^(33),"^")
  • Line Location: PRINT+18
Function Call: WRITE
  • Prompt: !,"8. Principal Pre-OP Diagnosis Code "_$$ICDSTR^SROICD(SRTN)_": "_SRDIAG
  • Line Location: PRINT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+21

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" DONE+4
^SRF - [#130] BEG, DONE, DONE+4, STRT+1, VER+3*, OTHER, OTHER+1, OTHER+2, OTHER+4, OTHER+5
, OTHER+6, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10, PRINT+16, PRINT+17, PRINT+18, PRINT+19
^UTILITY($J PRINT+2!, PRINT+3

Label References

Name Line Occurrences
DONE DONE+2
END DONE, DONE+3, STRT+1, UP+1, UP+5, UP+6, VER
LOOP PRINT+5
OTHER PRINT+15
PRINT STRT, UP+6
RT UP+6
STRT UP+6
UP UP+3, UP+4
VER UP, VER+2

Naked Globals

Name Field # of Occurrence
^( BEG
^("VER" DONE
^(33 PRINT+18
^(34 PRINT+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS DONE+5~*, UP+2*, UP+5*, UP+6
>> CPT OTHER+2*, OTHER+4, PRINT+4*, PRINT+6, PRINT+7, PRINT+8
>> DFN DONE+4*
>> DIWF PRINT+2*
>> DIWL PRINT+2*
>> DIWR PRINT+2*
DTIME DONE, UP, VER, END+2
>> I PRINT+1*, PRINT+2*, PRINT+7*
IOF END+2, PRINT+1
>> LINE PRINT+21*
>> LOOP LOOP+1*
>> M LOOP+1, PRINT+5*
MM LOOP+1*, PRINT+5!
MMM LOOP+1*, PRINT+5!
>> OTH OTHER+1*, OTHER+2, OTHER+4, OTHER+5, OTHER+6
>> OTHER OTHER+2*, OTHER+3
>> S("OP" PRINT+4*
>> S(0 DONE+4*
>> SR2 BEG*, UP
>> SRASDX PRINT+12*
>> SRCMOD OTHER+5*, OTHER+6*, OTHER+7, PRINT+9*, PRINT+10*, PRINT+11
>> SRCOMMA OTHER+5*, OTHER+7*, PRINT+9*, PRINT+11*
>> SRDATE DONE+4*
SRDES PRINT+7!
SRDES( PRINT+7
SRDES(0 PRINT+7
>> SRDIAG PRINT+19*, PRINT+20
>> SRDX PRINT+19*
>> SRI OTHER+5*, OTHER+6, PRINT+9*, PRINT+10
>> SRIND PRINT+2*
SRLCK DONE+5~, UP+5*, UP+6*, END+1
>> SRM OTHER+6*, PRINT+10*
>> SRMSG PRINT+12*
>> SRNM DONE+4*, PRINT+1
>> SROERR END*
>> SROPER LOOP+1*, PRINT+4*, PRINT+5*
SROPS PRINT+5!
SROPS( LOOP+1*
SROPS(1 PRINT+5*, PRINT+14
SROPS(2 PRINT+14
SROPS(3 PRINT+14
>> SRS BEG*
>> SRSDATE DONE+4*, PRINT+1
>> SRSOUT BEG*, UP+5, UP+6, OTHER+1
>> SRTN BEG, DONE, DONE+4, STRT+1, VER+3, END, END+1, OTHER, OTHER+1, OTHER+2
, OTHER+4, OTHER+5, OTHER+6, PRINT+2, PRINT+4, PRINT+8, PRINT+9, PRINT+10, PRINT+16, PRINT+17
, PRINT+18, PRINT+19, PRINT+20
>> SRX OTHER+4, OTHER+5*, OTHER+7*, PRINT+8, PRINT+9*, PRINT+11*
>> V PRINT+3*
>> VA("PID" DONE+4
>> VADM(1 DONE+4
X DONE!*, DONE+1*, DONE+2*, DONE+3, UP*, UP+1, UP+2*, UP+3, UP+4, UP+5*
, VER*, VER+1*, VER+2, VER+3*, END+2*, OTHER+2*, OTHER+3, PRINT+2*, PRINT+6*, PRINT+7*
XQUIT UP+5!
>> XRTL RT+1
>> XRTN RT+1*
>> Y DONE+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All