ORY145 ;SLC/DAN ;4/5/02 07:10
Source file <ORY145.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
PTNM(IEN) | ;Return pt name or -1 if unable to determine
|
|
XREF(IEN,DG,NDG) | ;Update xrefs for TO field
|
|
FIXPPDG | ;This section will fix incorrect package pointer and display group problems.
|
|
INSTDT(PATCH) | ;Returns installation date patch first installed at site
|
|
FIXES | ;This section will add missing AE Xrefs from active orders
|
|
;Send results of cleanup in a mail message to initiator
|
||
GETIEN(STDT) | ;Find first IEN associated with given start date
|
|
CHKACT | ;Compares current action field with actual current action and updates if necessary
|
|
ADM(IEN,ENTERED) | ;Determine if patient was inpatient when order was entered
|
|
DQ | ;Enter here for queued task
|
Name | Field # of Occurrence |
---|---|
^%ZTLOAD | ORY145+15 |
^DIE | XREF+3 |
EN^DIQ1 | FIXPPDG+20, FIXPPDG+21 |
$$NMSP^ORCD | FIXES+9, FIXPPDG+17 |
SETALL^ORDD100 | CHKACT+5 |
ES^ORDD100A | FIXES+16 |
$$VALUE^ORX8 | FIXPPDG+25 |
^VADPT | PTNM+4 |
INP^VADPT | ADM+7 |
$$FMADD^XLFDT | FIXPPDG+3 |
$$NOW^XLFDT | FIXES+5 |
^XMD | MAIL+31 |
$$GET^XPAR | FIXES+4 |
MES^XPDUTL | ORY145+13, ORY145+16 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DIC(9.4 - [#9.4] | FIXPPDG+7, FIXPPDG+8, FIXPPDG+11 |
^OR(100 - [#100] | FIXES+6, FIXES+7, FIXES+8, FIXES+9, FIXES+10, FIXES+11, FIXES+13, FIXES+14, FIXES+17, FIXPPDG+14 , FIXPPDG+15, FIXPPDG+27*, FIXPPDG+28*, FIXPPDG+35*, FIXPPDG+36*, GETIEN+3, GETIEN+4, ADM+3, XREF+2!, CHKACT+2 , CHKACT+3, CHKACT+5* |
^ORD(100.98 - [#100.98] | FIXPPDG+9, FIXPPDG+10, FIXPPDG+12 |
^TMP("ORFIX" | DQ+2!, DQ+4!, FIXES+17*, FIXES+18*, FIXPPDG+27*, FIXPPDG+28*, FIXPPDG+29*, FIXPPDG+35*, FIXPPDG+36*, FIXPPDG+38* , FIXPPDG+39*, MAIL+11, MAIL+12, MAIL+20, MAIL+22, MAIL+24, MAIL+26, MAIL+28 |
^TMP("ORTXT" | DQ+4!, MAIL+6!, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+15*, MAIL+16* , MAIL+17*, MAIL+18*, MAIL+19*, MAIL+20*, MAIL+21*, MAIL+23*, MAIL+25*, MAIL+27*, MAIL+28*, MAIL+30* |
^XPD(9.7 - [#9.7] | INSTDT+2, INSTDT+3 |
Name | Line Occurrences |
---|---|
$$ADM | FIXPPDG+33 |
$$GETIEN | FIXPPDG+4 |
$$INSTDT | FIXPPDG+2 |
$$PTNM | FIXES+12, FIXPPDG+22 |
CHKACT | FIXES+10 |
FIXES | DQ+3 |
FIXPPDG | DQ+3 |
DQ+3 | |
XREF | FIXPPDG+29, FIXPPDG+38 |
Name | Field # of Occurrence |
---|---|
^( | GETIEN+4, CHKACT+3 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACT | CHKACT+1~, CHKACT+3*, CHKACT+4, CHKACT+5 |
ADMITTED | FIXPPDG+1~, FIXPPDG+33*, FIXPPDG+34, FIXPPDG+37, FIXPPDG+38 |
BADDG | FIXPPDG+1~, FIXPPDG+12*, FIXPPDG+13, FIXPPDG+19 |
BADPKG | FIXPPDG+1~, FIXPPDG+11*, FIXPPDG+13, FIXPPDG+19 |
CNT | FIXES+1~, FIXES+2*, FIXES+17*, FIXES+18, FIXPPDG+1~, FIXPPDG+6*, FIXPPDG+19*, FIXPPDG+39 |
CURACT | CHKACT+1~, CHKACT+2*, CHKACT+5 |
CURDT | FIXES+1~, FIXES+5*, FIXES+13 |
DA | FIXES+1~, FIXES+15*, FIXPPDG+1~, FIXPPDG+20*!, FIXPPDG+21*!, XREF+1~, XREF+3* |
DATE | FIXES+1~, FIXES+7*, FIXES+8, FIXPPDG+1~, FIXPPDG+2*, FIXPPDG+3*, FIXPPDG+4 |
DFN | ADM+2~, ADM+3*, ADM+4, ADM+5*, PTNM+1~, PTNM+3* |
DG | FIXPPDG+1~, FIXPPDG+18*, FIXPPDG+19, FIXPPDG+21, FIXPPDG+29, FIXPPDG+38, XREF~, XREF+2 |
>> DGN | FIXPPDG+21*, FIXPPDG+29, FIXPPDG+38 |
DIC | FIXPPDG+1~, FIXPPDG+20*!, FIXPPDG+21*! |
DIE | XREF+1~, XREF+3* |
DIK | FIXPPDG+1~ |
DIQ | FIXPPDG+20*!, FIXPPDG+21*! |
DONE | GETIEN+1~, GETIEN+2*, GETIEN+3, GETIEN+4* |
DR | FIXPPDG+1~, FIXPPDG+20*!, FIXPPDG+21*!, XREF+1~, XREF+3* |
DUZ | MAIL+4 |
EDG | FIXPPDG+1~, FIXPPDG+37*, FIXPPDG+38 |
ENTERED | FIXPPDG+1~, FIXPPDG+32*, FIXPPDG+33, ADM~, ADM+6 |
ERR | DQ+1~, FIXPPDG+5*, FIXPPDG+13*, MAIL+14, MAIL+17, MAIL+20 |
I | MAIL+1~, MAIL+7*, MAIL+8*, MAIL+9*, MAIL+10*, MAIL+11*, MAIL+12*, MAIL+13*, MAIL+15*, MAIL+16* , MAIL+17*, MAIL+18*, MAIL+19*, MAIL+20*, MAIL+21*, MAIL+23*, MAIL+25*, MAIL+27, MAIL+28, MAIL+29* , MAIL+30*, CHKACT+1~, CHKACT+3* |
IDG | FIXPPDG+1~, FIXPPDG+9*, FIXPPDG+13, FIXPPDG+37 |
IEN | FIXES+1~, FIXES+8*, FIXES+9, FIXES+10, FIXES+11, FIXES+13, FIXES+14, FIXES+15, FIXES+17, FIXPPDG+1~ , FIXPPDG+4*, FIXPPDG+5, FIXPPDG+14*, FIXPPDG+15, FIXPPDG+25, FIXPPDG+27, FIXPPDG+28, FIXPPDG+29, FIXPPDG+33, FIXPPDG+35 , FIXPPDG+36, FIXPPDG+38, GETIEN+1~, GETIEN+2*, GETIEN+4*, GETIEN+5, INSTDT+1~, INSTDT+2*, INSTDT+3, ADM~ , ADM+3, PTNM~, PTNM+2, PTNM+3, XREF~, XREF+2, XREF+3, CHKACT+2, CHKACT+3, CHKACT+5 |
IPKG | FIXPPDG+1~, FIXPPDG+7*, FIXPPDG+13, FIXPPDG+36 |
>> J | MAIL+26*, MAIL+27, MAIL+28 |
LASTRUN | FIXES+1~, FIXES+4*, FIXES+5 |
NDG | XREF~, XREF+3 |
ODG | FIXPPDG+1~, FIXPPDG+10*, FIXPPDG+13, FIXPPDG+29, FIXPPDG+37 |
OPKG | FIXPPDG+1~, FIXPPDG+8*, FIXPPDG+13, FIXPPDG+28 |
OR0 | FIXPPDG+1~, FIXPPDG+15*, FIXPPDG+16, FIXPPDG+18, FIXPPDG+22, FIXPPDG+24, FIXPPDG+32, XREF+2 |
ORARRAY | FIXPPDG+1~, FIXPPDG+20!, FIXPPDG+21! |
ORARRAY( | FIXPPDG+20, FIXPPDG+21 |
>> ORD | MAIL+24*, MAIL+25, MAIL+26, MAIL+28 |
ORMSG | ORY145+7~, ORY145+13 |
ORMSG(1 | ORY145+8* |
ORMSG(2 | ORY145+9* |
ORMSG(3 | ORY145+10* |
ORMSG(4 | ORY145+11* |
ORMSG(5 | ORY145+12* |
PAT | FIXES+1~, FIXES+3*, FIXES+6*, FIXES+7, FIXES+8, FIXES+12, MAIL+22*, MAIL+23, MAIL+24, MAIL+26 , MAIL+28 |
PATCH | INSTDT~, INSTDT+2 |
PCLASS | FIXPPDG+1~, FIXPPDG+24*, FIXPPDG+27, FIXPPDG+35 |
PKG | FIXPPDG+1~, FIXPPDG+16*, FIXPPDG+17, FIXPPDG+19, FIXPPDG+20, FIXPPDG+28, FIXPPDG+36 |
>> PKGN | FIXPPDG+20*, FIXPPDG+28, FIXPPDG+36 |
PTNAME | FIXES+1~, FIXES+12*, FIXES+17, FIXPPDG+1~, FIXPPDG+22*, FIXPPDG+23, FIXPPDG+27, FIXPPDG+28, FIXPPDG+29, FIXPPDG+35 , FIXPPDG+36, FIXPPDG+38 |
STDT | GETIEN~, GETIEN+3*, GETIEN+4 |
STOPDT | FIXES+1~, FIXES+13*, FIXES+14, FIXES+17 |
TYPE | FIXPPDG+1~, FIXPPDG+25*, FIXPPDG+26, FIXPPDG+31 |
U | FIXES+9, FIXES+13, FIXPPDG+16, FIXPPDG+18, FIXPPDG+22, FIXPPDG+24, FIXPPDG+27, FIXPPDG+28, FIXPPDG+32, FIXPPDG+35 , FIXPPDG+36, FIXPPDG+39, MAIL+11, MAIL+12, INSTDT+3, ADM+3, XREF+2, CHKACT+2, CHKACT+3, CHKACT+5 |
VADM | PTNM+1~ |
VADM(1 | PTNM+5, PTNM+6 |
VAIN | ADM+2~ |
VAIN(1 | ADM+8 |
VAINDT | ADM+2~, ADM+6* |
XMDUZ | MAIL+1~, MAIL+3* |
XMSUB | MAIL+1~, MAIL+2* |
XMTEXT | MAIL+1~, MAIL+5* |
XMY | MAIL+1~ |
XMY( | MAIL+4* |
>> ZTDESC | ORY145+14* |
>> ZTIO | ORY145+14* |
>> ZTRTN | ORY145+14* |
>> ZTSAVE("DUZ" | ORY145+14* |
ZTSK | ORY145+7~, ORY145+16 |