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 |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Scheduling 4 BLD^SCRPW21  WAIT^SCRPW22  SUBT^SCRPW50  ($$CSI,$$IMP)^SCRPWICD  
Kernel 2 ENS^%ZISS  EN^XUTMDEVQ  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Caller Graph Total: 35

Package Total Caller Graph
Scheduling 35 SCMCMHHP  SCMCMHHT  SCRPO1  SCRPO3  SCRPO5  SCRPO6  SCRPW1  SCRPW10  
SCRPW11  SCRPW15  SCRPW16  SCRPW2  SCRPW20  SCRPW22  SCRPW27  SCRPW29  
SCRPW40  SCRPW41  SCRPW42  SCRPW45  SCRPW46  SCRPW47  SCRPW50  SCRPW51  
SCRPW54  SCRPW56  SCRPW57  SCRPW58  SCRPW59  SCRPW6  SCRPW60  SCRPW62  
SCRPW63  SCRPW7  SCRPW8  

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")

External References

Name Field # of Occurrence
ENS^%ZISS DISP0+2
^DIC P+1, PP+1, PP+3
^DIR ICDSYS+9, LSD, D+1, F+1, N+1, T+1, S+1, DIR+10
BLD^SCRPW21 PLST+1
WAIT^SCRPW22 LST1+2
SUBT^SCRPW50 RNG, LST+1
$$CSI^SCRPWICD ICDSYS+4
$$IMP^SCRPWICD ICDSYS+6, ICDSYS+11
EN^XUTMDEVQ PLIST+1

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
Routine Call
  • DIC
  • Line Location:
    • P+1
    • PP+1
    • PP+3
Routine Call
  • DIR
  • Line Location:
    • ICDSYS+9
    • LSD
    • D+1
    • F+1
    • N+1
    • T+1
    • S+1
    • DIR+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" DISP0+2
