©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
XPDUTL ;SFISC/RSD - KIDS utilities ;10/15/2008
Source file <XPDUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PARCP(XPD,XPDF) | ;returns parameters of check point
|
|
| LAST(PKG,VER,REL) | ;returns last patch applied for a Package, PATCH^DATE
|
|
| COMCP(XPD) | ;complete check point, returns 0=error or date/time
|
|
| OPTDE(XPDN,XPD) | ;enable/disable options, return 1 for success
|
|
| CURCP(XPDF) | ;returns current check point
|
|
| BUILD(XPDN,XPD) | ;check if a build exists, return 1 for success
|
|
| VERSION(X) | ;Get current version from Package file, X=package name or
|
|
| RTNLOG(X) | ;Enter/Update routine in the Routine File
|
|
| NEWCP(XPD,XPDC,XPDP) | ;create new check point, returns 0=error or ien
|
|
| VERCP(XPD) | ;verify check point, returns 1=completed, 0=not
|
|
| PRODE(XPDN,XPD) | ;enable/disable protocols, return 1 for success
|
|
| WP(X) | ;X=global ref
|
|
| RTNUP(X,Y) | ;update routine action, X=routine, Y=action
|
|
| DICCP(X) | ;lookup check point, returns ien or 0
|
|
| UPCP(XPD,XPDP) | ;update check point, returns 0=error or ien
|
|
| PATCH(X) | ;return 1 if patch X was installed, X=aaaa*nn.nn*nnn
|
|
| MAILGRP(X) | ;Return mail group for package, X=package name or namespace
|
|
| MES(X) | ;record message, X=message or an array passed by reference
|
|
| BMES(X) | ;add blank line before message
|
|
| LKPKG(X) | ;Return Package ien, X=package name or namespace
|
|
| VER(X) | ;returns version number from Build file, X=build name
|
|
| INSTALDT(INSTALL,RESULT) | ;returns number of installs, 0 if not installed or doesn't exist
|
|
| STATUS(IEN) | ;returns status from Install File, IEN=Install File IEN
|
|
| PKG(X) | ;returns package name from Build file, X=build name
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | VERSION+4, LAST+5, LAST+6, LAST+8, PATCH+5, PATCH+7, PATCH+8, LKPKG+4, LKPKG+5, LKPKG+6 |
| ^DIC(9.8 - [#9.8] | RTNLOG+2 |
| ^XPD(9.7 - [#9.7] | STATUS+1, STATUS+2, INSTALDT+7, INSTALDT+8, INSTALDT+9, DICCP+3 |
| ^XTMP("XPDI" | RTNUP+4, RTNUP+7, RTNUP+10* |
| Name | Line Occurrences |
|---|---|
| $$DICCP | UPCP+4, COMCP+3, VERCP+4, PARCP+4 |
| $$LKPKG | VERSION+3, LAST+4, PATCH+4, MAILGRP+2 |
| MES | BMES+3 |
| Name | Field # of Occurrence |
|---|---|
| ^( | LAST+8, RTNUP+4* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PATCH+3~, PATCH+8*, PATCH+9, NEWCP+3~, NEWCP+6*, WP+1~, WP+3*, MES+1~, MES+2*, MES+4* , BMES+1~, BMES+2*, RTNUP+2~, RTNUP+10 |
| CNT | INSTALDT+3~, INSTALDT+5*, INSTALDT+9*, INSTALDT+10, INSTALDT+11 |
| DA | MAILGRP+1~, MAILGRP+2*, MAILGRP+4, LKPKG+2~, LKPKG+3, LKPKG+4*, LKPKG+5*, LKPKG+6*, LKPKG+7 |
| DATE | INSTALDT+3~, INSTALDT+8*, INSTALDT+9 |
| DIC | MAILGRP+1~, MAILGRP+3* |
| DIQ | MAILGRP+1~, MAILGRP+3* |
| DR | MAILGRP+1~, MAILGRP+3* |
| FDA | RTNLOG+1~ |
| FDA( | RTNLOG+3*, RTNLOG+5* |
| I | VERSION+2~, VERSION+3*, VERSION+4, PATCH+3~, PATCH+4*, PATCH+5, PATCH+7, PATCH+8 |
| IEN | STATUS~, STATUS+1, STATUS+2, INSTALDT+3~, INSTALDT+5*, INSTALDT+7*, INSTALDT+8, INSTALDT+9, RTNLOG+1~, RTNLOG+3* , RTNLOG+4*, RTNLOG+5 |
| INSTALL | INSTALDT~, INSTALDT+6, INSTALDT+7 |
| J | PATCH+3~, PATCH+5*, PATCH+7, PATCH+8 |
| LATEST | LAST+3~, LAST+7*, LAST+8, LAST+10*, LAST+11 |
| PATCH | LAST+3~, LAST+7*, LAST+10*, LAST+11 |
| PKG | LAST~, LAST+4 |
| PKGIEN | LAST+3~, LAST+4*, LAST+5, LAST+6, LAST+8 |
| REL | LAST~, LAST+9 |
| RESULT | INSTALDT~, INSTALDT+4!, INSTALDT+5*, INSTALDT+10* |
| RESULT( | INSTALDT+9* |
| SUBIEN | LAST+3~, LAST+7*, LAST+8* |
| U | STATUS+2, LAST+8, LAST+9, LAST+10, LAST+11, INSTALDT+8, RTNUP+4, RTNUP+10, PRODE+4, OPTDE+4 |
| VER | LAST~, LAST+5*, LAST+6 |
| VERIEN | LAST+3~, LAST+6*, LAST+8 |
| X | VERSION~, VERSION+3, VER~, VER+1, VER+2, PKG~, PKG+1, PATCH~, PATCH+2, PATCH+4 , PATCH+5*, PATCH+7, PATCH+8, PATCH+9, WP~, WP+2, WP+3, WP+4, MES~, MES+2! , BMES~, BMES+2!, BMES+3, RTNUP~, RTNUP+4, RTNLOG~, RTNLOG+2, RTNLOG+5, DICCP~, DICCP+1 , DICCP+3, DICCP+4, MAILGRP~, MAILGRP+2, LKPKG~, LKPKG+1, LKPKG+3, LKPKG+4, LKPKG+5, LKPKG+6 |
| X( | MES+4 |
| X(1 | MES+2*, BMES+2* |
| X(2 | BMES+2* |
| XD | MAILGRP+1~ |
| XD( | MAILGRP+4 |
| XPD | NEWCP~, NEWCP+2, NEWCP+6, NEWCP+7, UPCP~, UPCP+4, COMCP~, COMCP+3, VERCP~, VERCP+4 , PARCP~, PARCP+4, PRODE~, PRODE+3*, PRODE+4, PRODE+5, OPTDE~, OPTDE+3*, OPTDE+4, OPTDE+5 , BUILD~, BUILD+2*, BUILD+3 |
| >> XPDA | NEWCP+6, NEWCP+7, UPCP+6, COMCP+5, VERCP+6, PARCP+6, WP+4, MES+5, RTNUP+4, RTNUP+7 , RTNUP+10, DICCP+3, DICCP+4 |
| XPDC | NEWCP~, NEWCP+8 |
| >> XPDCHECK | CURCP+2 |
| >> XPDCHECK(0 | CURCP+2 |
| XPDCP | NEWCP+5, UPCP+4, COMCP+3, VERCP+4, PARCP+3~*, PARCP+4, DICCP+3 |
| XPDD | COMCP+2~, COMCP+5*, COMCP+7 |
| XPDF | NEWCP+3~, NEWCP+7*, NEWCP+8, NEWCP+9, UPCP+2~, UPCP+6*, UPCP+7, PARCP~, PARCP+3, CURCP~ , CURCP+2 |
| XPDI | NEWCP+3~, NEWCP+5*, NEWCP+6, NEWCP+7, NEWCP+8, NEWCP+9, UPCP+2~, UPCP+4*, UPCP+7, COMCP+2~ , COMCP+3*, COMCP+5, VERCP+3~, VERCP+4*, VERCP+6, PARCP+2~, PARCP+4*, PARCP+6, DICCP+4 |
| XPDJ | NEWCP+3~, UPCP+2~, COMCP+2~ |
| XPDJ( | NEWCP+7*, NEWCP+8*, NEWCP+9*, UPCP+7*, COMCP+5* |
| XPDN | PRODE~, PRODE+2, PRODE+4, OPTDE~, OPTDE+2, OPTDE+4, BUILD~, BUILD+2 |
| XPDP | NEWCP~, NEWCP+9, UPCP~, UPCP+7 |
| >> XPDSET | PRODE+4, OPTDE+4 |
| >> XPDT("NM" | BUILD+2 |
| XPDY | NEWCP+3~, UPCP+2~, UPCP+4*, UPCP+5, UPCP+6, UPCP+9, COMCP+2~, COMCP+3*, COMCP+4, COMCP+5 , VERCP+3~, VERCP+4*, VERCP+5, VERCP+6, PARCP+2~, PARCP+4*, PARCP+5, PARCP+6 |
| XPDY(1 | NEWCP+11 |
| Y | LAST+3~, LAST+8*, LAST+9, LAST+10, RTNUP~, RTNUP+4, RTNUP+7*, RTNUP+10, RTNLOG+1~, RTNLOG+2* , RTNLOG+3, RTNLOG+4, DICCP+3*, DICCP+4*, DICCP+5 |