PSUAA1 ;BIR/RDC - ALLERGY/ADVERSE EVENT EXTRACT ; 4/5/12 7:25am
Source file <PSUAA1.m>
| Package | Total | Call Graph |
|---|---|---|
| Adverse Reaction Tracking | 2 | EN1^GMRADPT EN1^GMRAOR2 |
| Pharmacy Benefits Management | 2 | ^PSUAA2 ($$VAL,$$VALI)^PSUTL |
| Master Patient Index VistA | 1 | $$GETICN^MPIF001 |
| Registration | 1 | $$TESTPAT^VADPT |
| VA FileMan | 1 | YMD^%DTC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; *20 Fix typo
|
|
| INITZ | ;
; ** new all non-namespaced variables ** |
|
| GETRECS | ; ; ** extract reactive data **
|
|
| STATIC | ; ** set static pieces of record into OREC **
|
|
| MAKE1 | ; ** load one record/message **
|
|
| ; *20 Update Comment
; Printing of Allergies/Adverse Events. ; Called from PSUCP. No longer used. |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(49 - [#49] | STATIC+17 |
| ^DPT - [#2] | GETRECS+10 |
| ^GMR(120.8 - [#120.8] | GETRECS+1, GETRECS+3, GETRECS+6 |
| ^TMP("PSUAA" | INITZ+20* |
| ^VA(200 - [#200] | STATIC+16 |
| ^XTMP("PSU_" | GETRECS+28*, GETRECS+30*, MAKE1+8*, MAKE1+11*, MAKE1+15* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> %H | INITZ+18* |
| ARTMP | EN+1~, GETRECS+16 |
| DFN | EN+1~, GETRECS+7*, GETRECS+8, GETRECS+9, GETRECS+10, STATIC+6 |
| EDATE | EN+1~, INITZ+4*, GETRECS+1 |
| GMRA | EN+1~, GETRECS+12* |
| GMRACT | EN+1~, GETRECS+4! |
| GMRACT("O" | GETRECS+22, GETRECS+23, GETRECS+24 |
| GMRACT("S" | GETRECS+19, GETRECS+20 |
| GMRAL | EN+1~, GETRECS+4! |
| GMRAL( | GETRECS+14, GETRECS+15 |
| GMREC | EN+1~, GETRECS+4!, GETRECS+15*, STATIC+10, STATIC+11, STATIC+12 |
| ICN | EN+1~, STATIC+6*, STATIC+7*, STATIC+8 |
| K | EN+1~, MAKE1+10*, MAKE1+11, MAKE1+15 |
| LINECNT | EN+1~, INITZ+8*, GETRECS+29*, GETRECS+30, MAKE1+5*, MAKE1+7*, MAKE1+8, MAKE1+11, MAKE1+12*, MAKE1+15 |
| LINEMAX | EN+1~, INITZ+6*, INITZ+7*, MAKE1+7 |
| LINETOT | EN+1~, INITZ+9*, MAKE1+6*, MAKE1+13* |
| MSGCNT | EN+1~, GETRECS+28, MAKE1+7*, MAKE1+8, MAKE1+11, MAKE1+15 |
| NPTR | EN+1~, STATIC+15*, STATIC+16 |
| OPTR | EN+1~, STATIC+16*, STATIC+17 |
| OREC | EN+1~, GETRECS+17*, GETRECS+20*, GETRECS+21*, GETRECS+23*, GETRECS+24*, GETRECS+26*, STATIC+2*, STATIC+3*, STATIC+4* , STATIC+8*, STATIC+10*, STATIC+11*, STATIC+12*, STATIC+13*, STATIC+17*, STATIC+19*, STATIC+20*, MAKE1+2*, MAKE1+3* , MAKE1+8, MAKE1+10, MAKE1+11, MAKE1+15 |
| PN | EN+1~ |
| PREC | EN+1~, GETRECS+10*, GETRECS+11 |
| >> PSUEDT | INITZ+4 |
| >> PSUFAC | INITZ+11* |
| >> PSUJOB | GETRECS+28, GETRECS+30, MAKE1+8, MAKE1+11, MAKE1+15 |
| PSUMKFLG | EN+2!, GETRECS+5*, GETRECS+26*, GETRECS+27 |
| >> PSUSDT | INITZ+3 |
| >> PSUSNDR | INITZ+11 |
| RPTR | EN+1~ |
| RRDT | EN+1~ |
| RREC | EN+1~ |
| SDATE | EN+1~, INITZ+3*, GETRECS+1*, GETRECS+3 |
| SSN | EN+1~, GETRECS+11*, STATIC+4 |
| STATION | EN+1~, INITZ+15*, STATIC+3 |
| U | INITZ+20, GETRECS+7, GETRECS+11, GETRECS+23, GETRECS+24, STATIC+10, STATIC+11, STATIC+12, STATIC+13, STATIC+15 , STATIC+16, STATIC+17, STATIC+19, STATIC+20, MAKE1+3 |
| V | EN+1~, GETRECS+19*, GETRECS+20, GETRECS+22*, GETRECS+23, GETRECS+24 |
| VPTR | EN+1~, GETRECS+2*, GETRECS+3*, GETRECS+6, GETRECS+14, GETRECS+15, GETRECS+16, STATIC+3 |
| >> VREC | GETRECS+6*, GETRECS+7, STATIC+13, STATIC+15, STATIC+19, STATIC+20 |
| X | EN+1~, INITZ+14*, INITZ+15, INITZ+20 |
| Z | EN+1~, GETRECS+17*, GETRECS+20, GETRECS+21, GETRECS+23, GETRECS+24, GETRECS+26, STATIC+2, STATIC+3, STATIC+4 , STATIC+8, STATIC+10, STATIC+11, STATIC+12, STATIC+13, STATIC+17, STATIC+19, STATIC+20, MAKE1+3 |