^%ZOSF("XY" DISP0+2
^DD("DD" ICDSYS+6, D+3
^DIC(40.7 - [#40.7] VCP+3
^TMP("SCRPW" PLST+1, PLST+2, PLST+3!, PLST1, DIR1, DIR2, PFL1+2, PFL2+2

Label References

Name Line Occurrences
$$DIRB R1, R2
$$ICDSYS RL+3
$$LSD LST0
$$PFL1 DIR1
$$PFL2 DIR2
$$RCOL R2+1
$$SEL R1, R2, LST+2
$$XY DISP0+2, DISP+3, DISP+5, DISP+7, DISP+9, DISP+10
@( SEL+3, C+1, DIR+8
DISP0 DISP+3
LST RL+4
LST0 LST+2
LST1 LST
NULL RL+2
PLST1 PLST+2
PSCRN P+1
R2 R2+1
VCPQ VCP+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> C DISP+5*, DISP+6, DISP+10
CSYS ICDSYS+1~, ICDSYS+4*, ICDSYS+9*, ICDSYS+11*, ICDSYS+12
DIC P+1~*, PSCRN+1, PSCRN+2, PP+1~*, PP+3*
DIC("B" PP+1*!, PP+3*!
DIC("S" P+1*!, PSCRN+1*, PSCRN+2*
DIC(0 P+1*, PP+1*
DIR ICDSYS+7!, ICDSYS+9!, LSD~, D+1~*, F+1~*, N+1~*, T+1~*, S+1~*, DIR~
DIR("A" ICDSYS+8*, LSD*, D+1*, N+1*, T+1*, S+1*
DIR("B" ICDSYS+8*, LSD*, D+1*, F+1*, F+2, N+1*, T+1*, S+1*, DIRB1+3*, DIRB1+4!
DIR(0 ICDSYS+7*, LSD*, D+1*, F+1*, N+1*, T+1*, DIR+8, DIR+9, DIR1+1*, DIR2+1*
DT ICDSYS+8, ICDSYS+9
>> DTOUT LSD, D+1, P+1, F+1, N+1, T+1, PP+1, PP+3, S+1, DIR+10
>> DUOUT LSD, D+1, P+1, F+1, N+1, T+1, PP+1, PP+3, S+1, DIR+10
DX DISP0+2~*, XY+3~*
DY DISP0+2~*, XY+3~*
I LST+2*, PLST+2*, PLST+3!, DISP+3*, DISP+5*, DISP+7*, DIR1~*, DIR2~*, PFL1+2, PFL2+2
I10DTE ICDSYS+1~, ICDSYS+6*, ICDSYS+7
I10DTI ICDSYS+1~, ICDSYS+6*, ICDSYS+8, ICDSYS+9
IEN ICDSYS+1~, ICDSYS+3*, ICDSYS+4
II PLST+3!, PLST1*, DISP+7*, DISP+8, DISP+9*, DIR1~*, DIR2~*, PFL1+2, PFL2+2
>> IOBM DISP0+2*, DISP+10*
IOF DISP0+2
IOM DISP0+2
>> IORVOFF DISP+5, DISP+9
>> IORVON DISP+3, DISP+7
IOSL DISP+6, DISP+10
IOST DISP0+1
>> IOSTBM DISP0+2, DISP+5, DISP+10
>> IOTM DISP0+2*, DISP+5*
S1 DIRB1~, DIRB1+3
S2 DIRB1~, DIRB1+3
SDA DIR~, DIR+9
>> SDACT RL+1, RL+3, R1, R2, LST+2, D+1, D+3, P+1, P+3, F+1
, F+3, N+1, N+3, T+1, T+3, C+1, PP+1, PP+3, PP+5, S+1
, S+3
SDBOT DISP~
SDBOT( DISP+5, DISP+7, DISP+8, DISP+9
SDBOT("" DISP+7
SDCSYS RL+1~, RL+3*, PSCRN+2
>> SDDV DIRB+2, RL+1*, R1+1, RCOL+3
SDEF DIRB1~, DIRB1+3
SDEXE DIR~, DIR+8
SDFL DIRB~, DIRB+2
SDI RL+1~, R1+1*, LSD+2*, XY~, XY+4
SDIRB SEL~, D+1, F+1, N+1, T+1, PP+1, PP+3, S+1
SDIRQ RL+1~, D+1, P+1, F+1, N+1, T+1, PP+1, S+1
SDL LST1+1~*, LST1+2*
SDLEV DIR~, DIR+8
>> SDNUL R1, R2, LST+2, D+2*, P+2*, F+2*, N+2*, T+2*, PP+2*, PP+4*
, S+2*, DIR+11*
SDO DIR~, DIR1+1, DIR2+1
SDOUT R1, R2, LST+2, LSD*, LST1+1~*, LST1+2, D+1*, P+1*, F+1*, N+1*
, T+1*, PP+1*, PP+3*, S+1*, DIR+10*
>> SDPAR( R1+1!, LSD+2!, DIRB1+3
>> SDPAR("L" ICDSYS+11
>> SDPAR("X" DIRB+2, RL+1*, RL+2, RL+4, R1+1, R2+2*, R2+3*, ICDSYS+2, ICDSYS+3, NULL+1*
, LST, LST0, LST0+1*, LST0+2*, LST1+2
SDPFL DIR~, PFL1+1, PFL1+2, PFL2+1, PFL2+2
SDR1 RNG~, R1*, R1+1, RCOL+2, RCOL+3, RCOL+4
SDR2 RNG~, R1+1*, R2*, RCOL+2, RCOL+3, RCOL+4
>> SDRM DISP0+2*, DISP+3
SDS DIR~, DIR2, PFL2+2
>> SDS1 R1+1, ICDSYS+5, ICDSYS+10, LSD+2
>> SDS2 DIRB+2, RL+1, RL+2, RL+4, R1+1, R2+2, R2+3, ICDSYS+2, ICDSYS+3, NULL+1
, LST, LST0, LST0+1, LST0+2, LSD+2, LST1+2
SDTOP DISP~, DISP+3, DISP+4
SDTYP SEL~, SEL+3
SDX DIRB+2~*, R2+2*, R2+3*, LST+2*, LST0, LST0+1, LST0+2, LSD, LSD+2, LST1+1~*
, LST1+2*, SEL+3~*, D+3*, P+3*, F+3*, N+3*, T+3*, PP+3*, PP+4*, PP+5*
, S+3*, VCP~, VCP+3
>> SDXY DISP0+2*, XY+4, XY+5
>> T RL+1, RL+3, R1, R2, LST+2, D+1, D+3, P+1, P+3, F+1
, F+3, N+1, N+3, T+1, T+3, C+1, PP+1, PP+3, PP+5, S+1
, S+3, DIR1, DIR2, PFL1+2, PFL2+2
U RL+2, RL+4, R1+1, R2+2, R2+3, ICDSYS+9, ICDSYS+11, RCOL+2, RCOL+3, RCOL+4
, LST0, LST0+1, LST0+2, LSD, LSD+2, D+3, F+3, N+3, T+3, PP+5
, S+3, DIR+9, DIR+12, DIRB1+3
X F+2, DISP0+2~*, DISP+3~*, XY~, XY+4, XY+5, DIR+11, DIR1~*, DIR1+1, DIR2~*
, DIR2+1
X1 PLST+2*, PLST+3!, PLST1
X2 PLST+3!, PLST1*
>> Y ICDSYS+6*, ICDSYS+9, LSD+1, D+2, D+3, P+2, P+3, F+3, N+2, N+3
, T+2, T+3, PP+2, PP+3, PP+4, PP+5, S+2, S+3, DIR+12
>> Y(0 F+3, S+3, DIR+12
ZTSAVE PLIST+1~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All