PSOSUTL ;BIR/RTR - Suspense utility routine ;26-Jul-2016 15:09;DU
Source file <PSOSUTL.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 3 | NOW^%DTC ^DIE ^DIK |
| Outpatient Pharmacy | 2 | (KCMPX,SCMPX)^PSOCMOP EN^PSOHLSN1 |
| National Drug File | 1 | (,$$PROD2)^PSNAPIS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CPMSG | ;
|
|
| ARECD | ||
| SET | ; Set DEA in Suspense File
|
|
| SAS1 | ;Refill Division x-ref
|
|
| AREC | ||
| SAS2 | ;For partials
|
|
| SDIV | ||
| KAS1 | ;
|
|
| KAS2 | ;
|
|
| KAS | ;
|
|
| ZZ(RX) | ; Returns VA print name, Trade Name, Generic Name
|
|
| SDEA | ;Update Suspense with DEA
|
|
| DEL | ||
| EX | ||
| AREC1 | ;
|
|
| SAS | ;X-ref on Division field
|
|
| KILL | ||
| END | ||
| CPMS | ;
|
| FileNo | Call Tags |
|---|---|
| ^PS(52.5 - [#52.5] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.5 - [#52.5] | AREC1+2, AREC+1, AREC+2*!, AREC+3*, AREC+6*, ARECD+2, EX+2, SET+3*, KILL, KILL+1* , SAS+1, SAS+2, SAS+3*, SAS+4*, SAS+5!, KAS+1, KAS+2!, KAS+3!, KAS+4, SAS1+1 , SAS1+2, SAS1+4*, SAS1+5*, SAS1+6*, SAS1+7!, KAS1+1, KAS1+4!, KAS1+5!, KAS1+6, SAS2+1 , SAS2+2, SAS2+3*, SAS2+4*, SAS2+5!, KAS2+1, KAS2+2, KAS2+3!, KAS2+4!, SDEA+1, SDEA+2* , SDIV+1, SDIV+2 |
| ^PSDRUG - [#50] | SET+3, SDEA+2, ZZ+1, ZZ+4, ZZ+5 |
| ^PSDRUG("AQ" | ZZ+4 |
| ^PSNDF( | ZZ+8 |
| ^PSRX - [#52] | AREC1+1*, AREC1+3, AREC1+4*, AREC1+7, AREC1+12*, AREC1+15*, AREC1+16*, AREC, AREC+1*, AREC+2 , AREC+4, AREC+5*, ARECD, ARECD+1, ARECD+3*, EX, EX+1, EX+4*, SET+2, SET+3 , SAS+1, KAS+1, SAS1+1, SAS1+3, KAS1+1, KAS1+2, SDIV+3, SDIV+4, SDIV+5, SDIV+6 , ZZ+1, ZZ+3 |
| Name | Line Occurrences |
|---|---|
| CPMS | AREC1+2, AREC1+17 |
| CPMSG | AREC+1, AREC+7 |
| DEL | AREC1+4 |
| END | ZZ+2, ZZ+3 |
| Name | Field # of Occurrence |
|---|---|
| ^("ND" | ZZ+5 |
| ^("P" | SDEA+2 |
| ^("TN" | ZZ+3 |
| ^(0 | SAS+1, SAS+3, SAS+4, SAS+5, KAS+1, KAS+2, KAS+3, SAS1+1, SAS1+5, SAS1+6 , SAS1+7, KAS1+1, KAS1+4, KAS1+5, SAS2+1, SAS2+2*, SAS2+3, SAS2+4, SAS2+5, KAS2+1 , KAS2+3, KAS2+4, SDIV+3*, SDIV+5* |
| ^(2 | SDIV+6* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> % | AREC1+3, AREC+1, ARECD, EX |
| AAA | EX*, EX+6! |
| >> CNT | AREC1+3*, AREC1+15*, AREC1+16, AREC+2*, AREC+5*, ARECD*, ARECD+3* |
| >> COM | AREC1+3*, AREC1+16, AREC+1*, AREC+5, ARECD+3, ARECD+4 |
| >> DA | AREC1+9*, AREC1+14*, DEL*, SET+3, KILL, KILL+1, SAS+1, KAS+1, SAS1+4, KAS1+3 , SAS2+2, KAS2+2, SDEA+1, SDIV+1, SDIV+2 |
| >> DA(1 | AREC1+14*, SAS1+1, SAS1+3, KAS1+1, KAS1+2, SAS2+1, KAS2+1 |
| >> DFN | AREC+2 |
| DIE | AREC1+7!, AREC1+9!*, AREC1+12!, AREC1+14!* |
| DIK | DEL*! |
| >> DR | AREC1+9*, AREC1+14* |
| DT | AREC1+9, AREC1+12, AREC1+14 |
| >> DTTM | AREC1+3*, AREC1+16, AREC+1*, AREC+5, ARECD*, ARECD+3, EX*, EX+4 |
| DUZ | AREC1+15, AREC+5, ARECD+3, EX+4 |
| I50 | ZZ+1*, ZZ+2, ZZ+4, ZZ+5, ZZ+9!, END! |
| >> JJ | AREC1+3*, AREC+2*, ARECD* |
| >> OLD | AREC1+7*, AREC1+12* |
| >> PDUZ | AREC1+15*, AREC1+16, AREC+6 |
| PSCOU | EX*, EX+4*, EX+6! |
| PSDVP | SDIV~, SDIV+2*, SDIV+3, SDIV+4*, SDIV+5 |
| PSLOOP | SDIV~, SDIV+4* |
| PSOC7 | SAS+1~, SAS+2*, SAS+6, KAS+1~, KAS+4*, KAS+5, SAS1+1~, SAS1+2*, SAS1+8, KAS1+1~ , KAS1+6*, KAS1+7 |
| PSODEL | AREC1+4! |
| PSODINT | SDIV~, SDIV+1*, SDIV+3, SDIV+4, SDIV+5, SDIV+6 |
| PSOEXPI | EX+3*, EX+4, EX+5, EX+6! |
| PSOPRT | EX+2*, EX+4, EX+6! |
| >> PSOSITE | AREC1+9, AREC1+14, AREC+6 |
| PSOSPIEN | SAS1+1~*, SAS1+2, SAS1+4, SAS1+5, SAS1+6, SAS1+7, SAS1+8, KAS1+1~*, KAS1+4, KAS1+5 , KAS1+6, KAS1+7 |
| PSOSUDEA | SET+1~, SET+3* |
| >> PSOTIME | AREC+3, AREC+6 |
| PSOXN | ZZ+7*! |
| PSOZZDD | CPMS+1~*! |
| PSOZZDDD | CPMSG+1~*! |
| PSOZZDMS | AREC~*, AREC+1, AREC+7 |
| PSPSPIEN | SAS2+1~*, SAS2+2, SAS2+3, SAS2+4, SAS2+5, KAS2+1~*, KAS2+2, KAS2+3, KAS2+4 |
| PSREFCNT | SAS1+1~, SAS1+3*, SAS1+4, KAS1+1~, KAS1+2*, KAS1+3 |
| PSSSPIEN | SDEA+1~*, SDEA+2 |
| PSUSPIEN | SAS+1~*, SAS+2, SAS+3, SAS+4, SAS+5, SAS+6, KAS+1~*, KAS+2, KAS+3, KAS+4 , KAS+5 |
| QQQ | EX+1*, EX+6! |
| >> RF | AREC1+4*, AREC+4*, ARECD+1* |
| >> RFCNT | AREC1+4*, AREC1+7, AREC1+12, AREC1+14, AREC1+16, AREC+4*, AREC+5, ARECD+1*, ARECD+3 |
| RX | AREC1+1, AREC1+2, AREC1+3, AREC1+4, AREC1+7, AREC1+9, AREC1+12, AREC1+14, AREC1+15, AREC1+16 , CPMS+1, AREC, AREC+1, AREC+2, AREC+4, AREC+5, CPMSG+1, ARECD, ARECD+1, ARECD+3 , ARECD+4, ZZ~, ZZ+1, ZZ+3 |
| RXP | AREC1+3, AREC1+7, AREC1+12, AREC1+16, AREC+1, AREC+5, ARECD+2*, ARECD+3! |
| >> RXREC | EX, EX+1, EX+4, EX+5 |
| >> RXRP( | AREC1+3, AREC1+7, AREC1+12, AREC+1 |
| >> RXRS( | AREC1+7, AREC1+12 |
| >> SFN | AREC1+2*, DEL, AREC+1*, AREC+2, AREC+3, AREC+6, ARECD+2, EX+2 |
| U | ZZ+1, ZZ+5 |
| VVV | EX+1*, EX+4, EX+6! |
| >> X | AREC1+7*, AREC1+12*, SET+2, SET+3, SAS+3, SAS+4, SAS+5, KAS+2, KAS+3, SAS1+4 , SAS1+5, SAS1+6, SAS1+7, KAS1+4, KAS1+5, SAS2+2, SAS2+3, SAS2+4, SAS2+5, KAS2+3 , KAS2+4, SDEA+2, SDIV+3, SDIV+5, SDIV+6 |
| Z1 | ZZ+5*, ZZ+6, ZZ+7, ZZ+8, ZZ+9! |
| Z2 | ZZ+5*, ZZ+6, ZZ+7, ZZ+8, ZZ+9! |
| >> ZDRUG | ZZ+1*, ZZ+2*, ZZ+3*, ZZ+7*, ZZ+8*, END+1 |
| ZZZ | SAS1+1~, SAS1+3*, KAS1+1~, KAS1+2* |
| Name | Field # of Occurrence |
|---|---|
| $T(^PSNAPIS | ZZ+7 |