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
Print Page as PDF
Routine: LA7SRPT4

Package: Automated Lab Instruments

Routine: LA7SRPT4


Information

LA7SRPT4 ;DALOI/JDB - SCT OVERRIDE REPORT ;03/07/12 09:38

Source Information

Source file <LA7SRPT4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; Prompts for #62.48 entry, device, then branches
MAIN(R6248) ;
; Setup variables, branch, print footer, perform cleanup.
; Expects LASEL array from EN (used with VAUTOMA) to pick
; multiple #62.48s (passed in sym tbl for queuing)
LOOP(STOP,SEL) ;
; Inputs
; STOP : <byref> see Outputs below
; SEL : <byref> Array of #62.48s to display
; Outputs
; STOP : Tracks if user has stopped display
SCTOVER(R6248,STOP) ;
; Displays SCT override info for a MSG CFG (#62.48)
; Inputs
; R6248 : #62.48 IEN
; STOP : <byref> see Outputs below
; Outputs
; STOP : Tracks if user has stopped display
HDR ;
; Header
; Expects PGDATA array
; private method
FTR ;
NP(STOP) ;
; Convenience method
BLDTMP(FILE,IN) ;
; Builds ^TMP($J,TMPNM,FILE,.01,IEN)=SCT Code
; private method
; Inputs
; FILE : File # (61, 62)
; IN :<byref> data array IN(IEN)=SCT Code
UL(I) ;
; Underline On/Off
; private method
; Inputs
; I I=1 turns on underline I=0 turns off underline

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," No SCT Overrides on file."
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+25
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+16
Function Call: WRITE
  • Prompt: !
  • Line Location: LOOP+16
Function Call: WRITE
  • Prompt: !,"Message Configuration: ",DATA(.01,"E")
  • Line Location: SCTOVER+22
Function Call: WRITE
  • Prompt: !?5,"No SCT Overrides on file."
  • Line Location: SCTOVER+26
Function Call: WRITE
  • Prompt: !
  • Line Location: SCTOVER+30
Function Call: WRITE
  • Prompt: !?2
  • Line Location: SCTOVER+81
Function Call: WRITE
  • Prompt: "Specimen [Topography file #61]"
  • Line Location: SCTOVER+82
Function Call: WRITE
  • Prompt: ?2+DISP(1)+2,"VA SCT",?2+DISP(1)+2+18+2,"Non-VA SCT"
  • Line Location: SCTOVER+85
Function Call: WRITE
  • Prompt: !?2,NM
  • Line Location: SCTOVER+105
Function Call: WRITE
  • Prompt: ?2+DISP(1)+2,SCT,?2+DISP(1)+2+18+2,SCTOVR
  • Line Location: SCTOVER+106
Function Call: WRITE
  • Prompt: !
  • Line Location: SCTOVER+112
Function Call: WRITE
  • Prompt: !?2
  • Line Location: SCTOVER+114
Function Call: WRITE
  • Prompt: "Sample [Collection Sample file #62]"
  • Line Location: SCTOVER+116
Function Call: WRITE
  • Prompt: ?2+DISP(1)+2,"VA SCT",?2+DISP(1)+2+18+2,"Non-VA SCT"
  • Line Location: SCTOVER+119
Function Call: WRITE
  • Prompt: !?2,NM
  • Line Location: SCTOVER+138
Function Call: WRITE
  • Prompt: ?2+DISP(1)+2,SCT,?2+DISP(1)+2+18+2,SCTOVR
  • Line Location: SCTOVER+139
Function Call: WRITE
  • Prompt: !
  • Line Location: SCTOVER+151
Function Call: WRITE
  • Prompt: !?POS
  • Line Location: SCTOVER+154
Function Call: WRITE
  • Prompt: "SCT Code"
  • Line Location: SCTOVER+156
Function Call: WRITE
  • Prompt: ?POS,"SCT Preferred Term"
  • Line Location: SCTOVER+158
Function Call: WRITE
  • Prompt: !?POS,SCT1
  • Line Location: SCTOVER+165
Function Call: WRITE
  • Prompt: ?POS
  • Line Location: SCTOVER+168
Function Call: WRITE
  • Prompt: !,"MESSAGE CONFIGURATION SCT OVERRIDES "
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?IOM-$L(STR)-2,STR
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDR+18
Info |  Source |  Entry Points |  Interaction Calls