©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
LR302A ;DALOI/FHS - LR*5.2*302 SAVE POINTER VALUES PREINSTAL;29-APR-2004
Source file <LR302A.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 1 | ($$FMADD,$$HTFM,$$NOW)^XLFDT |
| Lab Service | 1 | BMES^LR302 |
| VA Fileman | 1 | GETS^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 6402 | ;Save values from ^LAM(IEN,5,IEN2,1 fields
|
|
| EN | ;
|
|
| 696 | ;
|
|
| 624 | ;Extract data from ^LAB(62.4, field .14
|
|
| 6285 | ;Extract data from ^LAHM(62.85 field .05
|
|
| SAVE642 | ;Save a copy ^LAB(64.2 for checking later
|
|
| 628 | ;Save values from ^LAHM(62.8 fields 1.13,1.23,2.13,2.23,2.33
|
|
| PRT(FILE) | ;Display file name
|
|
| 6205 | ;Save values from ^LAB(62.05 field 4
|
|
| 60 | ;Save values for file # 60.01,95.3
|
|
| 61 | ;Save values from ^LAB(61 fields .09,.0961
|
|
| 642 | ;Save values from ^LAB(64.2 1,4,7,8,9,15
|
|
| SAVE(FILE,IENX,FLD,LNC) | ;Save Data (FILE #,IEN,Fields,95.3)
|
|
| 629 | ; Extract data from ^LAHM(62.9,,60 fields 1.15,1.25,2.15,2.25,2.35
|
|
| 682 | ;Extract date for ^LRO(68.2, field .14
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^LAB(60 - [#60] | 60+4, 60+5 |
| ^LAB(61 - [#61] | 61+4 |
| ^LAB(62.05 - [#62.05] | 6205+4 |
| ^LAB(62.4 - [#62.4] | 624+4 |
| ^LAB(64.2 - [#64.2] | SAVE642+5, SAVE642+8, 642+4 |
| ^LAHM(62.8 - [#62.8] | 628+6, 628+7 |
| ^LAHM(62.85 - [#62.85] | 6285+4 |
| ^LAHM(62.9 - [#62.9] | 629+6, 629+7 |
| ^LAM - [#64] | 6402+3, 6402+4 |
| ^LRO(68.2 - [#68.2] | 682+4 |
| ^LRO(69.6 - [#69.6] | 696+5, 696+7 |
| ^XTMP("LR302" | EN+1, EN+4!, EN+5*, 60+2!, 61+2!, 6205+2!, 624+2!, 628+3!, 6285+3!, 629+3! , 642+2!, 682+2!, 696+3!, 696+10*, SAVE+6* |
| ^XTMP("LRNLT642" | SAVE642+3, SAVE642+4!, SAVE642+6*, SAVE642+7*, SAVE642+8* |
| Name | Line Occurrences |
|---|---|
| 642 | 629+11 |
| PRT | 60+1, 61+1, 6205+1, 624+1, 628+1, 6285+1, 629+1, 642+1, 682+1, 696+1 |
| SAVE | 60+6, 61+5, 6205+5, 624+5, 628+8, 628+9, 6285+5, 629+8, 629+9, 6402+6 , 6402+7, 642+5, 682+5, 696+6, 696+8 |
| Name | Field # of Occurrence |
|---|---|
| ^(69.64 | 696+3! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | EN+5, SAVE642+7 |
| ERR | EN+7~, 61+2!, 6205+2!, 628+2!, 6285+2!, 629+2!, 6402+1~, SAVE+1! |
| FILE | EN+7~, SAVE~, SAVE+3, SAVE+5, SAVE+6, PRT~, PRT+1 |
| FLD | EN+7~, 60+2!, 60+3*, 60+6, 61+3*, 61+5, 6205+3*, 6205+5, 624+2!, 624+3* , 624+5, 628+2!, 628+5*, 628+8, 6285+2!, 6285+4*, 6285+5, 629+2!, 629+4*, 629+8 , 642+2!, 642+3*, 642+5, 682+2!, 682+3*, 682+5, 696+2!, 696+4*, 696+6, SAVE~ , SAVE+3, SAVE+4 |
| FLD2 | EN+7~, 6402+1~, 6402+2*, 6402+7, 696+2!, 696+4*, 696+8 |
| FLD9 | EN+7~, 628+2!, 628+4*, 628+9, 629+2!, 629+5*, 629+9 |
| FLDP | EN+7~, SAVE+1!, SAVE+4* |
| FLDV | EN+7~, 628+2!, SAVE+1!, SAVE+4*, SAVE+5, SAVE+6 |
| IEN | EN+7~, 60+2!, 60+4*, 60+5, 60+6, 624+2!, 624+4*, 624+5, 628+4*, 628+6* , 628+7, 628+8, 6285+2!, 6285+4*, 6285+5, 629+2!, 629+5*, 629+6*, 629+7, 629+8 , 642+2!, 642+4*, 642+5, 682+2!, 682+4*, 682+5, 696+2!, 696+4*, 696+5*, 696+6 , 696+7, 696+8, SAVE+2 |
| IEN2 | EN+7~, 60+2!, 60+5*, 60+6, 628+7*, 628+8, 629+2!, 629+7*, 629+8, 6402+1~ , 6402+5*, 6402+6, 6402+7, 696+2!, 696+7*, 696+8 |
| IENX | 628+2!, 628+8*, 628+9, 629+2!, 629+8*, 629+9, SAVE~, SAVE+3, SAVE+5, SAVE+6 |
| LAST | SAVE642+2~, SAVE642+5*, SAVE642+6 |
| LNC | EN+7~, SAVE~, SAVE+6 |
| LRD | EN+7~, 6402+1~ |
| >> LRDBUG | EN+4, 60+7, 61+6, 6205+6, 624+6, 628+10, 6285+6, 629+10, 642+6, 682+6 , 696+9 |
| LRI | EN+7~, 61+4*, 61+5, 6205+3*, 6205+4*, 6205+5, 6402+3, 6402+4, 6402+5 |
| LRI2 | EN+7~, 6402+1~, 6402+3*, 6402+4, 6402+5 |
| LRI3 | EN+7~, 6402+1~, 6402+4*, 6402+5 |
| OUT | EN+7~, 61+2!, 6205+2!, 628+2!, 6285+2!, 629+2!, 6402+1~, SAVE+1! |
| OUT( | SAVE+5 |
| U | EN+5, SAVE642+7, 696+10 |
| VAL | 628+2!, SAVE+1!, SAVE+5*, SAVE+6 |