LR7OAPMG ;DSS/FHS - INBOUND CPRS MESSAGE HANDLER ;09/16/16 09:46
Source file <LR7OAPMG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| AP1(MSG,LRAP1) | ;Entry point to process CPRS AP orders
|
|
| AP1LOAD | ;Call ZTLOAD with LRCNT value
|
|
| TASKAP1 | ;Entry point for TASK
|
|
| GETSPEC(ORIFN,RET) | ;Retrieve Spec Description/Specimen/Sample
|
|
| ZAPLOOK(LRAOE) | ; Pointer Lookup into a multiple
|
|
| DD | ;Get the Data Dictionary values
|
|
| ID(ORIFN) | ;This is the entry point to extract CPRS user response for at CPRS AP Window
|
|
| ORITEM(ORIFN) | ;Return the ^LAB(60,IEN orderable item for an CPRS Order
|
|
| APSP69(LRODT,LRSN,LRSPDATA) | ;Load AOE Specimen/Sample into ^LRO(69,DT,1,LRSN,
|
|
| 69 | ; Load LRAPDATA(INSTANCE,"NAME") into ^LRO(69,LRODT,1,LRSN
|
|
| LOOK(LRTST,LRSPEC,RET) | ;Find CPRS SCREEN pointer
; LROUT(TEST,AP)=CPRS Screen # |
|
| LOADIAG(LRODT,LRSN,LRDATA) | ;Load CPRS Dialog into ^LRO(69
|
|
| DIAG(LRORD,LRSN) | ||
| BH | ;
|
|
| PO | ||
| OF | ||
| PD | ||
| ORDATA(ORIFN,LRVAL) | ;Get data from CPRS Dialog fields
|
|
| FILDIA(LRODT,LRSN,FLD,ARRAY) | ;File CPRS AP Dialog into ^LRO(69,LRODT,1,LRSN
|
|
| TESTAP1 | ;
|
|
| ASKORDER | ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTLOAD | AP1LOAD+5 |
| ^DIC | ZAPLOOK+3 |
| UPDATE^DIE | 69+14, LOADIAG+12 |
| WP^DIE | LOADIAG+3, LOADIAG+4, LOADIAG+5, LOADIAG+6, FILDIA+4 |
| $$GET1^DIQ | TASKAP1+11, ORITEM+5, ORITEM+8, BH+3, PO, OF, PD, ORDATA+4 |
| ^DIR | ASKORDER+6 |
| ORDER^LROS | ASKORDER+14 |
| PT^LRX | ASKORDER+13 |
| $$FMADD^XLFDT | AP1+14 |
| $$FMTE^XLFDT | AP1+10, AP1+11 |
| $$NOW^XLFDT | AP1+10, AP1+11 |
| ^XUP | TESTAP1+2 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | ORITEM+9, LOOK+14, LOOK+16, LOOK+17, LOOK+20 |
| ^LAB(69.71 - [#69.71] | DD+2, DD+3, LOOK+18, LOOK+21 |
| ^LRO(69 - [#69] | ASKORDER+9, ASKORDER+10, ASKORDER+12 |
| ^OR(100 - [#100] | GETSPEC+7, GETSPEC+9, GETSPEC+10, GETSPEC+12, GETSPEC+13, GETSPEC+15, GETSPEC+16, ID+8, ID+10, ID+11 , ID+12, ID+13, ID+14, ID+15, ID+16, ID+17, ID+18, ID+19, ID+20, ID+21 , ID+22, ID+23 |
| ^ORD(101.43 - [#101.43] | ORITEM+7 |
| ^TMP("LRAOE" | TASKAP1+3! |
| ^TMP("LRAP1" | TESTAP1+3! |
| ^XTMP("LRAP1" | AP1+7*, AP1+8*, AP1+9*, AP1+10*, AP1+11*, AP1+12*, AP1+14*, TASKAP1+8*, TASKAP1+19* |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | ASKORDER+12 |
| ^(1 | GETSPEC+10, GETSPEC+13, GETSPEC+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ANS | ORITEM+2~, ORITEM+5, ORITEM+8, 69+2~, 69+10!, BH+1!, ORDATA+1!, ORDATA+5, FILDIA+1! |
| ANSY | 69+2~ |
| ARRAY | FILDIA~ |
| DA | ZAPLOOK+1!, ZAPLOOK+2* |
| DA(1 | ZAPLOOK+2* |
| DATA | TASKAP1+4~ |
| DIC | ZAPLOOK+1!, ZAPLOOK+2* |
| DIC(0 | ZAPLOOK+3* |
| DIR | ASKORDER+1~ |
| DIR("?" | ASKORDER+4*, ASKORDER+5* |
| DIR("A" | ASKORDER+3* |
| DIR(0 | ASKORDER+3* |
| DIRUT | ASKORDER+1~, ASKORDER+6 |
| DT | AP1+14 |
| DUZ | TASKAP1+10 |
| ERR | ORITEM+8!, 69+2~, LOADIAG+1!, BH+1!, ORDATA+1!, FILDIA+1! |
| ERR1 | 69+2~, 69+10!, 69+15 |
| ERR2 | 69+2~ |
| FDA | TASKAP1+4~, 69+2~, 69+10!, LOADIAG+1!, FILDIA+1! |
| FDA( | LOADIAG+11* |
| FDA(2 | 69+11*, 69+12*, 69+13*, LOADIAG+7*, LOADIAG+8*, LOADIAG+9*, LOADIAG+10* |
| FIL | BH+1!, BH+2*, ORDATA+1!, ORDATA+2*, FILDIA+3*, FILDIA+4 |
| FLD | BH+1!, BH+2*, ORDATA+1!, ORDATA+2*, ORDATA+4, FILDIA~, FILDIA+3*, FILDIA+4 |
| ID | TASKAP1+4~, ID+7!, ID+10*, ID+11, ID+12*, ID+13, ID+14*, ID+15, ID+16*, ID+17 , ID+18*, ID+19, ID+20*, ID+21, ID+22*, ID+23 |
| IEN | TASKAP1+4~, GETSPEC+5~, GETSPEC+9*, GETSPEC+10, ID+7!, ORITEM+2~, ORITEM+4*, ORITEM+5, 69+2~, 69+5* , 69+11, 69+12, 69+13, LOOK+12~, LOOK+13*, LOOK+17*, LOOK+18, LOOK+20*, LOOK+21, LOADIAG+2* , LOADIAG+3, LOADIAG+4, LOADIAG+5, LOADIAG+6, LOADIAG+7, LOADIAG+8, LOADIAG+9, LOADIAG+10, LOADIAG+11, BH+2* , BH+3, PO, OF, PD, ORDATA+3*, ORDATA+4, FILDIA+1!, FILDIA+2*, FILDIA+4 |
| IEN(1 | GETSPEC+12*, GETSPEC+13 |
| IEN(2 | GETSPEC+15*, GETSPEC+16 |
| IENX | TASKAP1+4~, DD+2*, DD+3, ID+7!, 69+2~, 69+6*, 69+7, 69+8, 69+9, 69+15 , LOOK+12~, LOOK+13*, LOOK+16, LOOK+18*, LOOK+20, LOOK+21*, LOOK+23 |
| IENXX | TASKAP1+4~ |
| INST | GETSPEC+5~, GETSPEC+6*, GETSPEC+10*, GETSPEC+11, GETSPEC+13*, GETSPEC+14, GETSPEC+16*, GETSPEC+17 |
| IOF | ASKORDER+14 |
| LRAOE | ZAPLOOK~, ZAPLOOK+2 |
| LRAP1 | AP1~, AP1+9, TASKAP1+9, TASKAP1+20!, TESTAP1+2* |
| LRCNT | AP1+6~, AP1+7*, AP1+8, AP1+9, AP1+10, AP1+11, AP1+12, TASKAP1+8, TASKAP1+19, TASKAP1+20! , TESTAP1+2* |
| LRCOL | TASKAP1+4~, 69+2~ |
| LRCOLROOT | TASKAP1+4~ |
| LRCOM | TASKAP1+4~ |
| LRDATA | LOADIAG~ |
| LRDFN | AP1+8, AP1+11, TASKAP1+4~, TASKAP1+5~, ASKORDER+12* |
| LRDUZ | TASKAP1+5~, TASKAP1+10* |
| LRFIELD | TASKAP1+4~ |
| LRFILE | TASKAP1+4~ |
| LRGLOB | TASKAP1+5~ |
| LRHEAD | TASKAP1+5~ |
| LRID | TASKAP1+6~, ID+7! |
| LRID( | DD+1, DD+3* |
| LRJ | TASKAP1+6~, TASKAP1+9*, 69+3~, 69+5* |
| LRNODE | 69+3~ |
| LRODT | TASKAP1+6~, TASKAP1+12*, TASKAP1+14, TASKAP1+17, APSP69~, 69+5, LOADIAG~, LOADIAG+2, FILDIA~, FILDIA+2 , ASKORDER+9*, ASKORDER+10, ASKORDER+12 |
| LRORD | TASKAP1+6~, TASKAP1+12*, DIAG~, BH+2, ASKORDER+8*, ASKORDER+9, ASKORDER+10 |
| LRQS | TASKAP1+6~ |
| LRREF | TASKAP1+6~, TASKAP1+11*, TASKAP1+12 |
| LRSAMP | TASKAP1+6~, 69+9*, 69+13 |
| LRSCR | TASKAP1+6~, TASKAP1+9*, DD+2, DD+3, LOADIAG+9 |
| LRSN | TASKAP1+7~, TASKAP1+12*, TASKAP1+14, TASKAP1+17, APSP69~, 69+5, LOADIAG~, LOADIAG+2, DIAG~, BH+2 , FILDIA~, FILDIA+2, ASKORDER+10*, ASKORDER+11, ASKORDER+12 |
| LRSP | TASKAP1+7~, 69+2~, 69+8*, 69+12 |
| LRSPCOM | TASKAP1+7~, 69+7*, 69+11 |
| LRSPCOMROOT | TASKAP1+7~ |
| LRSPDATA | TASKAP1+7~, TASKAP1+13, TASKAP1+14, APSP69~ |
| LRSPDATA( | 69+6, 69+7, 69+8, 69+9 |
| LRSPEC | LOOK~, LOOK+20 |
| LRSPROOT | TASKAP1+7~ |
| LRTST | LOOK~, LOOK+14, LOOK+16, LOOK+17, LOOK+20 |
| LRTXT | TASKAP1+7~, DD+1*, DD+2, DD+3 |
| LRVAL | ORDATA~, ORDATA+2*, ORDATA+5* |
| LRX | GETSPEC+5~, GETSPEC+18 |
| LRX( | GETSPEC+11*, GETSPEC+14*, GETSPEC+17* |
| LRXSS | TASKAP1+7~, TASKAP1+9*, LOADIAG+8 |
| MSG | AP1~, AP1+12 |
| NODE | 69+2~ |
| ORIFN | AP1+8, AP1+10, TASKAP1+9*, TASKAP1+11, TASKAP1+13, TASKAP1+15, TASKAP1+20!, GETSPEC~, GETSPEC+7, GETSPEC+9 , GETSPEC+10, GETSPEC+12, GETSPEC+13, GETSPEC+15, GETSPEC+16, ID~, ID+8, ID+10, ID+11, ID+12 , ID+13, ID+14, ID+15, ID+16, ID+17, ID+18, ID+19, ID+20, ID+21, ID+22 , ID+23, ORITEM~, ORITEM+3*, ORITEM+4, ORDATA~, ORDATA+3, TESTAP1+2* |
| RET | GETSPEC~, GETSPEC+6*, GETSPEC+7*, GETSPEC+18*, ORITEM+2~, ORITEM+4*, ORITEM+6, ORITEM+9*, ORITEM+10, LOOK~ , LOOK+13!*, LOOK+14*, LOOK+16*, LOOK+22*, BH+2* |
| TMP | TASKAP1+7~, TASKAP1+17, ID+7! |
| TMP("CL" | ID+11*!, LOADIAG+3 |
| TMP("OP" | ID+13*!, LOADIAG+5 |
| TMP("PO" | ID+15*!, LOADIAG+6 |
| TMP("PR" | ID+17*!, LOADIAG+4 |
| TMP("SUB" | ID+19*, LOADIAG+7 |
| TMP("SURG" | ID+21*, LOADIAG+10 |
| TMP("SURGCASE" | ID+23*, LOADIAG+11 |
| U | AP1+7, AP1+8, AP1+14, TASKAP1+8, TASKAP1+19, GETSPEC+10, GETSPEC+13, GETSPEC+16, LOOK+16, LOOK+18 , LOOK+21 |
| VAL | TASKAP1+7~, TASKAP1+15*, TASKAP1+16, GETSPEC+5~, GETSPEC+6*, GETSPEC+10*, GETSPEC+13*, GETSPEC+16*, ORITEM+2~, ORITEM+5* , ORITEM+6, ORITEM+7, ORITEM+8, LOOK+12~, LOOK+13*, LOOK+16, LOOK+22, ORDATA+3*, ORDATA+4 |
| VAL( | LOOK+18*, LOOK+21* |
| VAL(1 | GETSPEC+13*, GETSPEC+14 |
| VAL(2 | ORITEM+8*, ORITEM+9 |
| VAL1 | GETSPEC+5~, GETSPEC+10*, GETSPEC+11, GETSPEC+16*, GETSPEC+17 |
| WPIEN68 | 69+2~ |
| X | TASKAP1+7~, GETSPEC+5~, ZAPLOOK+1!, ORITEM+2~, BH+1!, BH+3*, PO*, OF*, PD*, ORDATA+1! , ORDATA+4*, FILDIA+1! |
| XXY | ID+7! |
| Y | TASKAP1+7~, GETSPEC+5~, ZAPLOOK+1!, ORITEM+2~, BH+1!, ORDATA+1!, FILDIA+1!, ASKORDER+7, ASKORDER+8 |
| ZTDESC | AP1LOAD+1~, AP1LOAD+3* |
| ZTDTH | AP1LOAD+1~, AP1LOAD+3* |
| ZTIO | AP1LOAD+1~, AP1LOAD+3* |
| >> ZTQUEUED | TASKAP1+21 |
| >> ZTREQ | TASKAP1+21* |
| ZTRTN | AP1LOAD+1~, AP1LOAD+4* |
| ZTSAVE | AP1LOAD+1~ |
| ZTSAVE("DUZ*" | AP1LOAD+2* |
| ZTSAVE("LRAP1" | AP1LOAD+2* |
| ZTSAVE("LRCNT" | AP1LOAD+3* |
| ZTSAVE("ORIFN" | AP1LOAD+2* |
