PSGPLXR ;BIR/MLM-EXECUTE PICK LIST XREFS ;28 FEB 96 / 2:45 PM
Source file <PSGPLXR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN535(S1,ACT,XREF,FIELD,OLDV) | ; Update "AC","AU" x-ref for 53.5 (PICK LIST FILE)
|
|
| EN5351(S1,S2,ACT,XREF,FIELD,OLDV) | ; Update "AC","AU" x-refs for 53.51 (PATIENT MULTIPLE)
|
|
| EN5352(S1,S2,S3,ACT,XREF,FIELD,OLDV) | ||
| EN5353(S1,S2,S3,S4,ACT,XREF,FIELD,OLDV) | ||
| SET | ; Gather data needed to update "AC","AU" xref
|
|
| SET2 | ; if this is a "kill", see if a field and old value was passed in
|
|
| SETVAR | ;
|
|
| ENABO(S1,XREF,ACT) | ;Set AB/AO xref for Pick List, Ward Group, & Start date.
|
|
| ENA(S1,ACT) | ; Set A xref for Pick List # and Ward Group.
|
