©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
GMRCUTIL ;SLC/DCM - Utilities for formatting word procesing fields and setting into ^TMP("GMRCR" globals for use by List Manager routines ;4/30/98 10:47
Source file <GMRCUTIL.m>
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 3 | GMRCEDT1 GMRCPRP GMRCSLM4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GSET(LN,GLOB,J1,FLG) | ;Set the word processing formatted local array WP() fields into the ^TMP Global.
; LN: Line in the ^TMP global where the data is to be placed. LN is ; incremented and passed back to the calling routine so that it ; can set data into the next global node as needed. ; GLB: The ^TMP global where the data is to be placed.(i.e., ; ^TMP("GMRCR",$J,"CS"). ; J1: The last entry in the WP array. It is passed back to the ; calling routine so that WP(J1) can be concatenated to the next ; line, if necessary ; FLG: If the first line of the the data in WP needs to be formatted ; differently than succeeding lines, FLG signals this fact by ; being passed as FLG=1; otherwise, FLG is passed as FLG=0. |
|
| WPFMT(LINE,GMRCSL) | ;FORMAT GLOBALS TO PRINT OUT IN A WORD PROCESSING FORMAT
; LINE: The line of text that needs to be broken into 80 column ; or less lines for printing on the screen. ; GMRCSL: This is the desired line length, to break LINE into; i.e. ; 60, 70, or 80 columns (or smaller/larger) for screen display. |
|
| WPSET(GLOBAL,TMPGBL,LINE,LNO,TAB,FLG) | ;Set the lines into a the ^TMP global in word-processing format.
; GLOBAL: Global where data is comming from. ; TMPGBL: Global where formatted data is being placed ; LINE: Line is passed because it may contain some data already. ; If it does, it is concatenated to the data from GLOBAL. ; LNO: This is a counter to where the next line of data should ; be set in TMPGLOBAL. It is incremented and passed back ; to the calling routine so it knows where the next piece ; of data is to be placed in TMPGBL. ; TAB: A string of spaces concatenated to the data in TMPGBL ; that acts like a tab character. TAB is passed to GSET. ; FLG: If the first line of data is not tabbed, then FLG is ; passed as FLG=1 and no tab character is concatenated to ; this line. If FLG=0, then the data is tabbed. |
| Name | Line Occurrences |
|---|---|
| GSET | WPSET+16, WPSET+17, WPSET+18, WPSET+25 |
| WPFMT | WPSET+16, WPSET+17, WPSET+18, WPSET+25 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BKLN | WPFMT+5, WPFMT+6*, WPFMT+7*, WPFMT+9! |
| DTA | GSET+12*, GSET+13! |
| FLG | GSET~, GSET+12*, WPSET~, WPSET+16, WPSET+17, WPSET+18, WPSET+24*, WPSET+25* |
| GLOB | GSET~, GSET+12 |
| GLOBAL | WPSET~, WPSET+15, WPSET+16, WPSET+17, WPSET+18, WPSET+19, WPSET+20, WPSET+25 |
| GMRCSL | WPFMT~, WPFMT+6, WPFMT+7 |
| I | WPFMT+6*, WPFMT+9! |
| J | GSET+12*, GSET+13! |
| J1 | GSET~, GSET+12*, WPSET+15*, WPSET+16, WPSET+17, WPSET+18, WPSET+20, WPSET+21, WPSET+25, WPSET+28! |
| LIN | WPFMT+5*, WPFMT+9! |
| LINE | WPFMT~, WPFMT+5, WPFMT+6*, WPFMT+7*, WPSET~, WPSET+15*, WPSET+16*, WPSET+17*, WPSET+18*, WPSET+19* , WPSET+20*, WPSET+21*, WPSET+22*, WPSET+23, WPSET+24*, WPSET+25*, WPSET+26* |
| LINE(0 | WPSET+24* |
| LN | GSET~, GSET+12*, WPSET+14~, WPSET+15*, WPSET+16, WPSET+17*, WPSET+18*, WPSET+19, WPSET+20, WPSET+25 |
| LN1 | WPSET+15*, WPSET+17*, WPSET+28! |
| LNO | WPSET~, WPSET+16*, WPSET+17, WPSET+18, WPSET+20*, WPSET+21*, WPSET+24*, WPSET+25* |
| TAB | GSET+12, WPSET~ |
| TMPGBL | WPSET~, WPSET+16, WPSET+17, WPSET+18, WPSET+24, WPSET+25 |
| WP | WPFMT+5!*, WPSET+28! |
| WP( | GSET+12, WPFMT+5*, WPSET+20, WPSET+21, WPSET+25 |
| WRD | WPFMT+6*, WPFMT+9! |