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* |