PRPFED2.m

PRPFED2 ;ALTOONA/CTB  MISCELLANEOUS EDIT OPTIONS ;11/22/96  4:38 PM

V ;;3.0;PATIENT FUNDS;**6,18**;JUNE 1, 1989;Build 9

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

 ;

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

 ;

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

 ;

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

 ;

GUARDIAN S DIC=2,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

 ;

INACT ;EDIT ACCOUNT STATUS

 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

 K %,%W,%X,%Y,C,D0,DA,DI,DIYS,DIC,DIE,DQ,DR,I,K,POP,S,X,Y Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRPFED2   1078     printed  Apr 09, 2024@21:04:34                                                                                                                                                                                                     Page 2

PRPFED2   ;ALTOONA/CTB  MISCELLANEOUS EDIT OPTIONS ;11/22/96  4:38 PM

V         ;;3.0;PATIENT FUNDS;**6,18**;JUNE 1, 1989;Build 9

LONGREG    SET DIC(0)="AEQLM"

           SET DIC=470

           SET DLAYGO=470

           DO ^DIC

           if Y<0

               GOTO OUT^PRPFED

           SET DA=+Y

           SET DIE=DIC

           SET DR="[PRPF LONG REGISTRATION]"

           DO ^DIE

           GOTO LONGREG

 +1       ;

SELDATA    SET DIC(0)="AEQM"

           SET DIC=470

           WRITE !!

           DO ^DIC

           if Y<0

               GOTO OUT^PRPFED

           SET DA=$PIECE(Y,U,1)

           SET DIE=DIC

           SET DR="[PRPF SELECTED DATA EDIT]"

           DO ^DIE

           GOTO SELDATA

 +1       ;

SHORTREG   SET DIC(0)="AEQLM"

           SET DIC=470

           SET DLAYGO=470

           WRITE !!

           DO ^DIC

           if Y<0

               GOTO OUT^PRPFED

           SET DA=+Y

           SET DIE=DIC

           SET DR="[PRPF SHORT REGISTRATION]"

           DO ^DIE

           GOTO SHORTREG

 +1       ;

ADDRESS    SET DIC=470

           SET DIC(0)="AEMN"

           DO ^DIC

           if Y<0

               GOTO OUT^PRPFED

           SET DA=+Y

           SET DIE="^DPT("

           SET DR=".111;.112;.113;.114;.115;.116;.131;.132"

           DO ^DIE

           GOTO ADDRESS

 +1       ;

GUARDIAN   SET DIC=2

           SET DIC(0)="AEMN"

           DO ^DIC

           if Y<0

               GOTO OUT^PRPFED

           SET DA=+Y

           SET DIE="^DPT("

           SET DR=".291;.2912;.2914;.2915;.2916;.2917;.2918;.2919;.292;.2922;.2923;.2924;.2925;.2926;.2927;.2928;.2929"

           DO ^DIE

           GOTO GUARDIAN

 +1       ;

INACT     ;EDIT ACCOUNT STATUS

 +1        SET DIC=470

           SET DIC(0)="AEMNQO"

           DO ^DIC

           IF Y>0

               SET DA=+Y

               SET DIE=DIC

               SET DR="[PRPF INACTIVE/ACTIVE]"

               DO ^DIE

               WRITE !

               GOTO INACT

 +2        KILL %,%W,%X,%Y,C,D0,DA,DI,DIYS,DIC,DIE,DQ,DR,I,K,POP,S,X,Y

           QUIT