VALM1 ;ALB/MJK - Screen Manipulation Utilities ;06/27/2006
Source file <VALM1.m>
| 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,LINE,CON,COFF) | ; -- update entry and field on screen
; STR := string to insert ; FLD := col name ; LINE := 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) |
|
| FULL | ; set full scrolling region
|
|
| CLEAR | ; -- clear screen
|
|
| ERASE | ;
|
|
| FDATE(Y) | ; -- return formatted date
; input: Y := field name ; output: [returned] := formatted date only |
|
| 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
|
|
| WAIT | ; "Enter RETURN to continue"
|
|
| GOON() | ; "Enter RETURN to continue or '^' to exit"
|
|
| PAUSE | ;
|
|
| PRT | ; -- prt screen (PS)
|
|
| PRTS | ;
|
|
| PRTQ | ;
|
|
| SAVE | ; -- save to queue
|
|
| FTR | ; -- footer to print
|
|
| PRTL | ; -- prt list (PL)
|
|
| PRTLS | ;
|
|
| PRTLQ | ;
|
|
| CHKLONG | ;
|
|
| TOOLONG() | ; Is the line length too long for the device?
|
|
| UPPER(X) | ; -- convert to uppercase
|
|
| LOWER(X) | ;
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | FTIME+3, FDTTM+5 |
| NOW^%DTC | NOW+1 |
| ^%ZIS | PRT+4, PRTL+5 |
| ^%ZISC | PRTQ+2, PRTLQ+2 |
| ^%ZTLOAD | PRT+7, PRTL+8 |
| ^DIR | WAIT+2, GOON+2, PAUSE+1 |
| $$CAPTION^VALM | PRTS+3, PRTLS+4 |
| HDR^VALM | PRTS+4, PRTLS+5, PRTLS+6 |
| LBAR^VALM | PRTS+4 |
| LIST^VALM | PRTS+4 |
| TBAR^VALM | PRTS+4, PRTLS+5, PRTLS+6 |
| TERM^VALM0 | FULL+1, PRTQ+3, PRTLQ+3 |
| RANGE^VALM11 | RANGE+1 |
| $$GET^VALM4 | PRTLS+6 |
| $$UP^XLFSTR | UPPER+1 |
| EN^XQOR | PRTL+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("RM" | FULL+3, PRT+8, PRTQ+3, PRTL+9, PRTLQ+3 |
| ^ORD(101 - [#101] | PRTL+1 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PRTL+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | NOW+2 |
| >> %ZIS | PRT+4*, PRTL+5* |
| C | LOWER+1~, LOWER+3* |
| COFF | FLDUPD~ |
| CON | FLDUPD~ |
| DIR | WAIT+1~, GOON+1~, PAUSE+1! |
| DIR("A" | WAIT+2* |
| DIR(0 | WAIT+2*, GOON+2*, PAUSE+1* |
| DIROUT | WAIT+1~, GOON+1~ |
| DIRUT | WAIT+1~, GOON+1~ |
| DTOUT | WAIT+1~, GOON+1~ |
| DUOUT | WAIT+1~, GOON+1~ |
| >> DX | INSTR+7*, INSTR+8* |
| >> DY | INSTR+7*, INSTR+8* |
| ERASE | INSTR~, INSTR+7 |
| FLD | FLDUPD~, FLDUPD+4, SETFLD~, SETFLD+4 |
| I | LOWER+1~, LOWER+3* |
| IO | PRT+8, PRTS+4, PRTL+9, PRTLS+5, CHKLONG+2 |
| IO("Q" | PRT+5, PRTL+6, CHKLONG+2 |
| IO(0 | PRT+8, PRTL+9, CHKLONG+2 |
| >> IOBM | FULL+2* |
| IOF | CLEAR+1, CHKLONG+4 |
| IOM | FULL+3, PRTLS+3, CHKLONG+8, TOOLONG+2, TOOLONG+3 |
| >> IORC | INSTR+9, FULL+1, FULL+2 |
| >> IOSC | INSTR+6, FULL+1, FULL+2 |
| >> IOSGR0 | ERASE+1 |
| IOSL | FULL+1, FULL+2, PRTLS+4, PRTLS+6, CHKLONG+4 |
| IOST | FTR+2, CHKLONG+3 |
| >> IOSTBM | FULL+1, FULL+2 |
| >> IOTM | FULL+2* |
| >> IOXY | INSTR+7, INSTR+8 |
| L | SETSTR~, SETSTR+5 |
| LENGTH | INSTR~, INSTR+7 |
| LINE | FLDUPD~, FLDUPD+4 |
| >> POP | PRT+4, PRTL+5 |
| S | SETSTR~, SETSTR+5 |
| STR | INSTR~, INSTR+8, FLDUPD~, FLDUPD+4, SETFLD~, SETFLD+4 |
| U | FLDUPD+4, SETFLD+4 |
| V | SETSTR~, SETSTR+5 |
| >> VALM("LINES" | PRTLS+3, PRTLS+4*, PRTLQ+4* |
| >> VALM("PRT" | PRTL+1 |
| >> VALM("RM" | CHKLONG+7, TOOLONG+1, TOOLONG+3 |
| >> VALM("TM" | FLDUPD+4, PRTLS+4 |
| >> VALMAR | SAVE+2, PRTLS+6 |
| >> VALMBCK | PRT+2*, PRTL+3* |
| >> VALMBG | FLDUPD+4 |
| VALMCAP | PRTS+1~, PRTS+3*, PRTLS+1~, PRTLS+4* |
| VALMCC | PRT+3, PRTS+1~, PRTS+3*, PRTL+4, PRTLS+1~, PRTLS+4* |
| >> VALMCNT | PRTLS+6 |
| >> VALMDDF( | FLDUPD+4, SETFLD+4 |
| VALMESC | PRT+1~, FTR+1*, FTR+2*, PRTL+2~, PRTLS+1~, PRTLS+6 |
| VALMI | PRTLS+1~, PRTLS+6* |
| VALMLNS | PRTLS+1~, PRTLS+3*, PRTLQ+4 |
| >> VALMPG1 | PRTS+3*, PRTLS+3* |
| VALMPGE | PRTLS+1~, PRTLS+4*, PRTLS+6* |
| >> VALMSG | CHKLONG+2* |
| >> VALMSGR | ERASE+1 |
| VALMWD | FULL+3*, PRTLS+1~, PRTLS+3* |
| VALMY | FDTTM+3~, FDTTM+4*, FDTTM+6 |
| VAR | SETFLD~, SETFLD+4 |
| X | INSTR~, INSTR+7, INSTR+8, SETSTR~, SETSTR+5, FULL+3*, WAIT+1~, GOON+1~, PRT+8*, PRTQ+3* , SAVE+1*, SAVE+2*, PRTL+1*, PRTL+9*, PRTLS+6*, PRTLQ+3*, UPPER~, UPPER+1, LOWER~, LOWER+2 |
| Y | INSTR~, INSTR+7, INSTR+8, FDATE~, FDATE+3, FTIME~, FTIME+4, FDTTM~, FDTTM+4, FDTTM+6 , WAIT+1~, GOON+1~, GOON+3, LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4 |
| Z | LOWER+1~ |
| >> ZTDESC | PRT+6*, PRTL+7* |
| >> ZTQUEUED | PRTS+2, PRTQ+2, PRTLS+2, PRTLQ+2, CHKLONG+2 |
| >> ZTREQ | PRTS+2*, PRTLS+2* |
| >> ZTRTN | PRT+6*, PRTL+7* |
| >> ZTSAVE( | SAVE+1*, SAVE+2* |
