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

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