| 1 | PRPFED2 ;ALTOONA/CTB MISCELLANEOUS EDIT OPTIONS ;11/22/96 4:38 PM
|
|---|
| 2 | V ;;3.0;PATIENT FUNDS;**6**;JUNE 1, 1989
|
|---|
| 3 | LONGREG S DIC(0)="AEQLM",DIC=470,DLAYGO=470 D ^DIC G:Y<0 OUT^PRPFED S DA=+Y,DIE=DIC,DR="[PRPF LONG REGISTRATION]" D ^DIE G LONGREG
|
|---|
| 4 | ;
|
|---|
| 5 | SELDATA S DIC(0)="AEQM",DIC=470 W !! D ^DIC G OUT^PRPFED:Y<0 S DA=$P(Y,U,1),DIE=DIC,DR="[PRPF SELECTED DATA EDIT]" D ^DIE G SELDATA
|
|---|
| 6 | ;
|
|---|
| 7 | SHORTREG S DIC(0)="AEQLM",DIC=470,DLAYGO=470 W !! D ^DIC G:Y<0 OUT^PRPFED S DA=+Y,DIE=DIC,DR="[PRPF SHORT REGISTRATION]" D ^DIE G SHORTREG
|
|---|
| 8 | ;
|
|---|
| 9 | ADDRESS S DIC=470,DIC(0)="AEMN" D ^DIC G:Y<0 OUT^PRPFED S DA=+Y,DIE="^DPT(",DR=".111;.112;.113;.114;.115;.116;.131;.132" D ^DIE G ADDRESS
|
|---|
| 10 | ;
|
|---|
| 11 | GUARDIAN S DIC=470,DIC(0)="AEMN" D ^DIC G:Y<0 OUT^PRPFED S DA=+Y,DIE="^DPT(",DR=".291;.2912;.2914;.2915;.2916;.2917;.2918;.2919;.292;.2922;.2923;.2924;.2925;.2926;.2927;.2928;.2929" D ^DIE G GUARDIAN
|
|---|
| 12 | ;
|
|---|
| 13 | INACT ;EDIT ACCOUNT STATUS
|
|---|
| 14 | S DIC=470,DIC(0)="AEMNQO" D ^DIC I Y>0 S DA=+Y,DIE=DIC,DR="[PRPF INACTIVE/ACTIVE]" D ^DIE W ! G INACT
|
|---|
| 15 | K %,%W,%X,%Y,C,D0,DA,DI,DIYS,DIC,DIE,DQ,DR,I,K,POP,S,X,Y Q
|
|---|
