- PRSEED7 ;HISC/MD/MH-PRSE NON-LOCAL C.E. ATTENDANCE UPDATE CON'T ;MAY 93 [ 01/19/95 2:44 PM ]
- ;;4.0;PAID;;Sep 21, 1995
- ; LAST MODIFIED BY MD 10/19/93
- RECHK ; CHECK M.I. MULTIPLE FOR DUPLICATE ENTRIES
- S NOUT=0,PRSENAM(0)=PRSENAM I $E(PRSENAM)="`" S PRSENAM(0)=$P($G(^PRSE(452.1,+$P(PRSENAM,"`",2),0)),U)
- I $D(^PRSE(452,"AA",PRSESEL,VA200DA,PRSENAM(0),9999999-PRSEDT)) S NDUPSW=1,Y=PRSEDT D DD^%DT W !!,?9,$C(7),PRSESTUD_" has completed "_PRSENAM(0)_" on "_Y,!?9,"Do you want to [D]elete or [E]dit this entry? " D EDTDEL Q:NOUT G:X=-1 RECHK
- S PRSESW=1 Q
- EDTDEL R X:DTIME I '$T!(U[X) Q
- S X=$S(X?1L:$C($A(X)-32),1:X)
- I $S(X["?":1,'(X="E")&'(X="D"):1,1:0) D HELP S X=-1 Q
- W ! S (PRSEDA(1),DA)=+$O(^PRSE(452,"AA",PRSESEL,VA200DA,PRSENAM(0),(9999999-PRSEDT),0)) I X="E" D
- . I (+DA>0) K DR S DIE=452
- . I PRSESEL="M" S DR="2;13;4T;33;2.1;13.5;15;20"
- .E D
- ..S PRSELNG=+$P($G(^PRSE(452,DA,0)),U,16)
- ..S PRSENTR="",DR="2;13;6;4T;4.1;2.1;2.2//^S X=PRSELNG;2.3;"_"D SUPPR^PRSEED12;S:PRSENTR="""" Y=""@4"";"_"2.4///^S X=PRSENTR;D LOC^PRSEED3;13.5///^S X=PRSELOC;@4;11;15;20;I '(PRSESEL=""C"") S Y=""@1"";8;9;9.1;@1;33"
- ..Q
- . D ^DIE
- . I PRSESEL="C" D AAINFO
- . K DIE,DR Q
- I X="D" D
- . S DIK="^PRSE(452," I +DA>0 D ^DIK S NOUT=1
- . W !,"** Entry Deleted **" K DIK
- . Q
- Q
- HELP W !!,$C(7),?9,"Answer 'D' to [D]elete 'E' to [E]dit or Press return to continue:",!
- Q
- VALENT ;
- S PRSEBAD=0 F PRSE1=1:1 S PRSE2=$P(PRX,",",PRSE1) Q:PRSE2="" D VAL0 Q:PRSEBAD
- Q
- VAL0 I +PRSE2>PRSEMAX!(+PRSE2<1) S PRSEBAD=1
- I PRSE2["-",$P(PRSE2,"-")'?.N!($P(PRSE2,"-",2)'?.N)!(+$P(PRSE2,"-",2)>PRSEMAX)!(+$P(PRSE2,"-",2)<1)!(+PRSE2>PRSEMAX)!(+PRSE2<1) S PRSEBAD=1
- I PRSE2'["-",PRSE2'?.N!(+PRSE2>PRSEMAX)!(+PRSE2<1) S PRSEBAD=1
- I (PRX["?"!(PRSEBAD)) D Q
- . W:PRX'?2"?" !!,?5,$C(7),"Make a selection from the screen display, a range of numbers can be",!,?5,"selected by using a HYPHEN, multiple selections can be made by"
- . W !,?5,"separating them by COMMAS, ",$S($G(PRSENALL)'>0:"select ALL ",1:""),"or '^' to exit."
- . W:PRX'?2"?" !,?15,"E.G. 1 1-2 1,3 1-2,4-5 1,3-4"
- . W:$G(PRSENALL)'>0 " ALL"
- . W !,?22,"Are examples of valid selections" S:PRX?2."?" PRSESTRT=1
- . Q
- Q
- AAINFO ;
- W !!,"Are you entering funding and A/A information into the student's record" S %=2 D YN^DICN I %=0 W $C(7),!!,"Answer YES or NO." G AAINFO
- G OUT:'(%=1)
- K DR S DR="7;18;19;16;17;55;66;77",DR(2,452.055)=".01;S:X=""N"" Y=""@1"";1;@1",DR(2,452.066)=".01;S:X=""N"" Y=""@2"";1//;@2" D ^DIE K DIE,DR
- OUT I 'NDUPSW,'NSW W !!?9,PRSENAM(0)," ",PRSESTUD," " S Y=PRSEDT D DT^DIQ S NSW=1
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRSEED7 2630 printed Feb 18, 2025@23:53:03 Page 2
- PRSEED7 ;HISC/MD/MH-PRSE NON-LOCAL C.E. ATTENDANCE UPDATE CON'T ;MAY 93 [ 01/19/95 2:44 PM ]
- +1 ;;4.0;PAID;;Sep 21, 1995
- +2 ; LAST MODIFIED BY MD 10/19/93
- RECHK ; CHECK M.I. MULTIPLE FOR DUPLICATE ENTRIES
- +1 SET NOUT=0
- SET PRSENAM(0)=PRSENAM
- IF $EXTRACT(PRSENAM)="`"
- SET PRSENAM(0)=$PIECE($GET(^PRSE(452.1,+$PIECE(PRSENAM,"`",2),0)),U)
- +2 IF $DATA(^PRSE(452,"AA",PRSESEL,VA200DA,PRSENAM(0),9999999-PRSEDT))
- SET NDUPSW=1
- SET Y=PRSEDT
- DO DD^%DT
- WRITE !!,?9,$CHAR(7),PRSESTUD_" has completed "_PRSENAM(0)_" on "_Y,!?9,"Do you want to [D]elete or [E]dit this entry? "
- DO EDTDEL
- if NOUT
- QUIT
- if X=-1
- GOTO RECHK
- +3 SET PRSESW=1
- QUIT
- EDTDEL READ X:DTIME
- IF '$TEST!(U[X)
- QUIT
- +1 SET X=$SELECT(X?1L:$CHAR($ASCII(X)-32),1:X)
- +2 IF $SELECT(X["?":1,'(X="E")&'(X="D"):1,1:0)
- DO HELP
- SET X=-1
- QUIT
- +3 WRITE !
- SET (PRSEDA(1),DA)=+$ORDER(^PRSE(452,"AA",PRSESEL,VA200DA,PRSENAM(0),(9999999-PRSEDT),0))
- IF X="E"
- Begin DoDot:1
- +4 IF (+DA>0)
- KILL DR
- SET DIE=452
- +5 IF PRSESEL="M"
- SET DR="2;13;4T;33;2.1;13.5;15;20"
- +6 IF '$TEST
- Begin DoDot:2
- +7 SET PRSELNG=+$PIECE($GET(^PRSE(452,DA,0)),U,16)
- +8 SET PRSENTR=""
- SET DR="2;13;6;4T;4.1;2.1;2.2//^S X=PRSELNG;2.3;"_"D SUPPR^PRSEED12;S:PRSENTR="""" Y=""@4"";"_"2.4///^S X=PRSENTR;D LOC^PRSEED3;13.5///^S X=PRSELOC;@4;11;15;20;I '(PRSESEL=""C"") S Y=""@1"";8;9;9.1;@1;33"
- +9 QUIT
- End DoDot:2
- +10 DO ^DIE
- +11 IF PRSESEL="C"
- DO AAINFO
- +12 KILL DIE,DR
- QUIT
- End DoDot:1
- +13 IF X="D"
- Begin DoDot:1
- +14 SET DIK="^PRSE(452,"
- IF +DA>0
- DO ^DIK
- SET NOUT=1
- +15 WRITE !,"** Entry Deleted **"
- KILL DIK
- +16 QUIT
- End DoDot:1
- +17 QUIT
- HELP WRITE !!,$CHAR(7),?9,"Answer 'D' to [D]elete 'E' to [E]dit or Press return to continue:",!
- +1 QUIT
- VALENT ;
- +1 SET PRSEBAD=0
- FOR PRSE1=1:1
- Press return to continue: SET PRSE2=$PIECE(PRX,",",PRSE1)
- if PRSE2=""
- QUIT
- DO VAL0
- if PRSEBAD
- QUIT
- +2 QUIT
- VAL0 IF +PRSE2>PRSEMAX!(+PRSE2<1)
- SET PRSEBAD=1
- +1 IF PRSE2["-"
- IF $PIECE(PRSE2,"-")'?.N!($PIECE(PRSE2,"-",2)'?.N)!(+$PIECE(PRSE2,"-",2)>PRSEMAX)!(+$PIECE(PRSE2,"-",2)<1)!(+PRSE2>PRSEMAX)!(+PRSE2<1)
- SET PRSEBAD=1
- +2 IF PRSE2'["-"
- IF PRSE2'?.N!(+PRSE2>PRSEMAX)!(+PRSE2<1)
- SET PRSEBAD=1
- +3 IF (PRX["?"!(PRSEBAD))
- Begin DoDot:1
- +4 if PRX'?2"?"
- WRITE !!,?5,$CHAR(7),"Make a selection from the screen display, a range of numbers can be",!,?5,"selected by using a HYPHEN, multiple selections can be made by"
- +5 WRITE !,?5,"separating them by COMMAS, ",$SELECT($GET(PRSENALL)'>0:"select ALL ",1:""),"or '^' to exit."
- +6 if PRX'?2"?"
- WRITE !,?15,"E.G. 1 1-2 1,3 1-2,4-5 1,3-4"
- +7 if $GET(PRSENALL)'>0
- WRITE " ALL"
- +8 WRITE !,?22,"Are examples of valid selections"
- if PRX?2."?"
- SET PRSESTRT=1
- +9 QUIT
- End DoDot:1
- QUIT
- +10 QUIT
- AAINFO ;
- +1 WRITE !!,"Are you entering funding and A/A information into the student's record"
- SET %=2
- DO YN^DICN
- IF %=0
- WRITE $CHAR(7),!!,"Answer YES or NO."
- GOTO AAINFO
- +2 if '(%=1)
- GOTO OUT
- +3 KILL DR
- SET DR="7;18;19;16;17;55;66;77"
- SET DR(2,452.055)=".01;S:X=""N"" Y=""@1"";1;@1"
- SET DR(2,452.066)=".01;S:X=""N"" Y=""@2"";1//;@2"
- DO ^DIE
- KILL DIE,DR
- OUT IF 'NDUPSW
- IF 'NSW
- WRITE !!?9,PRSENAM(0)," ",PRSESTUD," "
- SET Y=PRSEDT
- DO DT^DIQ
- SET NSW=1
- +1 QUIT