- DGPMGL5 ;ALB/MRL - G&L PARAMETER ENTRY/EDIT; 29 APR 2003
- ;;5.3;Registration;**515,1015**;Aug 13, 1993;Build 21
- EN ;
- D DIS,ASK
- I Y D EDIT G EN
- Q
- ;
- DIS ; -- display params
- S DGPM=$S($D(^DG(43,1,"G")):^("G"),1:""),U="^" D DT^DICRW
- S IOP="HOME" D ^%ZIS K IOP
- W @IOF,!?27,"ENTER/EDIT G&L PARAMETERS",! K I S $P(I,"=",80)="" W I
- W !,"G&L Initialization Date",?43,": " S Y=$P(DGPM,"^",1) X:Y ^DD("DD") W $S(Y]"":Y,1:"NOT SPECIFIED")
- W !,"TSR Initialization Date",?43,": " S Y=$P(DGPM,"^",11) X:Y ^DD("DD") W $S(Y]"":Y,1:"NOT SPECIFIED")
- W !,"SSN Format",?43,": DISPLAY ",$S($P(DGPM,"^",2)=6:"LAST FOUR ONLY",$P(DGPM,"^",2)=1:"ENTIRE SSN",1:"FORMAT UNSPECIFIED")
- W !,"Means Test Copay Applicability Display",?43,": ",$S($P(DGPM,"^",3):"YES",1:"NO")
- W !,"Patient's Treating Specialty (Display)",?43,": ",$S($P(DGPM,"^",4):"YES",1:"NO")
- ;W !,"Display Names in Two or Three Columns",?43,": ",$S($P(DGPM,"^",5)=3:"THREE",1:"TWO")
- W !,"Show Non-Movements on G&L",?43,": ",$S($P(DGPM,"^",6):"YES",1:"NO")
- W !,"Recalculate From (Earliest Date to Recalc)",?43,": " S Y=$P(DGPM,"^",7) X:Y ^DD("DD") W $S(Y]"":Y,1:"UNSPECIFIED")
- W !,"Count Vietnam Vets Remaining",?43,": ",$S($P(DGPM,"^",8):"YES",1:"NO")
- W !,"Count Over 65'S Remaining (patients>65 y/o)",?43,": ",$S($P(DGPM,"^",9):"YES",1:"NO")
- ;W !,"Default Treating Specialty",?43,": ",$S($D(^DIC(45.7,+$P(DGPM,"^",10),0)):$P(^(0),"^",1),1:"NOT SPECIFIED")
- W !,"Days to Maintain G&L Corrections",?43,": ",$S($D(^DG(43,1,0)):+$P(^(0),U,29),1:0)
- K I S $P(I,"=",80)="" W !,I
- K I,DGPM Q
- ;
- ASK ;
- S DIR(0)="Y",DIR("A")="Do you want to edit these parameters",DIR("B")="YES"
- S DIR("?",1)=" 'Yes' to edit the G&L parameters"
- S DIR("?",2)=" 'No' to not edit and quit"
- S DIR("?")=" "
- D ^DIR K DIR
- Q
- ;
- EDIT ; -- edit params
- W ! S DIE="^DG(43,",DA=1 S DR="1000.01;1000.11;1000.02:1000.04;1000.06:1000.09;5.5" D ^DIE
- K DR,DIE,DA,DQ,DG,DE
- Q
- DGPMGL5 ;ALB/MRL - G&L PARAMETER ENTRY/EDIT; 29 APR 2003
- +1 ;;5.3;Registration;**515,1015**;Aug 13, 1993;Build 21
- EN ;
- +1 DO DIS
- DO ASK
- +2 IF Y
- DO EDIT
- GOTO EN
- +3 QUIT
- +4 ;
- DIS ; -- display params
- +1 SET DGPM=$SELECT($DATA(^DG(43,1,"G")):^("G"),1:"")
- SET U="^"
- DO DT^DICRW
- +2 SET IOP="HOME"
- DO ^%ZIS
- KILL IOP
- +3 WRITE @IOF,!?27,"ENTER/EDIT G&L PARAMETERS",!
- KILL I
- SET $PIECE(I,"=",80)=""
- WRITE I
- +4 WRITE !,"G&L Initialization Date",?43,": "
- SET Y=$PIECE(DGPM,"^",1)
- IF Y
- XECUTE ^DD("DD")
- WRITE $SELECT(Y]"":Y,1:"NOT SPECIFIED")
- +5 WRITE !,"TSR Initialization Date",?43,": "
- SET Y=$PIECE(DGPM,"^",11)
- IF Y
- XECUTE ^DD("DD")
- WRITE $SELECT(Y]"":Y,1:"NOT SPECIFIED")
- +6 WRITE !,"SSN Format",?43,": DISPLAY ",$SELECT($PIECE(DGPM,"^",2)=6:"LAST FOUR ONLY",$PIECE(DGPM,"^",2)=1:"ENTIRE SSN",1:"FORMAT UNSPECIFIED")
- +7 WRITE !,"Means Test Copay Applicability Display",?43,": ",$SELECT($PIECE(DGPM,"^",3):"YES",1:"NO")
- +8 WRITE !,"Patient's Treating Specialty (Display)",?43,": ",$SELECT($PIECE(DGPM,"^",4):"YES",1:"NO")
- +9 ;W !,"Display Names in Two or Three Columns",?43,": ",$S($P(DGPM,"^",5)=3:"THREE",1:"TWO")
- +10 WRITE !,"Show Non-Movements on G&L",?43,": ",$SELECT($PIECE(DGPM,"^",6):"YES",1:"NO")
- +11 WRITE !,"Recalculate From (Earliest Date to Recalc)",?43,": "
- SET Y=$PIECE(DGPM,"^",7)
- IF Y
- XECUTE ^DD("DD")
- WRITE $SELECT(Y]"":Y,1:"UNSPECIFIED")
- +12 WRITE !,"Count Vietnam Vets Remaining",?43,": ",$SELECT($PIECE(DGPM,"^",8):"YES",1:"NO")
- +13 WRITE !,"Count Over 65'S Remaining (patients>65 y/o)",?43,": ",$SELECT($PIECE(DGPM,"^",9):"YES",1:"NO")
- +14 ;W !,"Default Treating Specialty",?43,": ",$S($D(^DIC(45.7,+$P(DGPM,"^",10),0)):$P(^(0),"^",1),1:"NOT SPECIFIED")
- +15 WRITE !,"Days to Maintain G&L Corrections",?43,": ",$SELECT($DATA(^DG(43,1,0)):+$PIECE(^(0),U,29),1:0)
- +16 KILL I
- SET $PIECE(I,"=",80)=""
- WRITE !,I
- +17 KILL I,DGPM
- QUIT
- +18 ;
- ASK ;
- +1 SET DIR(0)="Y"
- SET DIR("A")="Do you want to edit these parameters"
- SET DIR("B")="YES"
- +2 SET DIR("?",1)=" 'Yes' to edit the G&L parameters"
- +3 SET DIR("?",2)=" 'No' to not edit and quit"
- +4 SET DIR("?")=" "
- +5 DO ^DIR
- KILL DIR
- +6 QUIT
- +7 ;
- EDIT ; -- edit params
- +1 WRITE !
- SET DIE="^DG(43,"
- SET DA=1
- SET DR="1000.01;1000.11;1000.02:1000.04;1000.06:1000.09;5.5"
- DO ^DIE
- +2 KILL DR,DIE,DA,DQ,DG,DE
- +3 QUIT
