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 |