©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PSGWOLD1 ;BHAM ISC/PTD,CML-Purge Old Inventory Data - CONTINUED (Delete Drugs Inactivated in AOU & Delete AOUs with No Drugs or Pointers to 58.2) ; 21 Jul 93 / 3:21 PM
Source file <PSGWOLD1.m>
| Package | Total | Caller Graph |
|---|---|---|
| Auto Replenishment Ward Stock | 1 | PSGWOLD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DRGLP | ||
| AOULP | ||
| AOUDEL | ||
| DEL | ||
| PTRLP | ||
| END | ||
| DRGDEL | ;DELETE INACTIVATED DRUG FROM AOU IF INACTIVE DATE LESS THAN OR EQUAL EDT, AND THERE IS NO INVENTORY DATA IN FILE FOR DRUG.
|
|
| GRLP |
| FileNo | Call Tags |
|---|---|
| ^PSI(58.1 - [#58.1] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PSI(58.1 - [#58.1] | AOULP, DRGLP, DRGDEL+2*, DRGDEL+3, AOUDEL |
| ^PSI(58.2 - [#58.2] | GRLP, PTRLP |
| ^PSI(58.3 - [#58.3] | DRGDEL+4 |
| Name | Line Occurrences |
|---|---|
| AOUDEL | DRGLP |
| AOULP | AOUDEL, DEL, DEL+1 |
| DEL | GRLP |
| DRGLP | DRGDEL+2, DRGDEL+3, DRGDEL+4, DRGDEL+5 |
| END | AOULP |
| GRLP | PTRLP |
| PTRLP | PTRLP+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | END! |
| %H | END! |
| %I | END! |
| AOUDA | PSGWOLD1+3*, AOULP*, DRGLP, DRGDEL+2, DRGDEL+3, DRGDEL+5, AOUDEL, PTRLP, DEL+1, END! |
| DA | DRGDEL+5*, DEL+1*, END! |
| DA(1 | DRGDEL+5* |
| DELFL | AOUDEL+1*, PTRLP*, DEL, END! |
| DIK | DRGDEL+5*!, DEL+1*! |
| DRGDA | AOULP*, DRGLP*, DRGDEL+2, DRGDEL+3, DRGDEL+5, END! |
| DRGNUM | DRGDEL+2*, DRGDEL+4, END! |
| GRPDA | AOUDEL+1*, GRLP*, PTRLP, END! |
| LOC | DRGDEL+2*, DRGDEL+3, END! |
| PSGWDT | PSGWOLD1+2*, DRGDEL+3, END! |
| PTR | GRLP*, PTRLP*, END! |
| X | PSGWOLD1+2, END! |