©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
DIPR162 ;O-OIFO/GMB-Correct NOW function ;8/31/2009
Source file <DIPR162.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| REPLACE(FUNC,VAL,NODE,CODE) | ;
|
|
| TMCHK | ; Check to see if TaskMan is still running
|
|
| CHKSTOP | ;
; Check XPDENV 0 = Loading; 1 = Installing |
|
| ENV | ; Environmental Check
|
|
| LINH | ; Check to see if Logons are Inhibited
|
|
| POSTINIT | ; Post-Init
|
|
| INSCHK | ; Do Checks During Install Only
|
|
| FIND | ; Find and replace NOW and TODAY code in triggers
|
| Name | Field # of Occurrence |
|---|---|
| GETENV^%ZOSV | LINH+1 |
| $$TM^%ZTLOAD | TMCHK+1 |
| BMES^XPDUTL | ENV+1, ENV+3, TMCHK+4, LINH+4, POSTINIT+1, POSTINIT+2, POSTINIT+11, POSTINIT+13, POSTINIT+16, POSTINIT+18 , POSTINIT+21, FIND+1, FIND+14, REPLACE+9 |
| MES^XPDUTL | INSCHK+2, INSCHK+3, INSCHK+4, INSCHK+5, INSCHK+6, INSCHK+7, REPLACE+10, REPLACE+11, REPLACE+16 |
| $$OSNUM^ZTMGRSET | POSTINIT+4 |
| MOVE^ZTMGRSET | POSTINIT+4 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(14.5 - [#14.5] | LINH+2 |
| ^%ZTSCH("WAIT" | TMCHK+2 |
| ^DD( | FIND+4, FIND+6, FIND+8, FIND+10, FIND+11, FIND+12, FIND+13, REPLACE+3, REPLACE+4, REPLACE+15* |
| ^DD("FUNC" - [#.5] | POSTINIT+10, POSTINIT+14*, POSTINIT+15, POSTINIT+19* |
| Name | Line Occurrences |
|---|---|
| CHKSTOP | ENV+2 |
| FIND | POSTINIT+20 |
| REPLACE | FIND+10, FIND+11, FIND+12, FIND+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %D | POSTINIT+3~, POSTINIT+4* |
| %S | POSTINIT+3~, POSTINIT+4* |
| CNT | FIND+2~, FIND+3*, FIND+14, REPLACE+8* |
| CODE | REPLACE~ |
| CODE("AFTER" | REPLACE+14 |
| CODE("BEFORE" | REPLACE+5, REPLACE+12, REPLACE+13 |
| FILE | FIND+2~, FIND+3*, FIND+4*, FIND+6, FIND+8, FIND+10, FIND+11, FIND+12, FIND+13, REPLACE+3 , REPLACE+4, REPLACE+9, REPLACE+15 |
| FLAG | FIND+2~, FIND+9*, REPLACE+6, REPLACE+7* |
| FLD | FIND+2~, FIND+5*, FIND+6*, FIND+8, FIND+10, FIND+11, FIND+12, FIND+13, REPLACE+3, REPLACE+4 , REPLACE+9, REPLACE+15 |
| FUNC | REPLACE~, REPLACE+10 |
| IEN | FIND+2~, FIND+7*, FIND+8*, FIND+10, FIND+11, FIND+12, FIND+13, REPLACE+3, REPLACE+4, REPLACE+9 , REPLACE+15 |
| LINE | FIND+2~, REPLACE+1~, REPLACE+4*, REPLACE+5, REPLACE+11, REPLACE+12, REPLACE+13, REPLACE+14*, REPLACE+15, REPLACE+16 |
| NODE | REPLACE~, REPLACE+2*, REPLACE+3*, REPLACE+4, REPLACE+10, REPLACE+15 |
| NOWX | POSTINIT+5~, FIND+10, FIND+12 |
| NOWX("AFTER" | POSTINIT+7*, POSTINIT+10, POSTINIT+14 |
| NOWX("BEFORE" | POSTINIT+6* |
| P1 | REPLACE+1~, REPLACE+12*, REPLACE+14 |
| P2 | REPLACE+1~, REPLACE+13*, REPLACE+14 |
| SCR | POSTINIT+3~, POSTINIT+4* |
| START | REPLACE+1~, REPLACE+2* |
| STOP | REPLACE+1~, REPLACE+2*, REPLACE+3 |
| TODAYX | POSTINIT+5~, FIND+11, FIND+13 |
| TODAYX("AFTER" | POSTINIT+9*, POSTINIT+15, POSTINIT+19 |
| TODAYX("BEFORE" | POSTINIT+8* |
| VAL | REPLACE~ |
| >> X | TMCHK+1*, TMCHK+2 |
| >> XPDENV | CHKSTOP+2 |
| >> Y | LINH+2 |
| ZTOS | POSTINIT+3~, POSTINIT+4* |