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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: SROESPR2

Package: Surgery

Routine: SROESPR2


Information

SROESPR2 ;BIR/ADM - SURGERY E-SIG UTILITY ; [ 06/25/02 04:09 PM ]

Source Information

Source file <SROESPR2.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 $$EXTERNAL^DILFD  $$GET1^DIQ  ^DIR  
Surgery 2 $$DATE^SROESPR  $$SITE^SROUTL0  
Kernel 1 $$NOW^XLFDT  

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 SROESPR1  

Entry Points

Name Comments DBIA/ICR reference
FOOTER(SRFOOT,SRFLAG,SRPFNBR,SRHDR,SRCONT1,SRDA) ; Control Pagination
; position, write footer when appropriate
; IF SRHDR=1, HEADER WILL NOT BE PRINTED
FTR
FOOTW
FOOTX ;
HEADER(SRFOOT,SRFLAG,SRPFHDR,SRCONT1) ; Header
STOP() ;on screen paging check
; quits SRCONT=1 if cont. ELSE quits SRCONT=0

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD FTR+8
$$GET1^DIQ FTR+10
^DIR STOP+3
$$DATE^SROESPR FTR+12, HEADER+6, HEADER+12
$$SITE^SROUTL0 FTR+8
$$NOW^XLFDT FTR+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FTR+0
Function Call: WRITE
  • Prompt: ?21,$S(+$G(SRCONT1):"** THIS NOTE CONTINUED ON NEXT PAGE **",1:""),!
  • Line Location: FTR+3
Function Call: WRITE
  • Prompt: "WORK COPY ========== UNOFFICIAL "
  • Line Location: FTR+4
Function Call: WRITE
  • Prompt: "- NOT FOR MEDICAL RECORD =========== DO NOT FILE"
  • Line Location: FTR+5
Function Call: WRITE
  • Prompt: SRLINE
  • Line Location: FTR+6
Function Call: WRITE
  • Prompt: !,SRFOOT("PNMP")
  • Line Location: FTR+7
Function Call: WRITE
  • Prompt: ?(80-$L(SRPRTNM)\2),SRPRTNM,?56,SRPRTDT
  • Line Location: FTR+14
Function Call: WRITE
  • Prompt: ?58,SRPRTDT,!?(80-$L(SRPRTNM)\2),SRPRTNM
  • Line Location: FTR+16
Function Call: WRITE
  • Prompt: !,SRFOOT("SSN")," ",SRFOOT("DOB"),?(80-$L(SRFOOT("LOCP"))\2),SRFOOT("LOCP")
  • Line Location: FTR+17
Function Call: WRITE
  • Prompt: ?(80-$L(SRPFNBR)),SRPFNBR
  • Line Location: FTR+18
Function Call: WRITE
  • Prompt: ?(80-$L(SRFOOT("PH#"))),SRFOOT("PH#")
  • Line Location: FTR+19
Function Call: WRITE
  • Prompt: !,SRLINE
  • Line Location: FTR+20
Function Call: WRITE
  • Prompt: !,"=========================== CONFIDENTIAL INFORMATION ==========================="
  • Line Location: FTR+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: FTR+22
Function Call: WRITE
  • Prompt: $$DATE^SROESPR(^TMP("SRLQ",$J,SRDA,1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"** CONTINUED FROM PREVIOUS SCREEN **",!
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: ?(80-$L(SRPFHDR)),SRPFHDR
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: $$DATE^SROESPR(^TMP("SRLQ",$J,SRDA,1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"** CONTINUED FROM PREVIOUS PAGE **",!!
  • Line Location: HEADER+12
Routine Call
  • DIR
  • Line Location:
    • STOP+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] EXTERNAL^DILFD
^DIC(4 - [#4] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] FTR+10
^SRO(133 - [#133] FTR+8
^TMP("SRLQ" FTR+8, FTR+9, HEADER+6, HEADER+12

Label References

Name Line Occurrences
$$STOP FOOTER+4
FOOTW FOOTER+4
FOOTX FOOTER+4, FOOTER+6
FTR FOOTER+5
HEADER FOOTW

Naked Globals

Name Field # of Occurrence
^("I" FTR+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR STOP+2~
DIR(0 STOP+3*
DIV FTR+1~, FTR+8*
IOF FTR+22, HEADER+3
IOSL FOOTER+4, FOOTER+6, FTR
IOST FOOTER+4, HEADER+2
>> IOT FTR
LOC FTR+1~, FTR+9*, FTR+10
SRCASE FTR+1~, FTR+8*
>> SRCONT FOOTER+3*, FOOTER+4*, FOOTW, FOOTX+1, STOP+4*, STOP+5
SRCONT1 FOOTER~, FTR+3, FOOTW, HEADER~, HEADER+6, HEADER+12, HEADER+13!
SRDA FOOTER~, FTR+8, FTR+9, HEADER+6, HEADER+12
SRDIV FTR+1~, FTR+8*, FTR+10*
SRDIVI FTR+1~, FTR+8*, FTR+9, FTR+10*, FTR+11
SRFLAG FOOTER~, FTR+4, FTR+18, FTR+19, FTR+20, FOOTW, HEADER~, HEADER+9, HEADER+10
SRFNUM FTR+1~
SRFOOT FOOTER~, FOOTW, HEADER~
SRFOOT("DOB" FTR+17
SRFOOT("INTNM" FTR+11
SRFOOT("LOCP" FTR+17
SRFOOT("PH#" FTR+19
SRFOOT("PNMP" FTR+7, HEADER+4
SRFOOT("SITE" FTR+11
SRFOOT("SSN" FTR+17, HEADER+4
SRHDR FOOTER~, FOOTER+5, FOOTW
SRLINE FTR+1~, FTR+2*, FTR+6, FTR+20, HEADER+1~*, HEADER+4, HEADER+5, HEADER+9, HEADER+11
SRNOW FTR+1~, FTR+12*
>> SROPAGE HEADER+1*, HEADER+3, HEADER+8
SRPFHDR FOOTW, HEADER~, HEADER+5, HEADER+10
SRPFNBR FOOTER~, FTR+18
SRPRTDT FTR+1~, FTR+12*, FTR+14, FTR+16
SRPRTNM FTR+1~, FTR+11*, FTR+13, FTR+14, FTR+16
U FTR+10
Y STOP+2~, STOP+4
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 |  Naked Globals |  Local Variables  | All