©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
PSJORMA1 ;BIR/MV-COLLECT MAR DATA FOR U/D AND INPATIENT MED PENDINGS. ; 10 Mar 98 / 8:50 AM
Source file <PSJORMA1.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 2 | TXT^PSGMUTL DRGDISP^PSJLMUT1 |
| Registration | 1 | $$SETSTR^VALM1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DELIM(BSD) | ;* BSD=" ","/","-"
|
|
| TXT(TXT,LEN) | ||
| MARLB2 | ;Slit array into 2 labels.
|
|
| BLANK(LEN) | ;
|
|
| SPLIT | ;* Split a word string into individual words.
|
|
| MARLB(LEN) | ||
| LEN(X1,OLD) | ;* Wrap word around if it doesn't fit the display lenght.
|
| Name | Line Occurrences |
|---|---|
| $$BLANK | MARLB+10, MARLB+16, MARLB+17, MARLB+23, MARLB+24, MARLB+25, MARLB+26 |
| DELIM | SPLIT+5 |
| LEN | SPLIT+6, DELIM+6 |
| MARLB2 | MARLB+29 |
| SPLIT | TXT+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BSD | SPLIT+3~, SPLIT+5*, DELIM~, DELIM+2, DELIM+4, DELIM+5 |
| >> DFN | MARLB+9 |
| DRUGNAME | MARLB+2!, MARLB+9 |
| DRUGNAME( | MARLB+10 |
| INIT | MARLB2+2~, MARLB2+3*, MARLB2+11 |
| L | MARLB+2~, MARLB+3*, MARLB+5, MARLB+6, MARLB+7, MARLB+8*, MARLB+10*, MARLB+12*, MARLB+15*, MARLB+16 , MARLB+18, MARLB+20*, MARLB+27, MARLB+28 |
| LEN | BLANK~, BLANK+2, TXT~, TXT+7, SPLIT+4, SPLIT+6, LEN+2, LEN+4, MARLB~, MARLB+9 , MARLB+11 |
| MARLB | MARLB+2!, MARLB+28*, MARLB+29, MARLB2+3, MARLB2+4, MARLB2+5, MARLB2+7, MARLB2+9, MARLB2+11*, MARLB2+13 , MARLB2+15, MARLB2+17, MARLB2+18* |
| MARLB( | MARLB+5*, MARLB+6*, MARLB+7*, MARLB+10*, MARLB+12*, MARLB+15, MARLB+16, MARLB+18*, MARLB+20*, MARLB+27* , MARLB2+3, MARLB2+4, MARLB2+6*, MARLB2+7*, MARLB2+8*, MARLB2+9*, MARLB2+10*, MARLB2+11*, MARLB2+13, MARLB2+15* , MARLB2+16* |
| MARLB(10 | MARLB2+17* |
| MARLB(5 | MARLB2+14* |
| MARX | TXT+10*, MARLB+13! |
| MARX( | TXT+7*, TXT+9*, MARLB+12 |
| NEW | SPLIT+3~, DELIM+1! |
| NEW( | SPLIT+7, LEN+4*, DELIM+4*, DELIM+5*, DELIM+6, DELIM+7 |
| >> NODE(4 | MARLB+5 |
| OLD | TXT+5~, SPLIT+6!, LEN~, LEN+2, LEN+3, LEN+4, DELIM+7! |
| OLD( | TXT+6, TXT+7, TXT+8, SPLIT+7*, DELIM+2, DELIM+4, DELIM+5, DELIM+7* |
| OLD(0 | SPLIT+5 |
| OLD(1 | SPLIT+4*, SPLIT+5*, SPLIT+6 |
| >> ON | MARLB+5 |
| >> PSGLBS5 | MARLB+7 |
| >> PSGLFD | MARLB+6 |
| >> PSGLNF | MARLB+14, MARLB+24 |
| >> PSGLOD | MARLB+5, MARLB+6 |
| >> PSGLRN | MARLB+17, MARLB+26 |
| >> PSGLRPH | MARLB+16, MARLB+25 |
| >> PSGLSD | MARLB+6 |
| >> PSGLSI | MARLB+11 |
| >> PSGLSM | MARLB+14, MARLB+23 |
| >> PSGLST | MARLB+10 |
| >> PSGLWS | MARLB+14, MARLB+22 |
| >> PSGORD | MARLB+9 |
| >> TS | MARLB+15, MARLB+29, MARLB2+5 |
| TXT | TXT~, SPLIT+4, SPLIT+5, SPLIT+6, MARLB+2~ |
| X | BLANK+1~, BLANK+2*, BLANK+3, TXT+6*, TXT+7, TXT+8, SPLIT+3~, SPLIT+7*, LEN+1~, LEN+3* , LEN+4*, DELIM+2*, DELIM+4, DELIM+5, DELIM+7*, MARLB+2~, MARLB+10*, MARLB+12*, MARLB+14*, MARLB+15 , MARLB+16*, MARLB+17*, MARLB+18, MARLB+22*, MARLB+23*, MARLB+24*, MARLB+25*, MARLB+26*, MARLB+27, MARLB2+2~ , MARLB2+4*, MARLB2+5*, MARLB2+6, MARLB2+7, MARLB2+8, MARLB2+9*, MARLB2+10*, MARLB2+11, MARLB2+13~*, MARLB2+15* , MARLB2+16* |
| X( | MARLB2+4*, MARLB2+7, MARLB2+9, MARLB2+13*, MARLB2+15, MARLB2+17 |
| X1 | TXT+6*, TXT+7*, TXT+9, TXT+10, SPLIT+3~, LEN~, LEN+4*, DELIM+2*, DELIM+3*, DELIM+4 , DELIM+5, DELIM+6 |
| Y | TXT+6*, TXT+7*, TXT+8*, TXT+9, SPLIT+3~, DELIM+2*, DELIM+4, DELIM+5, MARLB2+2~, MARLB2+3* , MARLB2+7*, MARLB2+9* |