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

Package: Scheduling

Routine: SDUL1


Information

SDUL1 ;ALB/MJK - Screen Malipulation Utilities ; 12/1/91

Source Information

Source file <SDUL1.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
Scheduling 4 ($$CAPTION,HDR,LIST)^SDUL  TERM^SDUL0  $$SETSTR^SDUL1  $$GET^SDUL4  
VA FileMan 3 (,DD)^%DT  (C,NOW)^%DTC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 15

Package Total Caller Graph
Scheduling 14 SDAL0  SDHL7APT  SDMHNS1  SDMHPRO1  SDPPMT2  SDTMPPRC  SDUL  SDUL PRINT LIST  
SDUL PRINT SCREEN  SDUL0  SDUL1  SDUL2  SDUL4  SDUL40  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
INSTR(STR,X,Y,LENGTH,ERASE) ; -- insert text
; STR := string to insert
; X := X coordinate
; Y := Y coordinate
; LENGTH := clear # of characters
; ERASE := erase chars first
FLDUPD(STR,FLD,ENTRY) ; -- update entry and field on screen
; STR := string to insert
; FLD := col name
; ENTRY := entry # in list
SETFLD(STR,VAR,FLD) ; -- set field in var
; input: STR := string to insert
; VAR := destination string
; FLD := col name
SETSTR(S,V,X,L) ; -- insert text(S) into variable(V)
; S := string to insert
; V := destination string
; X := insert @ col X
; L := clear # of chars (length)
  • ICR #661
    • Status: Retired
    • Usage: Private
    FULL ; set full scrolling region
    CLEAR ; -- clear screen
  • ICR #661
    • Status: Retired
    • Usage: Private
    ERASE ;
    FDATE(Y) ; -- return formatted date
    ; input: Y := field name
    ; output: [returned] := formatted date only
  • ICR #661
    • Status: Retired
    • Usage: Private
    FTIME(Y) ; -- return formatted date/time
    ; input: Y := internal date/time
    ; output: [returned] := formatted date and time
    FDTTM(Y) ; -- return formatted date/time
    ; input: Y := internal date/time
    ; output: [returned] := formatted date and time
    NOW() ; -- return now
    RANGE ; -- change date range
    ; input: ^TMP("SDUL DATA",$J SDULEVL,"DAYS") := number of days allowed
    ; SDB := default beginning date {optional}
    RANGEQ
    PAUSE ;
    PRT ; -- prt screen (PS)
    PRTS ;
    PRTQ
    SAVE ; -- save to queue
    FTR ; -- footer to print
    PRTL ; -- prt list (PL)
    PRTLS ;
    PRTLQ
    UPPER(X) ; -- convert to uppercase
    LOWER(X) ;

    External References

    Name Field # of Occurrence
    ^%DT RANGE+5
    DD^%DT FTIME+3, FDTTM+5, RANGE+4, RANGE+8
    C^%DTC RANGE+6
    NOW^%DTC NOW+1
    ^%ZIS PRT+3, PRTL+3
    ^%ZISC PRTQPRTLQ
    ^%ZTLOAD PRT+7, PRTL+7
    ^DIR RANGE+13, PAUSE+1
    $$CAPTION^SDUL PRTS+2, PRTLS+3
    HDR^SDUL PRTS+3, PRTLS+4, PRTLS+5
    LIST^SDUL PRTS+3
    TERM^SDUL0 FULL+1, PRTQPRTLQ
    $$SETSTR^SDUL1 SETFLD+4
    $$GET^SDUL4 PRTLS+5
    $$FMTE^XLFDT FDATE+3, FDTTM+4

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: IOSC
    • Line Location: INSTR+7
    Function Call: WRITE
    • Prompt: $J("",LENGTH)
    • Line Location: INSTR+8
    Function Call: WRITE
    • Prompt: STR
    • Line Location: INSTR+9
    Function Call: WRITE
    • Prompt: IORC
    • Line Location: INSTR+10
    Function Call: WRITE
    • Prompt: IOSC
    • Line Location: FULL+2
    Function Call: WRITE
    • Prompt: @IOSTBM
    • Line Location: FULL+2
    Function Call: WRITE
    • Prompt: @IOSTBM
    • Line Location: FULL+2
    Function Call: WRITE
    • Prompt: @IOF
    • Line Location: CLEAR+1
    Function Call: WRITE
    • Prompt: $G(@X)
    • Line Location: ERASE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: RANGE+5
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !
    • Line Location: PAUSE+1
    Function Call: WRITE
    • Prompt: !,X
    • Line Location: PRTLS+5
    Routine Call
    • DIR
    • Line Location:
      • RANGE+13
      • PAUSE+1
    Routine Call
    • %ZIS
    • Line Location:
      • PRT+3
      • PRTL+3

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^TMP("SDUL DATA" RANGE+6, RANGE+11

    Label References

    Name Line Occurrences
    $$FDATE RANGE+12
    $$FTIME NOW+2
    CLEAR PRT+4, PRTL+4
    ERASE CLEAR+1
    FTR PRTS+3, PRTLS+5, PRTLS+6
    FULL CLEAR+1
    INSTR FLDUPD+5
    PAUSE FTR+2
    PRTLQ PRTL+7, PRTLS+5
    PRTLS PRTL+5
    PRTQ PRT+3, PRT+7, PRTL+3
    PRTS PRT+5
    RANGEQ RANGE+6, RANGE+13
    SAVE PRT+7, PRTL+7

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % NOW+2
    %DT RANGE+5*!
    %DT("A" RANGE+5*
    %DT("B" RANGE+4*
    %DT(0 RANGE+5*
    >> %ZIS PRT+3*, PRTL+3*
    C LOWER+1~, LOWER+3*
    DIR RANGE+13!, PAUSE+1!
    DIR("?" RANGE+11*, RANGE+12*
    DIR("A" RANGE+10*
    DIR("B" RANGE+9*
    DIR(0 RANGE+10*, PAUSE+1*
    DT RANGE+7
    >> DX INSTR+8*, INSTR+9*
    >> DY INSTR+8*, INSTR+9*
    ENTRY FLDUPD~, FLDUPD+5
    ERASE INSTR~, INSTR+8
    FLD FLDUPD~, FLDUPD+5, SETFLD~, SETFLD+4
    I LOWER+1~, LOWER+3*
    IO PRT+4, PRTS+3, PRTL+4, PRTLS+4
    IO("Q" PRT+4, PRT+5, PRTL+4, PRTL+5
    IO(0 PRT+4, PRTL+4
    >> IOBM FULL+2*
    IOF CLEAR+1
    ION PRT+6, PRTL+6
    >> IORC INSTR+10, FULL+2
    >> IOSC INSTR+7, FULL+2
    IOSL FULL+2, PRTLS+3, PRTLS+5
    IOST FTR+2
    >> IOSTBM FULL+1, FULL+2
    >> IOTM FULL+2*
    >> IOXY INSTR+8, INSTR+9
    L SETSTR~, SETSTR+6
    LENGTH INSTR~, INSTR+8
    >> POP PRT+3, PRTL+3
    S SETSTR~, SETSTR+6
    >> SDB RANGE+4
    >> SDBEG RANGE+13*
    >> SDEND RANGE+13*
    SDESC PRT+1~, FTR+1*, FTR+2*, PRTL+1~, PRTLS+1~, PRTLS+5
    SDI PRTLS+1~, PRTLS+5*
    SDLINES PRTLS+1~, PRTLS+2*, PRTLQ+1
    >> SDMIN RANGE+5
    >> SDUL("LINES" PRTLS+2, PRTLS+3*, PRTLQ+1*
    >> SDUL("TM" FLDUPD+5
    >> SDULAR SAVE+1, PRTLS+5
    >> SDULBCK PRT+2*, PRT+4*, PRTL+2*, PRTL+4*
    >> SDULBG FLDUPD+5
    SDULCAP PRTS+1~, PRTS+2*, PRTLS+1~, PRTLS+3*
    SDULCC PRT+2, PRTS+1~, PRTS+2*, PRTL+2, PRTLS+1~, PRTLS+3*
    >> SDULCNT PRTLS+5
    >> SDULDDF( FLDUPD+5, SETFLD+4
    >> SDULEVL RANGE+6, RANGE+11
    SDULPGE PRTLS+1~, PRTLS+3*, PRTLS+5*
    SDX RANGE+6*, RANGE+7, RANGE+8, RANGE+10, RANGE+12, RANGE+13, RANGEQ!
    SDX1 RANGE+6*, RANGE+7, RANGE+10, RANGE+12, RANGEQ!
    SDY FDTTM+3~, FDTTM+4*, FDTTM+6
    STR INSTR~, INSTR+9, FLDUPD~, FLDUPD+5, SETFLD~, SETFLD+4
    U FLDUPD+5, SETFLD+4, RANGE+10
    V SETSTR~, SETSTR+6
    VAR SETFLD~, SETFLD+4
    X INSTR~, INSTR+8, INSTR+9, SETSTR~, SETSTR+6, ERASE+1*, RANGE+6*, RANGE+7*, RANGE+8*, RANGE+9
    SAVE+1*, PRTLS+5*, UPPER~, UPPER+1, LOWER~, LOWER+2
    >> X1 RANGE+6*
    >> X2 RANGE+6*
    Y INSTR~, INSTR+8, INSTR+9, FDATE~, FDATE+3, FTIME~, FTIME+4, FDTTM~, FDTTM+4, FDTTM+6
    RANGE+4*, RANGE+6, RANGE+8*, RANGE+13, FTR+2, LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4
    Z LOWER+1~, LOWER+3*
    >> ZTDESC PRT+6*, PRTL+6*
    >> ZTIO PRT+6*, PRTL+6*
    >> ZTQUEUED PRTQPRTLQ
    >> ZTRTN PRT+6*, PRTL+6*
    >> ZTSAVE( SAVE+1*
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All