BWPROC ;IHS/ANMC/MWR/CIA - BW ADD/EDIT BW PROCEDURE;23-Jan-2009 10:35;DU
Source file <BWPROC.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| ERROR1 | ;EP | |
| DATECHK | ;EP | |
| ADDCBE1(BWCBEDA,BWPAPDA) | ;EP | |
| ADDNEW | ;EP | |
| EDIT | ;EP | |
| NEW2(DFN,PCDIEN,DATE,DRSTRG,PREVPAP,DA,ERROR) | ;EP | |
| LKUPPCD(Y) | ;EP | |
| ADDCBE(DFN,BWPAPDA) | ;EP | |
| NEWNT | ;EP | |
| HISTORIC | ;EP | |
| EXIT | ;EP | |
| RADMOD(DA,MSG) | ;EP | |
| CDCUPDT(DA) | ;EP | |
| NEW | ;EP | |
| NEW1 | ;EP | |
| PAPST(DATE) | ; | |
| LABEDIT | ;EP | 
| Name | Field # of Occurrence | 
|---|---|
| DD^%DT | DATECHK+8 | 
| DIC^BWFMAN | NEW1+11, NEW1+34, LKUPPCD+6 | 
| DIE^BWFMAN | HISTORIC+10, CDCUPDT+7, ADDCBE+22, ADDCBE1+16, RADMOD+7 | 
| FILE^BWFMAN | NEW2+26 | 
| EDIT2^BWPROC1 | ADDNEW+8, EDIT+8, ADDCBE+9 | 
| FOLLOWUP^BWPROC1 | ADDNEW+10, EDIT+9 | 
| DIRZ^BWUTL3 | NEW2+10, NEW2+30 | 
| $$ACCSSN^BWUTL5 | NEW2+7 | 
| $$CDC^BWUTL5 | ADDCBE+19 | 
| SETVARS^BWUTL5 | ADDNEW+2, NEW+2, HISTORIC+3, LKUPPCD+3 | 
| TITLE^BWUTL5 | NEW+3, EDIT+3, HISTORIC+5 | 
| KILLALL^BWUTL8 | EXIT+1 | 
| PATLKUP^BWUTL8 | NEWNT+3 | 
| $$GET1^DIQ | PAPST+2, PAPST+3 | 
| ^DIR | NEW1+22, DATECHK+6, DATECHK+30 | 
| $$FMADD^XLFDT | PAPST+5 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^BWSITE - [#9002086.02] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^BWDIAG - [#9002086.31] | ADDCBE1+13 | 
| ^BWPCD - [#9002086.1] | HISTORIC+8, ADDCBE+16, ADDCBE+17, ADDCBE1+7, DATECHK+11 | 
| ^BWPCD("C" | DATECHK+10 | 
| ^BWPN - [#9002086.2] | DATECHK+18 | 
| Name | Line Occurrences | 
|---|---|
| $$PAPST | NEW2+24 | 
| ADDCBE1 | ADDCBE+20 | 
| DATECHK | NEW1+40, ADDCBE+7 | 
| EDIT | LABEDIT+2 | 
| EXIT | ADDNEW+11, EDIT+10, HISTORIC+11, LABEDIT+2 | 
| LKUPPCD | EDIT+4 | 
| NEW | ADDNEW+5 | 
| NEW2 | NEW1+41, ADDCBE+8 | 
| NEWNT | HISTORIC+6 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| A | NEW1+6~, NEW1+7*, NEW1+11, NEW1+30~, NEW1+33*, NEW1+34, LKUPPCD+2~, LKUPPCD+4*, LKUPPCD+6 | 
| BTSDT | PAPST+1~, PAPST+3*, PAPST+4, PAPST+5 | 
| BWCBEDA | ADDCBE1~, ADDCBE1+4, ADDCBE1+7 | 
| >> BWDFN | NEWNT+5*, NEW1+41, DATECHK+10 | 
| BWDT | ADDCBE1+5~, ADDCBE1+9*, ADDCBE1+11*, ADDCBE1+15 | 
| BWDX | ADDCBE1+5~, ADDCBE1+9*, ADDCBE1+11*, ADDCBE1+13*, ADDCBE1+15 | 
| >> BWERROR | NEW1+41, ADDCBE+8, ADDCBE+9 | 
| >> BWLFRT | NEW1+17*, NEW1+24*, NEW2+15 | 
| BWNEW | DATECHK+2~, DATECHK+9*, DATECHK+10, DATECHK+32* | 
| >> BWNOFOL | EDIT+8, LABEDIT+2* | 
| BWPAPDA | ADDCBE~, ADDCBE+16, ADDCBE+17, ADDCBE+20, ADDCBE+22, ADDCBE1~, ADDCBE1+4, ADDCBE1+16 | 
| BWPCDN | NEW1+6~, NEW1+14*, NEW1+18, NEW1+28, NEW1+29, NEW1+41, ADDCBE+4~, ADDCBE+5*, DATECHK+13 | 
| BWPCDT | NEW1+41, ADDCBE+4~, ADDCBE+8, DATECHK+8*, DATECHK+15 | 
| BWPN | HISTORIC+8*, DATECHK+18~*, DATECHK+19, DATECHK+23, DATECHK+25, DATECHK+27 | 
| >> BWPOP | ADDNEW+6, ADDNEW+8, ADDNEW+9, NEWNT+4*, NEW1+11, NEW1+18*, NEW1+28, NEW1+34, NEW1+40, NEW2+30* , EDIT+8, HISTORIC+7, HISTORIC+10, ADDCBE+7, RADMOD+7, LKUPPCD+6, DATECHK+2*, DATECHK+7*, DATECHK+10, DATECHK+31* | 
| >> BWPOP1 | ADDNEW+2*, ADDNEW+4, NEWNT+4*, HISTORIC+3*, HISTORIC+4 | 
| >> BWPPAP | NEW1+27*, NEW1+37*, NEW1+41 | 
| BWTITLE | ADDCBE+4~ | 
| DA | ADDNEW+3~, ADDNEW+7, ADDNEW+8, ADDNEW+10, NEW1+41, NEW2~, NEW2+31*, EDIT+7*, EDIT+8, EDIT+9 , HISTORIC+3~, HISTORIC+7, HISTORIC+8, HISTORIC+10, CDCUPDT~, CDCUPDT+3, CDCUPDT+7, ADDCBE+4~, ADDCBE+8, ADDCBE+9 , ADDCBE+20, ADDCBE+22, RADMOD~, RADMOD+5, RADMOD+7 | 
| DATE | NEW2~, NEW2+15, NEW2+24, PAPST~, PAPST+5 | 
| DEF | PAPST+1~, PAPST+2*, PAPST+5 | 
| DFN | NEW2~, NEW2+14, ADDCBE~, ADDCBE+8 | 
| DIC | ADDNEW+3~, NEW+2!, NEW2+7~ | 
| DIC("?" | NEW1+31*, NEW1+32* | 
| DIE | ADDNEW+3~, HISTORIC+3~ | 
| DIR | NEW1+19~, NEW1+22!, DATECHK+2~, DATECHK+6!, DATECHK+30! | 
| DIR("?" | NEW1+20*, DATECHK+3*, DATECHK+4*, DATECHK+27*, DATECHK+28* | 
| DIR("A" | NEW1+21*, DATECHK+5*, DATECHK+29* | 
| DIR("B" | DATECHK+5*, DATECHK+29* | 
| DIR(0 | NEW1+21*, DATECHK+5*, DATECHK+29* | 
| DIRUT | NEW1+18, NEW1+23, DATECHK+2~, DATECHK+31 | 
| DR | HISTORIC+9*, HISTORIC+10, CDCUPDT+6*, CDCUPDT+7, ADDCBE1+5~, ADDCBE1+15*, ADDCBE1+16, RADMOD+6*, RADMOD+7 | 
| DRSTRG | NEW2~, NEW2+12, NEW2+14*, NEW2+15*, NEW2+20*, NEW2+21*, NEW2+22*, NEW2+24*, NEW2+26 | 
| DT | CDCUPDT+6, RADMOD+6 | 
| DUZ | NEW2+21 | 
| DUZ(2 | NEW2+22, ADDCBE+19, PAPST+2, PAPST+3 | 
| ERROR | NEW2~, NEW2+10*, NEW2+29* | 
| MSG | RADMOD~, RADMOD+6 | 
| N | DATECHK+2~, DATECHK+9*, DATECHK+10*, DATECHK+11 | 
| PCDIEN | NEW2~, NEW2+7, NEW2+14, NEW2+24 | 
| PREVPAP | NEW2~, NEW2+21 | 
| S | NEW1+6~, NEW1+10*, NEW1+11, NEW1+30~, NEW1+33*, NEW1+34 | 
| SCRN | LKUPPCD+2~, LKUPPCD+5*, LKUPPCD+6 | 
| U | HISTORIC+8, ADDCBE+17, ADDCBE1+9, ADDCBE1+13, DATECHK+13, DATECHK+15, DATECHK+17, DATECHK+18, DATECHK+20, DATECHK+22 | 
| >> X | NEW2+7*, NEW2+8, NEW2+26 | 
| Y | ADDNEW+3~, NEWNT+3, NEWNT+4, NEWNT+5, NEW1+11, NEW1+12, NEW1+14, NEW1+24, NEW1+34, NEW1+35 , NEW1+37, NEW2+26, NEW2+28, NEW2+29, NEW2+31, EDIT+4, EDIT+5, EDIT+7, HISTORIC+3~, ADDCBE1+5~ , ADDCBE1+7*, ADDCBE1+9, LKUPPCD~, LKUPPCD+6, DATECHK+2~, DATECHK+7, DATECHK+8, DATECHK+11*, DATECHK+13, DATECHK+15 , DATECHK+17, DATECHK+18, DATECHK+20, DATECHK+22, DATECHK+31 |