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

Package: Scheduling

Routine: SCRPW23


Information

SCRPW23 ;RENO/KEITH - ACRP Ad Hoc Report (cont.) ;15 Jul 98 02:38PM

Source Information

Source file <SCRPW23.m>

Entry Points

Name Comments DBIA/ICR reference
DIRB(SDFL) ;Get default values for range
RL ;Prompt for range or list
RNG
R1
R2
ICDSYS() ;Prompt for coding system. (Structurally similar to $$RL^SCRPW22.)
RCOL() ;Determine range collation validity
NULL ;Set list for null value
LST
LST0
LSD()
LST1 ;List existing item selections
SEL(SDTYP,SDIRB) ;Select items for list or range
D ;Get date values
P ;Get pointer values ;SD*5.3*474 added PSCRN to screen certain status types
PSCRN ;screen out the 4 cancellation type status' SD*5.3*474
F ;Get field values
N ;Get number value
T ;Get text value
C ;Get computed value
PP ;Get pointer value from file multiple
S ;Get set-of-codes value
VCP(SDX) ;Validate Stop Code credit pair
VCPQ
PLIST ;Print category list
PLST ;Print category list
PLST1
DISP0 ;Return to full screen scrolling
DISP(SDTOP,SDBOT) ;Create centered scrolling region
XY(X,SDI) ;Maintain $X, $Y
DIR(DIR,SDLEV,SDEXE,SDS,SDO,SDPFL,SDA) ;Ask questions!
DIR1
DIR2
PFL1() ;Print field level 1 evaluator
PFL2() ;Print field level 2 evaluator
DIRB1(S1,S2,SDEF) ;Set DIR("B")

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Start with:"
  • Line Location: R1+0
Function Call: WRITE
  • Prompt: !!,"End with:"
  • Line Location: R2+0
Function Call: WRITE
  • Prompt: !!,$C(7),"End value must collate after start value!"
  • Line Location: R2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !!,$C(7),$P(SDX,U,2)," is already selected."
  • Line Location: LSD+0
Function Call: WRITE
  • Prompt: !," ...deleted."
  • Line Location: LSD+1
Function Call: WRITE
  • Prompt: !,"Items currently selected:"
  • Line Location: LST1+1
Function Call: WRITE
  • Prompt: !?5,SDX
  • Line Location: LST1+2
Function Call: WRITE
  • Prompt: $C(7)," ??",!,"This response must be a 6 digit numeric value",!,"that represents two valid stop codes!"
  • Line Location: VCPQ+0
Function Call: WRITE
  • Prompt: !!,$P(^TMP("SCRPW",$J,"SEL",1,I,X1),"~")
  • Line Location: PLST+2
Function Call: WRITE
  • Prompt: !?4,$P(^TMP("SCRPW",$J,"SEL",2,X1,II,X2),"~")
  • Line Location: PLST1+0
Function Call: WRITE
  • Prompt: $$XY(IOSTBM,1),@IOF
  • Line Location: DISP0+2
Function Call: WRITE
  • Prompt: $$XY(IORVON)
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: " ",SDTOP," "
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: $$XY(IORVOFF)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: $$XY(IOSTBM,1)
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+6
Function Call: WRITE
  • Prompt: $$XY(IORVON)
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+7
Function Call: WRITE
  • Prompt: " ",SDBOT(II)," "
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: "-"
  • Line Location: DISP+8
Function Call: WRITE
  • Prompt: $$XY(IORVOFF)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: !,$E(SDBOT(II),1,80)
  • Line Location: DISP+9
Function Call: WRITE
  • Prompt: $$XY(IOSTBM,1)
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: @X
  • Line Location: XY+4
Function Call: WRITE
  • Prompt: X
  • Line Location: XY+5
Info |  Source |  Entry Points |  Interaction Calls