ORQPTQ1 ; SLC/CLA - Functs which return OR patient lists and sources pt 1 ; 8/20/07 5:43am
Source file <ORQPTQ1.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 3 | EN^ORQ1 $$DG^ORQOR1 $$UNSIGNOR^ORQOR2 |
| Scheduling | 2 | ($$PRPT,$$TMPT)^SCAPMC ($$OUTPTAP,$$OUTPTPR)^SDUTL3 |
| VA Fileman | 2 | NOW^%DTC $$EXTERNAL^DILFD |
| Kernel | 1 | $$NOW^XLFDT |
| Toolkit | 1 | $$GET^XPAR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TEAMPROV(ORY,TEAM) | ; return list of providers linked to a team
|
|
| VAMCPTS(Y) | ; RETURN LIST OF PATIENTS IN VAMC: DFN^NAME
|
|
| PPLINK(ORPROV,ORPT) | ; returns '1' if patient is linked to provider
|
|
| VAMCLONG(Y,DIR,FROM) | ; return a bolus of patients in VAMC: DFN^NAME
|
|
| PERSPR(ORY) | ; return list of personal lists linked to current user
|
|
| PCMMLINK(ORPROV,ORPT) | ;returns '1' if patient is linked to provider via PCMM
|
|
| PUNSIGN(ORY,ORBDFN) | ;rtns array of providers with unsigned orders for pt
|
|
| TEAMPTS(ORY,TEAM,TMPFLAG) | ; RETURN LIST OF PATIENTS IN A TEAM
; Also called under DBIA # 2692. ; If TMPFLAG passed and = TRUE, code expects a "^TMP(xxx" ; global root string passed in ORY, and builds the returned ; list in that global instead of to a memory array. |
|
| TPTPR(ORY,PT) | ;return list of providers linked to a patient via teams
|
|
| TEAMS(ORY) | ; return list of teams for a system
; Also called under DBIA # 2692. |
|
| TEAMPR2(ORY,PROV) | ; return list of teams linked to a provider
; This tag added by PKS/slc - 8/1999. |
|
| TEAMPR(ORY,PROV) | ; return list of teams linked to a provider
|
|
| TMSPT(ORY,PT) | ;return list of teams linked to a patient (patient is active)
|
|
| TPROVPT(PROV) | ;return list of patients linked to a provider via teams
; Modified by PKS: 8/1999. |
|
| PROVPT(ORY,ORPT) | ; return PCMM primary provider for a patient
|
|
| PRIMPT(ORY,ORPT) | ; return patient's PCMM primary care team
|
|
| DEFTM(ORY) | ; return current user's default team list
|
|
| PDLINK(ORDEV,ORPT) | ; returns '1' if patient is linked to device via team
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | PRIMPT+4 |
| $$EXTERNAL^DILFD | TMSPT+7 |
| EN^ORQ1 | PUNSIGN+5 |
| $$DG^ORQOR1 | PUNSIGN+2 |
| $$UNSIGNOR^ORQOR2 | PUNSIGN+11 |
| $$PRPT^SCAPMC | PCMMLINK+12 |
| $$TMPT^SCAPMC | PRIMPT+5 |
| $$OUTPTAP^SDUTL3 | PCMMLINK+9 |
| $$OUTPTPR^SDUTL3 | PROVPT+2, PCMMLINK+6 |
| $$NOW^XLFDT | PROVPT+2, PCMMLINK+6, PCMMLINK+9 |
| $$GET^XPAR | DEFTM+3 |
| RPC Name | Call Tags |
|---|---|
| ORQPT TEAMS | TEAMS |
| ORQPT TEAM PATIENTS | TEAMPTS |
| ORQPT PATIENT TEAM PROVIDERS | TPTPR |
| FileNo | Call Tags |
|---|---|
| ^OR(100.21 - [#100.21] | EXTERNAL^DILFD |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^%ZIS(1 - [#3.5] | PDLINK+6, PDLINK+7 |
| ^DPT - [#2] | TEAMPTS+18, TEAMPTS+19, TPROVPT+9, TPROVPT+11 |
| ^DPT("AAP" | PPLINK+5 |
| ^DPT("APR" | PPLINK+4 |
| ^DPT("B" | VAMCPTS+3, VAMCLONG+3, VAMCLONG+4, VAMCLONG+7, VAMCLONG+8 |
| ^OR(100.21 - [#100.21] | TEAMS+4, TEAMS+5, TEAMS+6, TEAMPTS+14, TEAMPTS+15, TEAMPR+4, TEAMPR+5, TEAMPR2+5, TEAMPR2+6, TEAMPROV+4 , TEAMPROV+5, TPROVPT+5, TPROVPT+6, TPROVPT+7, TPROVPT+8, TMSPT+4, TMSPT+5, TMSPT+6, TPTPR+4, TPTPR+5 , TPTPR+6, PERSPR+3, PERSPR+4, PERSPR+5, PDLINK+13 |
| ^TMP("ORLPUPT" | TPROVPT+2*, TPROVPT+9*, TPROVPT+11*, TPROVPT+12*, PPLINK+8, PPLINK+10! |
| ^TMP("ORPCMMLK" | PCMMLINK+14, PCMMLINK+16! |
| ^TMP("ORR" | PUNSIGN+3!, PUNSIGN+6, PUNSIGN+7, PUNSIGN+8, PUNSIGN+9, PUNSIGN+10, PUNSIGN+12! |
| ^VA(200 - [#200] | DEFTM+2, TEAMPROV+6, TPTPR+7 |
| Name | Line Occurrences |
|---|---|
| $$PCMMLINK | PPLINK+13 |
| TMSPT | PDLINK+10 |
| TPROVPT | PPLINK+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | PDLINK+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | PRIMPT+4, PRIMPT+11! |
| CNT | VAMCLONG+1~*, VAMCLONG+3, VAMCLONG+5, VAMCLONG+7 |
| DIR | VAMCLONG~, VAMCLONG+2, VAMCLONG+6 |
| DOTMP | TEAMPTS+5~, TEAMPTS+6*, TEAMPTS+8*, TEAMPTS+10, TEAMPTS+11, TEAMPTS+16, TEAMPTS+19, TEAMPTS+20, TEAMPTS+21 |
| DUZ | DEFTM+1, DEFTM+2, TEAMS+6, PERSPR+3 |
| FROM | VAMCLONG~, VAMCLONG+3*, VAMCLONG+4, VAMCLONG+7*, VAMCLONG+8 |
| I | VAMCPTS+1~, VAMCPTS+2*, VAMCPTS+3*, VAMCLONG+1~, VAMCLONG+3*, VAMCLONG+4, VAMCLONG+5, VAMCLONG+7*, VAMCLONG+8, TEAMS+2~ , TEAMS+3*, TEAMS+6*, TEAMPTS+12~, TEAMPTS+13*, TEAMPTS+17*, TEAMPTS+19*, TEAMPTS+20, TEAMPTS+21, TEAMPR+2~, TEAMPR+3* , TEAMPR+6*, TEAMPR2+3~, TEAMPR2+4*, TEAMPR2+9*, TEAMPROV+2~, TEAMPROV+3*, TEAMPROV+6*, TMSPT+2~, TMSPT+3*, TMSPT+8* , PERSPR+1~, PERSPR+2*, PERSPR+6* |
| IEN | VAMCLONG+1~ |
| J | VAMCPTS+1~, VAMCPTS+3* |
| NEWTMP | TEAMPTS+5~, TEAMPTS+10*, TEAMPTS+17*, TEAMPTS+18, TEAMPTS+20* |
| ORADT | PRIMPT+2~, PRIMPT+8*, PRIMPT+9 |
| ORBDFN | PUNSIGN~, PUNSIGN+5 |
| ORDATA | TEAMPR2+3~, TEAMPR2+6*, TEAMPR2+7, TEAMPR2+8 |
| ORDEV | PDLINK~, PDLINK+4, PDLINK+6, PDLINK+7, PDLINK+8*, PDLINK+9, PDLINK+13 |
| ORDEVIEN | PDLINK+2~, PDLINK+7*, PDLINK+8 |
| ORDG | PUNSIGN+1~, PUNSIGN+2*, PUNSIGN+5 |
| ORDNUM | PUNSIGN+1~, PUNSIGN+10*, PUNSIGN+11 |
| ORDP | PDLINK+2~, PDLINK+3*, PDLINK+13*, PDLINK+14 |
| ORI | TEAMPTS+12~, TEAMPTS+14*, TEAMPTS+15, TPROVPT+3~, TPROVPT+7*, TPROVPT+8 |
| ORIDT | PRIMPT+2~, PRIMPT+8*, PRIMPT+9 |
| ORPCMM | PCMMLINK+1~, PCMMLINK+12* |
| ORPCP | PCMMLINK+1~, PCMMLINK+13*, PCMMLINK+14*, PCMMLINK+15 |
| ORPP | PPLINK+1~, PPLINK+2*, PPLINK+9*, PPLINK+13*, PPLINK+15, PCMMLINK+1~, PCMMLINK+2*, PCMMLINK+14, PCMMLINK+15*, PCMMLINK+18 |
| ORPROV | PPLINK~, PPLINK+3, PPLINK+4, PPLINK+5, PPLINK+7, PPLINK+13, PCMMLINK~, PCMMLINK+3, PCMMLINK+6, PCMMLINK+9 , PCMMLINK+15 |
| ORPT | TEAMPTS+12~, TEAMPTS+15*, TEAMPTS+18, TEAMPTS+19, TPROVPT+3~, TPROVPT+8*, TPROVPT+9, TPROVPT+11, PRIMPT~, PRIMPT+1 , PRIMPT+5, PROVPT~, PROVPT+1, PROVPT+2, PPLINK~, PPLINK+3, PPLINK+4, PPLINK+5, PPLINK+9, PPLINK+13 , PDLINK~, PDLINK+4, PDLINK+10, PCMMLINK~, PCMMLINK+3, PCMMLINK+6, PCMMLINK+9, PCMMLINK+12 |
| ORQDT | PRIMPT+2~ |
| ORQDT("BEGIN" | PRIMPT+4* |
| ORQDT("END" | PRIMPT+4* |
| ORQDT("INCL" | PRIMPT+4* |
| ORQERR | PRIMPT+2~ |
| ORQERROR | PRIMPT+2~, PRIMPT+5*, PRIMPT+6 |
| ORQLST | PRIMPT+2~ |
| ORQLST(1 | PRIMPT+7, PRIMPT+8 |
| ORQPUR | PRIMPT+2~ |
| ORQPUR(2 | PRIMPT+3* |
| ORSRV | DEFTM+2~*, DEFTM+3 |
| ORTM | TEAMS+2~, TEAMS+5*, TEAMS+6, TEAMPR+2~, TEAMPR+3*, TEAMPR+4*, TEAMPR+5, TEAMPR+6, TEAMPR2+3~, TEAMPR2+4* , TEAMPR2+5*, TEAMPR2+6, TEAMPR2+9, TPROVPT+3~, TPROVPT+4*, TPROVPT+5*, TPROVPT+6, TPROVPT+7, TPROVPT+8, TMSPT+2~ , TMSPT+3*, TMSPT+4*, TMSPT+5, TMSPT+6, TMSPT+8, TPTPR+2~, TPTPR+3*, TPTPR+4*, TPTPR+5, TPTPR+6 , PERSPR+1~, PERSPR+2*, PERSPR+3*, PERSPR+4, PERSPR+5, PERSPR+6, PDLINK+2~, PDLINK+12*, PDLINK+13 |
| ORTMDEV | PDLINK+2~ |
| ORTMN | TEAMS+2~, TEAMS+3*, TEAMS+4*, TEAMS+5, TEAMS+6, TEAMPR+2~, TEAMPR+5*, TEAMPR+6, TEAMPR2+3~, TEAMPR2+7* , TEAMPR2+9, TPROVPT+3~, TPROVPT+6*, TPROVPT+11, TMSPT+2~, TMSPT+5*, TMSPT+8, PERSPR+1~, PERSPR+5*, PERSPR+6 |
| ORTMTYP | TMSPT+2~, TMSPT+6*, TMSPT+7*, TMSPT+8 |
| ORTYPE | TEAMPR2+3~, TEAMPR2+8*, TEAMPR2+9 |
| ORX | PRIMPT+2~, PRIMPT+8*, PRIMPT+9, PPLINK+1~, PPLINK+2*, PPLINK+8*, PPLINK+9, PDLINK+2~, PDLINK+11*, PDLINK+12 , PUNSIGN+1~, PUNSIGN+6*, PUNSIGN+7, PUNSIGN+8*, PUNSIGN+9, PUNSIGN+10 |
| ORY | DEFTM~, DEFTM+3*, TEAMS~, TEAMPTS~, TEAMPTS+10, TEAMPTS+17, TEAMPTS+20, TEAMPR~, TEAMPR2~, TEAMPROV~ , TMSPT~, TPTPR~, TPTPR+8, PERSPR~, PRIMPT~, PRIMPT+6*, PRIMPT+9*, PRIMPT+10*, PROVPT~, PDLINK+2~ , PDLINK+10, PUNSIGN~ |
| ORY( | TEAMS+6*, TEAMPTS+19*, TEAMPR+6*, TEAMPR2+9*, TEAMPROV+6*, TMSPT+8*, TPTPR+7*, PERSPR+6*, PDLINK+11, PDLINK+12 , PUNSIGN+11* |
| ORY(1 | TEAMS+7*, TEAMPTS+11*, TEAMPTS+21*, TEAMPR+1*, TEAMPR+7*, TEAMPR2+2*, TEAMPR2+10*, TEAMPROV+1*, TEAMPROV+7*, TMSPT+1* , TMSPT+9*, TPTPR+1*, TPTPR+8*, PERSPR+7*, PRIMPT+1*, PROVPT+1*, PROVPT+2* |
| ORZ | PUNSIGN+1~, PUNSIGN+9*, PUNSIGN+10 |
| PROV | TEAMPR~, TEAMPR+1, TEAMPR+4, TEAMPR2~, TEAMPR2+2, TEAMPR2+5, TEAMPROV+2~, TEAMPROV+5*, TEAMPROV+6, TPROVPT~ , TPROVPT+2, TPROVPT+5, TPTPR+2~, TPTPR+6*, TPTPR+7 |
| PT | TMSPT~, TMSPT+1, TMSPT+4, TPTPR~, TPTPR+1, TPTPR+4 |
| SEQ | TEAMPROV+2~, TEAMPROV+4*, TEAMPROV+5, TPTPR+2~, TPTPR+5*, TPTPR+6 |
| TEAM | TEAMPTS~, TEAMPTS+9, TEAMPTS+14, TEAMPTS+15, TEAMPROV~, TEAMPROV+1, TEAMPROV+4, TEAMPROV+5 |
| TMPFLAG | TEAMPTS~, TEAMPTS+7, TEAMPTS+8 |
| U | DEFTM+2, TEAMS+6, TEAMPTS+18, TEAMPTS+19, TEAMPR+5, TEAMPR+6, TEAMPR2+7, TEAMPR2+8, TEAMPR2+9, TEAMPROV+6 , TPROVPT+6, TPROVPT+9, TPROVPT+11, TMSPT+5, TMSPT+6, TMSPT+8, TPTPR+7, PERSPR+4, PERSPR+5, PERSPR+6 , PRIMPT+8, PRIMPT+9, PDLINK+7, PDLINK+13 |
| V | VAMCPTS+1~, VAMCPTS+3* |
| Y | VAMCPTS~, VAMCLONG~ |
| Y( | VAMCPTS+3*, VAMCLONG+4*, VAMCLONG+5*, VAMCLONG+8* |