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