BTPWPPAT ;VNGT/HS/ALA-Get list of procedures by patient ; 12 Feb 2009 10:23 AM
Source file <BTPWPPAT.m>
| Package | Total | Call Graph |
|---|---|---|
| Tracking Procedure Workflow | 5 | $$SCOMM^BTPWPDS1 ($$CAT,$$FLG)^BTPWPDSP ($$FND,$$FUP,$$INTER,$$NOT)^BTPWPEVT $$FNDS^BTPWPLND ($$LNK,$$QLNK)^BTPWPTRG |
| Kernel | 2 | ^%ZTER $$NOW^XLFDT |
| VA Fileman | 2 | DT^DICRW ($$GET1,GETS)^DIQ |
| iCare | 2 | ($$FMTE,$$TKO)^BQIUL1 ($$ICD0,$$ICD9,$$ICPT)^BQIUL3 |
| Order Entry Results Reporting | 1 | AGET^ORWORR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QU(DFN,STATE) | ; EP - Loop through and retrieve Queued Events
|
|
| NOT(TIEN) | ;Calculate latest notification date
|
|
| TR(DFN,STATE) | ; EP - Loop through and retrieve Tracked Events
|
|
| ERR | ;
|
|
| FND(TIEN) | ;Calculate latest finding date
|
|
| RET(DATA,DFN,VIEW,STATE,CMLST) | ; EP - BTPW GET CMET BY PATIENT
; Description ; Get the grid values for a specific patient for either queued or tracked events ; Input ; DFN - Patient internal entry number ; VIEW - 'T' for tracked events, 'Q' for queued events, 'N' for planned ; STATE - State or status ; CMLST - List of file IENs to include (optional) |
|
| GORD(TIEN) | ;EP - Field BTPWFUOR
|
|
| ORD(DFN,ORDITM) | ;EP - Return active order information for selected test
|
|
| FOL(TIEN) | ;Calculate latest follow-up date
|
|
| QREC(QIEN,RESULT) | ; EP - Get a queued event record
|
|
| DONE | ;
|
|
| PREC(QIEN,RESULT) | ; EP - Get a planned event record
|
|
| FLG(DFN) | ; EP - Return TICKLER INDICATOR for patient
|
|
| TREC(TIEN,RESULT) | ; EP - Get a tracked event record
|
|
| XGORD | ||
| PL(DFN) | ; Loop through and retrieve Planned Events
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZTER | ERR+1 |
| $$FMTE^BQIUL1 | TREC+14, TREC+36, PREC+6, PREC+12, PREC+14, QREC+7, QREC+8, FND+11, FOL+12, NOT+12 , ORD+21 |
| $$TKO^BQIUL1 | QREC+12 |
| $$ICD0^BQIUL3 | QREC+23 |
| $$ICD9^BQIUL3 | QREC+22 |
| $$ICPT^BQIUL3 | QREC+24 |
| $$SCOMM^BTPWPDS1 | QREC+27 |
| $$CAT^BTPWPDSP | TREC+12, PREC+4, QREC+4 |
| $$FLG^BTPWPDSP | FLG+7 |
| $$FND^BTPWPEVT | TREC+26 |
| $$FUP^BTPWPEVT | TREC+27 |
| $$INTER^BTPWPEVT | TREC+30 |
| $$NOT^BTPWPEVT | TREC+28 |
| $$FNDS^BTPWPLND | TREC+15 |
| $$LNK^BTPWPTRG | TREC+18 |
| $$QLNK^BTPWPTRG | QREC+30 |
| DT^DICRW | RET+13 |
| $$GET1^DIQ | TREC+9, TREC+32, TREC+35, TREC+36, PREC+8, PREC+14, QREC+5, QREC+10, QREC+19, QREC+20 , ORD+17, GORD+5, GORD+6, GORD+7 |
| GETS^DIQ | FND+2, FOL+3, NOT+3 |
| AGET^ORWORR | ORD+6 |
| $$NOW^XLFDT | ERR+3 |
| RPC Name | Call Tags |
|---|---|
| BTPW GET CMET BY PATIENT | RET |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
| ^BTPWP - [#90620] | GET1^DIQ, GETS^DIQ |
| ^BTPW(90621 - [#90621] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^BTPW(90621 - [#90621] | TREC+11, PREC+3, QREC+3 |
| ^BTPW(90621.1 - [#90621.1] | QREC+16, QREC+18 |
| ^BTPWP - [#90620] | TREC+5, PREC+2 |
| ^BTPWP("AD" | TR+17, FLG+6 |
| ^BTPWP("AE" | TR+10, PL+7 |
| ^BTPWQ( | QREC+2, QREC+11 |
| ^BTPWQ("AD" | QU+19 |
| ^BTPWQ("AE" | QU+9 |
| ^DD("DD" | ERR+3 |
| ^OR(100 - [#100] | ORD+13, ORD+19, ORD+20 |
| ^TMP("BTPWPPAT" | RET+11 |
| ^TMP("ORR" | ORD+5!, ORD+9, ORD+10, ORD+12, ORD+22! |
| Name | Line Occurrences |
|---|---|
| $$FND | TREC+22 |
| $$FOL | TREC+23 |
| $$NOT | TREC+24 |
| $$ORD | PREC+9, GORD+8 |
| DONE | RET+26, RET+32, RET+33, RET+34 |
| PL | RET+34 |
| PREC | PL+12 |
| QREC | QU+17, QU+27 |
| QU | RET+33 |
| TR | RET+32 |
| TREC | TR+15, TR+22 |
| XGORD | GORD+5, GORD+6, GORD+11 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | QREC+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BMXSEC | RET+26*, ERR+4* |
| CAT | TREC+1~, TREC+12*, TREC+38, PREC+1~, PREC+4*, PREC+17, QREC+1~, QREC+4*, QREC+33 |
| CDT | FND+1~, FND+9*, FOL+2~, FOL+10*, NOT+2~, NOT+10* |
| CMLST | RET~, RET+21, RET+23, TR+13, TR+20, PL+10, QU+12, QU+22 |
| CMLST( | RET+23*, TR+13, TR+20, PL+10, QU+12, QU+22 |
| CNT | ORD+2~, ORD+10*, ORD+12 |
| DATA | RET~, RET+11*, RET+12, RET+28, RET+29, RET+30, DONE+1, ERR+5, TR+5, TR+6 , TR+7, TR+8, TR+16, TR+23, PL+5, PL+13, QU+5, QU+6, QU+7, QU+18 , QU+28 |
| DFN | RET~, RET+32, RET+33, RET+34, TR~, TR+10, TR+17, PL~, PL+7, PREC+9 , QU~, QU+9, QU+19, FLG~, FLG+4, FLG+6, ORD~, ORD+6, GORD+2~, GORD+5* , GORD+8 |
| DT | RET+13 |
| DTIEN | ORD+11~, ORD+19*, ORD+20 |
| DUE | PREC+1~, PREC+6*, PREC+17 |
| ERRDTM | ERR+2~, ERR+3*, ERR+4 |
| FC | QREC+1~, QREC+11* |
| FCOM | QREC+1~ |
| >> FCOMM | QREC+11*, QREC+12*, QREC+33 |
| FDATA | FND+1~, FOL+2~ |
| FDATA( | FND+4, FND+7, FND+9, FOL+5, FOL+8, FOL+10 |
| FDT | FND+1~, FND+4*, FND+9*, FND+11*, FND+12, FOL+2~, FOL+5*, FOL+10*, FOL+12*, FOL+13 |
| FIEN | FND+1~, FND+4*, FND+7, FND+9, FOL+2~, FOL+5*, FOL+8, FOL+10 |
| FIL | QREC+17~, QREC+18*, QREC+19, QREC+20 |
| >> FIND | QREC+10*, QREC+33 |
| FLD | QREC+17~, QREC+18*, QREC+19, QREC+20 |
| FLG | FLG+2~, FLG+6*, FLG+7*, FLG+8*, FLG+10*, FLG+11 |
| FND | TREC+1~, TREC+26*, TREC+38 |
| FNDDT | TREC+1~, TREC+22*, TREC+38 |
| FSUMM | TREC+2~, TREC+15*, TREC+38 |
| >> FULLE | QREC+14*, QREC+16*, QREC+19*, QREC+22*, QREC+23*, QREC+24*, QREC+33 |
| >> FULLR | QREC+13*, QREC+30*, QREC+33 |
| FUP | TREC+1~, TREC+27*, TREC+38 |
| FUPDT | TREC+1~, TREC+23*, TREC+38 |
| HFND | TREC+2~, TREC+26*, TREC+38 |
| HFUP | TREC+2~, TREC+27*, TREC+38 |
| HINT | TREC+2~, TREC+30*, TREC+38 |
| HNOT | TREC+2~, TREC+28*, TREC+38 |
| HRES | TREC+2~, TREC+18*, TREC+38, QREC+1~, QREC+30*, QREC+33 |
| I | RET+22~, RET+23* |
| IEN | RET+22~, RET+23* |
| II | RET+9~, RET+15*, RET+28, RET+29, RET+30, DONE+1*, ERR+5*, TR+5, TR+6, TR+7 , TR+8, TR+16*, TR+23*, PL+5, PL+13*, QU+5, QU+6, QU+7, QU+18*, QU+28* |
| INT | TREC+2~, TREC+30*, TREC+38 |
| >> LIEN | QREC+20*, QREC+22, QREC+23, QREC+24 |
| LMBY | QREC+1~, QREC+9*, QREC+33 |
| LMDT | QREC+1~, QREC+8*, QREC+33 |
| NDATA | NOT+2~ |
| NDATA( | NOT+5, NOT+8, NOT+10 |
| NDT | NOT+2~, NOT+5*, NOT+10*, NOT+12*, NOT+13 |
| NIEN | NOT+2~, NOT+5*, NOT+8, NOT+10 |
| NOT | TREC+1~, TREC+28*, TREC+38 |
| NOTDT | TREC+1~, TREC+24*, TREC+38 |
| ORD | PREC+1~, PREC+2*, PREC+8*, PREC+9*, PREC+10, PREC+11, PREC+12, ORD+11~, ORD+12*, ORD+13 , ORD+17, ORD+19, ORD+20, ORD+21, GORD+2~, GORD+4*, GORD+8*, GORD+11, GORD+14*, XGORD |
| ORDDT | PREC+1~, PREC+12*, PREC+17, ORD+11~, ORD+16*, ORD+17*, ORD+18, ORD+20*, ORD+21 |
| ORDINFO | ORD+2~ |
| ORDITM | ORD~, ORD+13 |
| ORDNM | PREC+1~, PREC+11*, PREC+17 |
| ORDYN | PREC+1~, PREC+10*, PREC+17 |
| >> ORINFO | ORD+9*, ORD+10, ORD+21*, ORD+23 |
| ORLIST | ORD+2~, ORD+9*, ORD+10, ORD+12 |
| PEV | TREC+1~, TREC+20* |
| PRC | GORD+2~, GORD+6*, GORD+7*, GORD+8 |
| PRCDT | TREC+1~, TREC+14*, TREC+38, QREC+1~, QREC+7*, QREC+33 |
| PROC | TREC+1~, TREC+11*, TREC+12, TREC+38, PREC+1~, PREC+3*, PREC+4, PREC+8, QREC+1~, QREC+3* , QREC+4 |
| PROCNM | TREC+1~, TREC+11*, TREC+38, PREC+1~, PREC+3*, PREC+17, QREC+1~, QREC+3*, QREC+33 |
| PRV | PREC+1~, PREC+7*, PREC+14, PREC+17 |
| >> PRVDT | PREC+14*, PREC+17 |
| PRVEVT | PREC+1~, PREC+14*, PREC+17 |
| PTNAME | PREC+1~, QREC+1~ |
| QIEN | TREC+1~, TREC+8*, TREC+9, PREC~, PREC+2, PREC+17, QREC~, QREC+2, QREC+5, QREC+10 , QREC+11, QREC+27, QREC+30, QREC+33 |
| >> RCFILE | QREC+15*, QREC+16, QREC+18 |
| >> RCIEN | QREC+15*, QREC+19, QREC+20 |
| RES | TREC+1~, TREC+18*, TREC+38, QREC+1~, QREC+30*, QREC+33 |
| RESULT | RET+9~, TR+2~, TR+15, TR+16, TR+22, TR+23, TREC~, TREC+4*, TREC+38*, PL+2~ , PL+12, PL+13, PREC~, PREC+17*, QU+2~, QU+17, QU+18, QU+27, QU+28, QREC~ , QREC+33* |
| RIEN | RET+9~, TR+2~, TR+10*, TR+13, TR+15, TR+17*, TR+20, TR+22, TREC+2~, PL+2~ , PL+7*, PL+10, PL+12, QU+2~, QU+9*, QU+12, QU+17, QU+19*, QU+22, QU+27 |
| SCOMM | QREC+1~, QREC+27*, QREC+33 |
| STAT | QREC+1~, QREC+5*, QREC+33 |
| STATE | RET~, RET+18*, RET+32, RET+33, TR~, TR+10, TR+17, TREC+1~, TREC+32*, TREC+33 , TREC+38, QU~, QU+9, QU+19 |
| STATUS | TREC+1~, TREC+9* |
| >> TAB | QREC+18*, QREC+21, QREC+22, QREC+23, QREC+24 |
| TDATA | TREC+1~, TREC+5*, TREC+8, TREC+11, TREC+13, TREC+14, TREC+20, PREC+1~, PREC+2*, PREC+3 , PREC+5, PREC+6, PREC+7, QREC+1~, QREC+2*, QREC+3, QREC+6, QREC+7, QREC+8, QREC+9 , QREC+13, QREC+15 |
| TIEN | TREC~, TREC+5, TREC+15, TREC+18, TREC+22, TREC+23, TREC+24, TREC+26, TREC+27, TREC+28 , TREC+30, TREC+32, TREC+35, TREC+36, TREC+38, QREC+13*, FND~, FND+2, FOL~, FOL+3 , NOT~, NOT+3, FLG+2~, FLG+6*, FLG+7, GORD~, GORD+5, GORD+6 |
| U | RET+13, TREC+8, TREC+11, TREC+13, TREC+14, TREC+20, TREC+38, PREC+3, PREC+5, PREC+6 , PREC+7, PREC+11, PREC+12, PREC+17, QREC+3, QREC+6, QREC+7, QREC+8, QREC+9, QREC+13 , QREC+15, QREC+33, ORD+12, ORD+21, GORD+14 |
| UID | RET+9~, RET+10*, RET+11 |
| VIEW | RET~, RET+18*, RET+26, RET+32, RET+33, RET+34 |
| VISIT | TREC+1~, TREC+13*, TREC+38, PREC+1~, PREC+5*, PREC+17, QREC+1~, QREC+6*, QREC+33 |
| WHEN | TREC+1~, TREC+36*, TREC+38 |
| WHO | TREC+1~, TREC+35*, TREC+38 |
| Y | ERR+2~, ERR+3* |
| >> ZTSK | RET+10 |