©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
PRCH69EN ;WISC/DJM-PATCH 69 ENVIRONMENT CHECK ; [9/28/98 11:46am]
Source file <PRCH69EN.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| V | ;;5.0;IFCAP;**69**;4/21/95
|
|
| START | ; This is the Environment Check routine for patch 69. This routine
; will check file 440 for any NAME field that contains only leading ; stars or leading spaces before any other character or contains ; nothing (the field has no data). |
|
| MSG | ;;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PRC(440 - [#440] | START+11, START+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| A | START+8~, START+12*, START+15, START+17*, START+19 |
| FLAG | START+8~, START+9*, START+21*, START+24 |
| >> I | START+29* |
| >> LINE | START+29* |
| MSG | START+8~ |
| X | START+8~, START+10*, START+11*, START+12, START+20 |
| X1 | START+8~, START+15*, START+16 |
| X1C | START+8~, START+14, START+16*, START+17 |
| >> XPDENV | START+7 |
| >> XPDQUIT | START+33* |
| Name | Field # of Occurrence |
|---|---|
| $T(MSG+I | START+29 |