©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
ASUAWXT ;DSD/DFM - EXTRACT TRANS - CONVERT TO DDPS FORMAT ; [ 04/15/98 3:00 PM ]
Source file <ASUAWXT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OPNHFS | ;EP;FOR RE-EXTRACT//^ASUAWXTW
|
|
| BEGIN | ;EP;FOR RE-EXTRACT//^ASUAWXTW
|
|
| SAVE | ;EP; SAVE GLOBAL
|
|
| SV1 | ;EP ;
|
| Name | Field # of Occurrence |
|---|---|
| ^%ZIS | BEGIN+2 |
| SETAREA^ASUAUARE | OPNHFS+48 |
| LOG^ASUAUTIL | OPNHFS+17, OPNHFS+39, OPNHFS+40, OPNHFS+41, OPNHFS+44, SAVE+4, SAVE+6, SAVE+11, SAVE+13 |
| ^ASUAWBTS | OPNHFS+3 |
| ^ASUAWXT1 | OPNHFS+31 |
| ^ASUAWXT2 | OPNHFS+51, OPNHFS+53 |
| REXT2^ASUAWXTW | BEGIN+6 |
| ^AUGSAVE | SAVE+2, SAVE+9 |
| ^DIE | OPNHFS+34 |
| ^DIR | OPNHFS+55 |
| ^XBKVAR | BEGIN+1 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ASUPDATA | OPNHFS+4! |
| ^ASUPDATA(0 | OPNHFS+49* |
| ^ASUTLRUN(1 | BEGIN+5, OPNHFS+51*, OPNHFS+53* |
| ^ASUXCTRL( | OPNHFS+11, OPNHFS+12, OPNHFS+13, OPNHFS+36*, OPNHFS+37*, OPNHFS+39 |
| Name | Line Occurrences |
|---|---|
| SAVE | OPNHFS+54 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ASU("AUFLG" | SAVE+5*, SAVE+6, SAVE+12*, SAVE+13 |
| ASU0 | OPNHFS+56! |
| ASU1 | OPNHFS+56! |
| ASU2 | OPNHFS+56! |
| ASUC | OPNHFS+56! |
| ASUC( | OPNHFS+35*, OPNHFS+36 |
| ASUC("ACCUMUL | ATE COUNT" , OPNHFS+7*, OPNHFS+35, OPNHFS+38* |
| ASUC("TOT PRO | C" , OPNHFS+7*, OPNHFS+33*, OPNHFS+41 |
| ASUC("TOT REC | COUNT" , OPNHFS+7*, OPNHFS+35, OPNHFS+38, OPNHFS+42, OPNHFS+47, OPNHFS+49 |
| ASUC(0 | OPNHFS+7*, OPNHFS+9* |
| ASUFTAPE | OPNHFS+56! |
| ASUG | OPNHFS+56! |
| ASUG("AREA CO | DE PIECE #" , OPNHFS+13* |
| ASUG("FILE NU | MBER" , OPNHFS+8*, OPNHFS+10, OPNHFS+11, OPNHFS+12, OPNHFS+13, OPNHFS+35, OPNHFS+36, OPNHFS+37, OPNHFS+39 |
| ASUG("FIND RE | CORD" , OPNHFS+27*, OPNHFS+29 |
| ASUG("FIND ST | ATUS" , OPNHFS+26*, OPNHFS+28 |
| ASUG("SAVE NO | DE" , OPNHFS+10* |
| ASUG("TRAN CO | DE PIECE #" , OPNHFS+12* |
| ASUG("TRAN GL | OBAL" , OPNHFS+11*, OPNHFS+14, OPNHFS+26, OPNHFS+27 |
| ASUG("ZERO NO | DE" , OPNHFS+14*, OPNHFS+15, OPNHFS+16 |
| >> ASUK("AREA NA | ME" , OPNHFS+49 |
| >> ASUK("ASUFAC" | OPNHFS+49 |
| >> ASUK("PRINT Q | UEUED" , OPNHFS+55 |
| >> ASUK("WAREHOUSE" | OPNHFS+2*, OPNHFS+3, OPNHFS+17, OPNHFS+31, OPNHFS+39, OPNHFS+50, SV1+2*, SAVE+1 |
| ASULNPAD | OPNHFS+6*, OPNHFS+56! |
| ASUNPAD | OPNHFS+56! |
| ASUT | OPNHFS+56! |
| >> ASUTRX | OPNHFS+17*, OPNHFS+39*, OPNHFS+40*, OPNHFS+41*, OPNHFS+43*, OPNHFS+47*, SAVE+4*, SAVE+6*, SAVE+11*, SAVE+13* |
| ASUV | OPNHFS+58! |
| ASUW | OPNHFS+58! |
| ASUW("RUN TYP | E" , BEGIN+3*, BEGIN+4*, OPNHFS+51, OPNHFS+58 |
| ASUW("SAVE ME | DIUM" , OPNHFS+1*, OPNHFS+54 |
| ASUW("TYPE LA | ST RUN" , BEGIN+5*, BEGIN+6, OPNHFS+1, OPNHFS+18, OPNHFS+23 |
| ASUX | OPNHFS+56! |
| ASUX("EXTR FL | AG" , OPNHFS+30*, OPNHFS+34 |
| ASUX("EXTRACT | DATE" , BEGIN+7*, OPNHFS+20, OPNHFS+34, OPNHFS+37, OPNHFS+49, OPNHFS+51, OPNHFS+53 |
| ASUX("FILE NA | ME" , OPNHFS+16*, OPNHFS+17, OPNHFS+39 |
| ASUX("READ ST | ATUS" , OPNHFS+20*, OPNHFS+21*, OPNHFS+23*, OPNHFS+24, OPNHFS+28* |
| ASUX("RECORD | #" , OPNHFS+25*, OPNHFS+29*, OPNHFS+30 |
| ASUX("SORT XR | EF" , OPNHFS+18*, OPNHFS+19, OPNHFS+32 |
| ASUX("STATUS" | OPNHFS+20*, OPNHFS+24*, OPNHFS+28 |
| AUFLG | SAVE+3, SAVE+7!, SAVE+10, SAVE+14! |
| AUFLG( | SAVE+5, SAVE+6, SAVE+12, SAVE+13 |
| AUGL | OPNHFS+56!, SAVE+2*!, SAVE+9*! |
| >> AUMED | OPNHFS+54*, SV1+1*, SAVE+9* |
| >> AUUF | SV1+1* |
| DA | OPNHFS+30*, OPNHFS+57! |
| DIE | OPNHFS+15*, OPNHFS+57! |
| >> DIR(0 | OPNHFS+55* |
| DIROUT | OPNHFS+57! |
| DR | OPNHFS+34*, OPNHFS+57! |
| DT | BEGIN+7 |
| DTOUT | OPNHFS+57! |
| DUOUT | OPNHFS+57! |
| IO(0 | BEGIN+2 |
| >> IOP | BEGIN+2* |
| U | BEGIN+1, BEGIN+6, OPNHFS+1, OPNHFS+11, OPNHFS+12, OPNHFS+13, OPNHFS+15, OPNHFS+16, OPNHFS+18, OPNHFS+23 , OPNHFS+36, OPNHFS+37, OPNHFS+39, OPNHFS+49, OPNHFS+51, OPNHFS+53 |