- APCDVAR ; IHS/CMI/LAB - SET UP SITE PARAMETER VARS ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- I '$D(^APCDSITE(DUZ(2),0)) W !!,"The DATA ENTRY Site Parameters have not been",!,"established for this facility. PLEASE NOTIFY YOUR SUPERVISOR!",$C(7),$C(7) D DEFAULT,CURRENT,XIT Q
- S APCDPARM=^APCDSITE(DUZ(2),0)
- I $P(APCDPARM,U,2)="U" S AUPNLK("ALL")=""
- I $P(APCDPARM,U,6)="Y" D SETDEF
- ;
- CURRENT D HOME^%ZIS
- S APCDNRV="",APCDX="APCDNRV"
- I $D(IOST(0)) S APCDTRM=$S($D(^%ZIS(2,IOST(0),5)):^(5),1:""),APCDRVON=$S($P(APCDTRM,U,4)]"":$P(APCDTRM,U,4),1:APCDX),APCDRVOF=$S($P(APCDTRM,U,5)]"":$P(APCDTRM,U,5),1:APCDX)
- S:'$D(APCDRVON) (APCDRVON,APCDRVOF)=""
- DUZ ;
- I '$G(DUZ) W !!,"WARNING: User NOT set in DUZ - Use Kernel!!",$C(7),$C(7)
- E K APCDMFI
- XIT ;
- K APCDX,APCDTRM
- Q
- DEFAULT ;EP
- W !!,"Defaulting Site Parameters to the Following: ",!
- W "1) Site Specific Lookup 2) Do Not ask 'Yes' on Visit Creation",!,"3) Display Problem Lists and Historical Data 4) FORMS Tracking OFF ",!,"5) NO Default Values Used",!
- S APCDPARM="^S^N^Y^N^N^Y^Y^"
- Q
- ;
- SETDEF ;
- S APCDDEFL=$P(^APCDSITE(DUZ(2),0),U,9),APCDDEFT=$P(^(0),U,11),APCDDEFS=$P(^(0),U,12),APCDDEFC=$P(^(0),U,13)
- Q
- ERR ;
- W !,$C(7),"Default Values Missing!! Notify your PCC Manager!",! S $P(APCDPARM,U,6)="N"
- Q
- APCDVAR ; IHS/CMI/LAB - SET UP SITE PARAMETER VARS ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 IF '$DATA(^APCDSITE(DUZ(2),0))
- WRITE !!,"The DATA ENTRY Site Parameters have not been",!,"established for this facility. PLEASE NOTIFY YOUR SUPERVISOR!",$CHAR(7),$CHAR(7)
- DO DEFAULT
- DO CURRENT
- DO XIT
- QUIT
- +3 SET APCDPARM=^APCDSITE(DUZ(2),0)
- +4 IF $PIECE(APCDPARM,U,2)="U"
- SET AUPNLK("ALL")=""
- +5 IF $PIECE(APCDPARM,U,6)="Y"
- DO SETDEF
- +6 ;
- CURRENT DO HOME^%ZIS
- +1 SET APCDNRV=""
- SET APCDX="APCDNRV"
- +2 IF $DATA(IOST(0))
- SET APCDTRM=$SELECT($DATA(^%ZIS(2,IOST(0),5)):^(5),1:"")
- SET APCDRVON=$SELECT($PIECE(APCDTRM,U,4)]"":$PIECE(APCDTRM,U,4),1:APCDX)
- SET APCDRVOF=$SELECT($PIECE(APCDTRM,U,5)]"":$PIECE(APCDTRM,U,5),1:APCDX)
- +3 IF '$DATA(APCDRVON)
- SET (APCDRVON,APCDRVOF)=""
- DUZ ;
- +1 IF '$GET(DUZ)
- WRITE !!,"WARNING: User NOT set in DUZ - Use Kernel!!",$CHAR(7),$CHAR(7)
- +2 IF '$TEST
- KILL APCDMFI
- XIT ;
- +1 KILL APCDX,APCDTRM
- +2 QUIT
- DEFAULT ;EP
- +1 WRITE !!,"Defaulting Site Parameters to the Following: ",!
- +2 WRITE "1) Site Specific Lookup 2) Do Not ask 'Yes' on Visit Creation",!,"3) Display Problem Lists and Historical Data 4) FORMS Tracking OFF ",!,"5) NO Default Values Used",!
- +3 SET APCDPARM="^S^N^Y^N^N^Y^Y^"
- +4 QUIT
- +5 ;
- SETDEF ;
- +1 SET APCDDEFL=$PIECE(^APCDSITE(DUZ(2),0),U,9)
- SET APCDDEFT=$PIECE(^(0),U,11)
- SET APCDDEFS=$PIECE(^(0),U,12)
- SET APCDDEFC=$PIECE(^(0),U,13)
- +2 QUIT
- ERR ;
- +1 WRITE !,$CHAR(7),"Default Values Missing!! Notify your PCC Manager!",!
- SET $PIECE(APCDPARM,U,6)="N"
- +2 QUIT
