©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
VALM1 ;ALB/MJK - Screen Malipulation Utilities ;08:17 PM 6 Dec 1992 [ 09/26/2002 11:33 AM ]
Source file <VALM1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FTR | ; -- footer to print
|
|
| PRTQ | ||
| FDTTM(Y) | ; -- return formatted date/time
; input: Y := internal date/time ; output: [returned] := formatted date and time |
|
| FDATE(Y) | ; -- return formatted date
; input: Y := field name ; output: [returned] := formatted date only |
|
| LOWER(X) | ;
|
|
| PRT | ; -- prt screen (PS)
|
|
| ERASE | ;
|
|
| FTIME(Y) | ; -- return formatted date/time
; input: Y := internal date/time ; output: [returned] := formatted date and time |
|
| 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 |
|
| PRTS | ;
|
|
| FULL | ; set full scrolling region
|
|
| FLDUPD(STR,FLD,LINE,CON,COFF) | ; -- update entry and field on screen
; STR := string to insert ; FLD := col name ; LINE := entry # in list |
|
| CLEAR | ; -- clear screen
|
|
| PAUSE | ;
|
|
| RANGE | ; -- change date range
|
|
| PRTLS | ;
|
|
| PRTLQ | ||
| UPPER(X) | ; -- convert to uppercase
|
|
| PRTL | ; -- prt list (PL)
|
|
| NOW() | ; -- return now
|
|
| 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) |
|
| SETFLD(STR,VAR,FLD) | ; -- set field in var
; input: STR := string to insert ; VAR := destination string ; FLD := col name |
|
| SAVE | ; -- save to queue
|
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | FTIME+3, FDTTM+5 |
| NOW^%DTC | NOW+1 |
| ^%ZIS | PRT+4, PRTL+5 |
| ^%ZISC | PRTQ, PRTLQ |
| ^%ZTLOAD | PRT+8, PRTL+9 |
| ^DIR | PAUSE+1 |
| $$CAPTION^VALM | PRTS+2, PRTLS+3 |
| HDR^VALM | PRTS+3, PRTLS+6, PRTLS+7 |
| LBAR^VALM | PRTS+3 |
| LIST^VALM | PRTS+3 |
| TBAR^VALM | PRTS+3, PRTLS+6, PRTLS+7 |
| TERM^VALM0 | FULL+2, PRTQ, PRTLQ |
| RANGE^VALM11 | RANGE+1 |
| $$GET^VALM4 | PRTLS+7 |
| 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 |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZOSF("RM" | FULL+4, PRT+5, PRTQ, PRTL+6, PRTLQ |
| ^ORD(101 - [#101] | PRTL+1 |
| Name | Line Occurrences |
|---|---|
| $$FTIME | NOW+2 |
| $$SETSTR | SETFLD+4 |
| CLEAR | PRT+5, PRTL+6 |
| ERASE | CLEAR+1 |
| FTR | PRTS+3, PRTLS+7, PRTLS+8 |
| FULL | CLEAR+1, PRT+3, PRTL+4 |
| INSTR | FLDUPD+5 |
| PAUSE | FTR+2 |
| PRTLQ | PRTL+9, PRTLS+7 |
| PRTLS | PRTL+7 |
| PRTQ | PRT+4, PRT+8, PRTL+1, PRTL+5 |
| PRTS | PRT+6 |
| SAVE | PRT+8, PRTL+9 |
| 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 | PAUSE+1! |
| DIR(0 | PAUSE+1* |
| >> DX | INSTR+8*, INSTR+9* |
| >> DY | INSTR+8*, INSTR+9* |
| ERASE | INSTR~, INSTR+8 |
| FLD | FLDUPD~, FLDUPD+5, SETFLD~, SETFLD+4 |
| I | LOWER+1~, LOWER+3* |
| IO | PRT+5, PRTS+3, PRTL+6, PRTLS+6 |
| IO("Q" | PRT+5, PRT+6, PRTL+6, PRTL+7 |
| IO(0 | PRT+5, PRTL+6 |
| >> IOBM | FULL+3* |
| IOF | CLEAR+1 |
| IOM | PRTLS+2 |
| ION | PRT+7, PRTL+8 |
| >> IORC | INSTR+10, FULL+3 |
| >> IOSC | INSTR+7, FULL+3 |
| >> IOSGR0 | ERASE+1 |
| IOSL | FULL+3, PRTLS+3, PRTLS+7 |
| IOST | FTR+2 |
| >> IOSTBM | FULL+2, FULL+3 |
| >> IOTM | FULL+3* |
| >> IOXY | INSTR+8, INSTR+9 |
| L | SETSTR~, SETSTR+6 |
| LENGTH | INSTR~, INSTR+8 |
| LINE | FLDUPD~, FLDUPD+5 |
| >> POP | PRT+4, PRTL+5 |
| S | SETSTR~, SETSTR+6 |
| STR | INSTR~, INSTR+9, FLDUPD~, FLDUPD+5, SETFLD~, SETFLD+4 |
| U | FLDUPD+5, SETFLD+4 |
| V | SETSTR~, SETSTR+6 |
| >> VALM("HDR" | PRTLS+6* |
| >> VALM("LINES" | PRTLS+2, PRTLS+3*, PRTLQ+1* |
| >> VALM("PRT" | PRTL+1 |
| >> VALM("TM" | FLDUPD+5 |
| >> VALMAR | SAVE+2, PRTLS+7 |
| >> VALMBCK | PRT+2*, PRTL+3* |
| >> VALMBG | FLDUPD+5 |
| VALMCAP | PRTS+1~, PRTS+2*, PRTLS+1~, PRTLS+3* |
| VALMCC | PRT+3, PRTS+1~, PRTS+2*, PRTL+4, PRTLS+1~, PRTLS+3* |
| >> VALMCNT | PRTLS+7 |
| >> VALMDDF( | FLDUPD+5, SETFLD+4 |
| VALMESC | PRT+1~, FTR+1*, FTR+2*, PRTL+2~, PRTLS+1~, PRTLS+7 |
| VALMI | PRTLS+1~, PRTLS+7* |
| VALMLNS | PRTLS+1~, PRTLS+2*, PRTLQ+1 |
| VALMPGE | PRTLS+1~, PRTLS+3*, PRTLS+7* |
| VALMSAV | PRTLS+6~* |
| >> VALMSGR | ERASE+1 |
| VALMWD | FULL+2, FULL+4, PRTLS+1~, PRTLS+2* |
| VALMY | FDTTM+3~, FDTTM+4*, FDTTM+6 |
| VAR | SETFLD~, SETFLD+4 |
| X | INSTR~, INSTR+8, INSTR+9, SETSTR~, SETSTR+6, FULL+4*, PRT+5*, PRTQ*, SAVE+1*, SAVE+2* , PRTL+1*, PRTL+6*, PRTLS+7*, PRTLQ*, UPPER~, UPPER+1, LOWER~, LOWER+2 |
| Y | INSTR~, INSTR+8, INSTR+9, FDATE~, FDATE+3, FTIME~, FTIME+4, FDTTM~, FDTTM+4, FDTTM+6 , FTR+2, LOWER+1~, LOWER+2*, LOWER+3*, LOWER+4 |
| Z | LOWER+1~ |
| >> ZTDESC | PRT+7*, PRTL+8* |
| >> ZTIO | PRT+7*, PRTL+8* |
| >> ZTQUEUED | PRTQ, PRTLQ |
| >> ZTRTN | PRT+7*, PRTL+8* |
| >> ZTSAVE( | SAVE+1*, SAVE+2* |