PSS55 ;BHM/DB/TSS - API FOR PHARMACY PATIENT FILE ;15 JUN 05
Source file <PSS55.m>
Package | Total | Call Graph |
---|---|---|
Pharmacy Data Management | 1 | ^PSS551 |
VA Fileman | 1 | EN^DIQ1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
BGN433 | ||
Q433 | ||
AIT | ;loop trough AIT xref
|
|
AUSDIQ | ||
PSSA | ||
DIQ436 | ||
AUS2 | ;one PO
|
|
PSS431(DFN,PO,PSDATE,PEDATE,LIST) | ;
|
|
ORDITEM(PSSTMP) | ;
|
|
AIT1 | ||
PSS433(DFN,LIST) | ;
|
|
PSSS | ||
PSS436(DFN,ORDER,LIST) | ;SRS 3.2.43.6
|
|
AITDIQ | ||
LOOP436 | ||
AITQ | ||
PSS432(DFN,PO,LIST) | ;SRS 3.2.43.2
|
|
Q | ||
AUS | ;Loop through stop date/time xref
|
|
PSS436Q | ||
AUSQ | ||
PSS435(DFN,PO,LIST) | ;SRS 3.2.43.5
|
|
NODATA |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(50.606 - [#50.606] | ORDITEM+3 |
^PS(50.7 - [#50.7] | ORDITEM+2 |
^PS(52.6 - [#52.6] | PSSA+2 |
^PS(52.7 - [#52.7] | PSSS+6 |
^PS(55 - [#55] | PSS432+9, PSS432+10, AUS+1, AUS+2, AUS+3, AUSDIQ+4, PSS433+6, BGN433, BGN433+3, PSS435+8 , AIT+1, AIT1, AIT1+1, AITDIQ+3, PSS436+7, PSS436+9, LOOP436, DIQ436+5, PSSA, PSSA+1 , PSSS+1, PSSS+5 |
^TMP($J | PSS432+6!, PSS432+8*, AUS+5*, AUSDIQ+2*, AUSDIQ+3*, AUSDIQ+4*, AUSDIQ+6*, AUS2+2*, PSS433+4!, PSS433+5* , PSS433+7*, BGN433+2*, BGN433+3*, BGN433+4*, BGN433+5*, BGN433+6*, PSS435+6!, PSS435+7*, PSS435+8*, PSS435+9* , AIT1+3*, AITDIQ+1*, AITDIQ+2*, AITDIQ+3*, AITDIQ+5*, AITQ!*, PSS436+6!*, PSS436+7*, PSS436+8!, DIQ436+3* , DIQ436+4*, DIQ436+5*, DIQ436+6*, DIQ436+7*, PSSA*, PSSA+2*, PSSA+3*, PSSA+4*, PSSA+5*, PSSS* , PSSS+2*, PSSS+4*, PSSS+6*, PSSS+7*, PSSS+8*, PSS436Q*, NODATA* |
^UTILITY("DIQ1" | AUSDIQ!, AUSDIQ+2, AUSDIQ+3, AUSDIQ+5!, BGN433+2, BGN433+4, Q433!, AITDIQ!, AITDIQ+1, AITDIQ+2 , AITDIQ+4!, DIQ436+2, DIQ436+3, DIQ436+4, PSS436Q! |
Name | Line Occurrences |
---|---|
$$ORDITEM | AUSDIQ+4, BGN433+3, AITDIQ+3, DIQ436+5 |
AIT | AIT1 |
AIT1 | AIT1+1, AIT1+2, AITDIQ+6 |
AITQ | AIT+1 |
AUS2 | PSS432+10 |
AUSDIQ | AUS+4, AUS2+1 |
BGN433 | BGN433+7 |
DIQ436 | PSS436+9 |
LOOP436 | PSS436+8, PSSS+3 |
NODATA | PSS432+7, PSS432+9, PSS432+11, PSS433+6, DIQ436+2 |
PSS436Q | PSS436+9, LOOP436, PSSS+1 |
PSSA | PSSA+6 |
PSSS | PSSA, PSSS+9 |
Q433 | BGN433 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
D0 | PSS432+1~, PSS433+3~, PSS435+1~, PSS436+1~ |
DA | PSS432+1~, AUSDIQ+1*, AUSQ!, PSS433+3~, BGN433+1*, Q433!, PSS435+1~, AITDIQ*, PSS436+1~, DIQ436!* , PSS436Q+1! |
DA( | PSS432+10*, AUS+3*, BGN433+1*, AITDIQ*, DIQ436* |
DFN | PSS431~, PSS432~, PSS432+7, PSS432+9, PSS432+10, AUS+1, AUS+2, AUS+3, AUSDIQ+1, AUSDIQ+4 , PSS433~, PSS433+5, PSS433+6, BGN433, BGN433+1, BGN433+3, PSS435~, PSS435+7, PSS435+8, AIT+1 , AIT1, AIT1+1, AITDIQ, AITDIQ+3, PSS436~, PSS436+6, PSS436+7, PSS436+9, LOOP436, DIQ436 , DIQ436+5, PSSA, PSSA+1, PSSS+1, PSSS+5 |
DIC | PSS432+1~, AUSDIQ+1*, AUSQ!, BGN433+1*, Q433!, PSS435+1~, AITDIQ*, PSS436+1~, DIQ436*, PSS436Q+1! |
DIQ | AUSDIQ!, AUSDIQ+5!, PSS436Q! |
DIQ(0 | AUSDIQ+1*, BGN433+1*, AITDIQ*, DIQ436+2* |
DR | PSS432+1~, AUSDIQ+1*, AUSQ!, PSS433+3~, BGN433+1*, Q433!, PSS435+1~, AITDIQ*, PSS436+1~, DIQ436!* , PSS436Q+1! |
DR( | AUSDIQ+1*, BGN433+1*, AITDIQ*, DIQ436+1* |
IEN | PSS432+1~, PSS432+10*, AUS+3*, AUSDIQ+2, AUSDIQ+3, AUSDIQ+4, AUSDIQ+6, PSS433+3~, BGN433+1*, BGN433+2 , BGN433+3, BGN433+4, PSS435+1~, AITDIQ*, AITDIQ+1, AITDIQ+2, AITDIQ+3, PSS436+1~, DIQ436*, DIQ436+3 , DIQ436+4, DIQ436+5, Q! |
LIST | PSS431~, PSS432~, PSS432+6, PSS432+8, AUS+5, AUS+6!, AUSDIQ+2, AUSDIQ+3, AUSDIQ+4, AUSDIQ+6 , AUS2+2, AUSQ!, PSS433~, PSS433+4, PSS433+5, PSS433+7, BGN433+2, BGN433+3, BGN433+4, BGN433+5 , BGN433+6, Q433!, PSS435~, PSS435+6, PSS435+7, PSS435+8, PSS435+9, AIT1+3, AITDIQ+1, AITDIQ+2 , AITDIQ+3, AITDIQ+5, AITQ, AITQ+1!, PSS436~, PSS436+6, PSS436+7, PSS436+8, DIQ436+3, DIQ436+4 , DIQ436+5, DIQ436+6, DIQ436+7, PSSA, PSSA+2, PSSA+3, PSSA+4, PSSA+5, PSSS, PSSS+2 , PSSS+4, PSSS+6, PSSS+7, PSSS+8, PSS436Q, PSS436Q+1!, NODATA, Q! |
ORDER | PSS436~, PSS436+8*, PSS436+9, LOOP436*, PSS436Q+1! |
PEDATE | PSS431~ |
PO | PSS431~, PSS432~, PSS432+10, PSS432+11, PSS435~, AIT1+1, AIT1+2, AITQ+1! |
PSDATE | PSS431~ |
PSSA | PSS436+1~, DIQ436+6*, PSSA*, PSSA+1, PSSA+2, PSSA+3, PSSA+4, PSS436Q+1!, Q! |
PSSDATA | PSS432+5~, AUS+3*, AUS+6!, AUSQ!, PSS435+1~, AIT1+1*, AIT1+3, AITQ+1!, PSS436+1~, PSSA+1* , PSSS+5*, PSS436Q+1! |
PSSDIY | Q! |
PSSDT | PSS432+5~, PSS432+12*, AUS+1*, AUS+2, AUS+6!, AUSQ!, PSS435+1~, PSS435+9*, AIT+1*, AIT1 , AITQ+1! |
PSSIEN | PSS432+5~, AUS+1*, AUS+2*, AUS+3, AUS+6!, AUSQ!, PSS433+3~, PSS433+7*, BGN433*, BGN433+1 , BGN433+2, BGN433+3, BGN433+4, BGN433+6, Q433!, PSS435+1~, AIT+1*, AIT1*, AIT1+1, AIT1+2 , AIT1+3, AITDIQ, AITDIQ+3, AITQ+1! |
PSSLOOP | PSS436+1~, PSS436+6!, PSS436+8*, PSSS+1, PSS436Q+1! |
PSSPO | PSS432+5~, PSS432+10*, PSS432+11, AUSDIQ+2*, AUSQ!, PSS433+3~, BGN433*, PSS435+1~, AIT1+3*, AITDIQ+1 , AITDIQ+2, PSS436+1~, PSS436+9*, LOOP436*, DIQ436, DIQ436+3, DIQ436+4, DIQ436+5, DIQ436+6, DIQ436+7 , PSSA, PSSA+1, PSSA+2, PSSA+3, PSSA+4, PSSA+5, PSSS, PSSS+1, PSSS+2, PSSS+4 , PSSS+5, PSSS+6, PSSS+7, PSSS+8, PSS436Q+1! |
PSSQ | PSS432+5~, AUS2+1*, AUSQ! |
PSSS | PSS436+1~, PSSA*, PSSS+1*, PSSS+3, PSSS+5, PSSS+6, PSSS+7, PSS436Q+1!, Q! |
PSSSTAT | PSS435+1~, AIT1+1*, AITQ+1!, Q! |
PSSTMP | PSS432+1~, AUSDIQ+4*, ORDITEM~, ORDITEM+2, ORDITEM+3*, ORDITEM+4, PSS433+3~, BGN433+3*, PSS435+1~, AITDIQ+3* , PSS436+1~, DIQ436+5* |
PSSTMP2 | PSS432+1~, ORDITEM+2*, ORDITEM+3, PSS433+3~, PSS435+1~, PSS436+1~ |
U | AUSDIQ+4, ORDITEM+3, BGN433+3, AITDIQ+3, DIQ436+5 |
X | AUSDIQ+2*, AUSDIQ+3*, AUSQ!, PSS433+3~, BGN433+2*, BGN433+4*, Q433!, PSS435+1~, AITDIQ+1*, AITDIQ+2* , AITQ+1!, PSS436+1~, DIQ436+3*, DIQ436+4*, PSS436Q+1!, Q! |
X1 | PSSA+1*, PSSA+2, PSSS+5*, PSSS+6, PSS436Q+1!, Q! |
X2 | PSSA+1*, PSSA+3, PSSS+5*, PSSS+7, PSS436Q+1!, Q! |
X3 | PSSA+1*, PSSA+4, Q! |