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 |