Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133 - [#133] EXTERNAL^DILFD
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call