BARUFCAS ; IHS/SD/TPF - CASHIERING FUNCTIONS FOR UFMS ;04/09/2008
;;1.8;IHS ACCOUNTS RECEIVABLE;**3,4,23**;OCT 26, 2005
Q
;
VIEW ;EP - VIEW UFMS SESSIONS
D INIT
D SHOW("") ;SHOW SESSIONS
Q
;
VIEWHDR(STATUS) ;EP - HEADER FOR VIEWING SESSIONS
W !?6,"SESSION ID",?20,"CASHIER"
W ?36,"DATE "_$S(STATUS="ALL STATUSES":"STATUS CHANGED",STATUS="OPEN":"OPENED",1:STATUS)
W ?62,$S(STATUS="ALL STATUSES":"STATUS",1:""),?73,"ERA\PST"
W !,DASH
Q
;
ALLSTAT(LIST,STATUS) ;EP - CHANGE THE STATUS OF ALL THE SESSIONS IN ARRAY 'LIST' TO STATUS
N UDUZ,SESSID,RC,ERASTAT,POSTING
;
I STATUS="RT"!(STATUS="T") S UDUZ="" D TRANSMIT^BARUFUT(UDUZ,.LIST,STATUS) Q ;IF 'T' OR 'RT' THEN TRANSMIT
;
S REC=""
F S REC=$O(LIST(REC)) Q:'REC D
.S UDUZ=$P(LIST(REC),U)
.S SESSID=$P(LIST(REC),U,2)
.S ERASTAT=$P(LIST(REC),U,3)
.I '$O(^BARSESS(DUZ(2),UDUZ,11,SESSID,2,0)) D Q
..W !!,"CANNOT RECONCILE SESSION ",SESSID
..W !,"THE SESSION HAS NO POSTING ACTIVITY"
..D ASKFORRT^BARUFUT
.I ERASTAT="YES" D Q
..W !!,"CANNOT RECONCILE SESSION ",SESSID
..W !,"THE CASHIER IS ERA POSTING"
..D ASKFORRT^BARUFUT
.;
.S POSTING=$$STILPOST^BARUFUT1(UDUZ)
.I +POSTING=1 D Q ;IS THE USER STILL LOGGED ON OR POSTING?
..W !!,"CANNOT RECONCILE SESSION ",SESSID
..W !,"THE CASHIER IS ",$P(POSTING,U,2)
..D ASKFORRT^BARUFUT
.I +POSTING=2 D Q:'$G(Y)!($D(DTOUT))!($D(DUOUT))
..W !!,"RECONCILING SESSION ",SESSID
..W !,"THE CASHIER IS ",$P(POSTING,U,2)
..K DIR
..S DIR(0)="Y"
..S DIR("B")="Y"
..S DIR("A")="Continue Anyway?"
..D ^DIR
.S RC=$$SETSESS^BARUFUT(UDUZ,SESSID,STATUS)
Q
;
RESEND ;EP - RESEND A FILE
D RESENDF^BARUFUT1()
Q
;
INIT ;EP - INIT COMMON VARIABLES
S $P(DASH,"-",81)=""
Q
;
SHOW(STATUS) ;EP - GENERIC SESSION LISTER
AGAIN ;EP -
D ^BARBAN
S:$G(STATUS)="" STATUS="OPEN"
W !!,"UFMS DISPLAY DATE LIMIT: ",$S($$GETDISLM^BARUFUT1("E")'="":$$GETDISLM^BARUFUT1("E"),1:"NONE SET")
W " ("_$$GET1^DIQ(90052.06,DUZ(2)_",",1504,"I")_")"
W !!,"The following SESSIONS are currently ",STATUS," =>"
D VIEWHDR(STATUS)
I STATUS'="ALL STATUSES",('$D(^BARSESS(DUZ(2),"C",STATUS))) D G ASKSTAT
.W !!!,"THERE ARE NO "_STATUS_" CASHIER SESSIONS"
.D ASKFORRT^BARUFUT
I '$D(^BARSESS(DUZ(2),"C")),(STATUS="ALL STATUSES") D G ASKSTAT
.W !!!,"THERE ARE NO CASHIER SESSIONS WITH A STATUS"
.D ASKFORRT^BARUFUT
S UDUZ=DUZ
K LIST
I STATUS="ALL STATUSES" D G ASK
.S LINE=0
.S TSTATUS=""
.F S TSTATUS=$O(^BARSESS(DUZ(2),"C",TSTATUS)) Q:TSTATUS="" D
..D LOOP(UDUZ,TSTATUS,.LINE,.LIST,STATUS)
S LINE=0
D LOOP(UDUZ,STATUS,.LINE,.LIST,STATUS)
;
I LINE=0 D G ASKSTAT
.W !!!,"THERE ARE NO "_STATUS_" CASHIER SESSIONS"
;
ASK ;EP - ASK FOR ACTION
W !,$G(DASH)
W !
K DIR
S (OPTIONST,VALIDCHK)=""
S DIR("?")="Enter a session number"
I STATUS'="ALL STATUSES",(STATUS="OPEN") D
.S OPTIONST=" or RC/Reconcile all listed sessions"
.S DIR("?")="Enter a session number or an action."
S VALIDCHK="I CHOICE'?1""RC"".E"
S VALIDCHK=VALIDCHK_",(CHOICE'?1""RC""1""@"".E),(STATUS'=""OPEN"")"
S DIR("A")="Select Session Number to View"_OPTIONST
S DIR("?")=DIR("?")_", or press return to choose a different status and/or Quit"
S DIR(0)="FO"
S DIR("?")=DIR("?")_" (Note: You can also choose a range from the displayed list. Separate the range from the Action by an @ sign e.g. RC@1,3,5,10-15 or RC@1-5,7,8,9"
S DIR("A")=DIR("A")_" or Q/Quit"
W !,"Press <RETURN> to change statuses being displayed or,"
D ^DIR
Q:($D(DTOUT))!($D(DUOUT))
Q:(U_"Q"_U_"q"_U)[(U_Y_U)
G ASKSTAT:Y=""
I +Y=Y D G AGAIN
.S CHOICE=+Y
.I '$D(LIST(CHOICE)) W !,"Invalid choice!" H 3 Q
.S UDUZ=$P(LIST(CHOICE),U)
.S SESSID=$P(LIST(CHOICE),U,2)
.S ERASTAT=$P(LIST(CHOICE),U,3)
.D DISPLAYT^BARUFLOG(UDUZ,SESSID,"CASHIER",ERASTAT)
;
S CHOICE=$$UPC^BARUTL(Y)
I CHOICE'="",(STATUS="ALL STATUSES") D G AGAIN
.W !,"INVALID CHOICE!" H 3
I CHOICE'="",(STATUS'="ALL STATUSES") D G AGAIN
.X VALIDCHK I $T W !,"INVALID CHOICE!" H 3 Q
.S RANGE=$P(CHOICE,"@",2)
.S:RANGE'="" RANGE=$$RANGE^BARUFUT1(RANGE)
.D:RANGE'="" EXCLLST^BARUFUT1(RANGE,.LIST)
.S CHOICE=$P(CHOICE,"@")
.D ALLSTAT(.LIST,CHOICE) ;CHANGE ALL THE STATUSES WITHIN THE 'LIST' ARRAY
;
ASKSTAT ;EP - ASK STATUS TO VIEW
N CNTS
K STATCNTS
;D CNTSTATS^BARUFUT1(.STATCNTS)
D CNTSTATS^BARUFUT1(.STATCNTS,DUZ) ;BAR*1.8*4 IM26064
K DIR
S DIR("A")="View which session status"
S DIR(0)="SO^O:OPEN" I $G(STATCNTS("OPEN"))'="" S DIR(0)=DIR(0)_" ("_$G(STATCNTS("OPEN"))_")"
S DIR(0)=DIR(0)_";RC:RECONCILED" I $G(STATCNTS("RECONCILED"))'="" S DIR(0)=DIR(0)_" ("_$G(STATCNTS("RECONCILED"))_")"
S DIR(0)=DIR(0)_";RV:REVIEWED/APPROVED" I $G(STATCNTS("REVIEWED/APPROVED"))'="" S DIR(0)=DIR(0)_" ("_$G(STATCNTS("REVIEWED/APPROVED"))_")"
S DIR(0)=DIR(0)_";T:TRANSMITTED" I $G(STATCNTS("TRANSMITTED"))'="" S DIR(0)=DIR(0)_" ("_$G(STATCNTS("TRANSMITTED"))_")"
S DIR(0)=DIR(0)_";RT:RETRANSMITTED" I $G(STATCNTS("RETRANSMITTED"))'="" S DIR(0)=DIR(0)_" ("_$G(STATCNTS("RETRANSMITTED"))_")"
S DIR(0)=DIR(0)_";ALL:ALL STATUSES" I $G(STATCNTS("ALL STATUSES"))'="" S DIR(0)=DIR(0)_" ("_$G(STATCNTS("ALL STATUSES"))_")"
S DIR(0)=DIR(0)_";Q:QUIT"
K STATCNTS
D ^DIR
G:Y="" AGAIN
I $D(DIRUT)!($D(DTOUT))!($D(DIRUT))!(Y="Q") Q
I Y(0)'[("ALL") S STATUS=$P(Y(0)," ")
E S STATUS=$P(Y(0)," ",1,2)
G AGAIN
Q
;
LOOP(UDUZ,STAT,LINE,LIST,PRTSTAT) ;EP - GET DATA FROM SESSION LEVEL
N SESSID,CNT,ERASTAT,RTCOUNT,CURSTAT
S SESSID=$$GETDISLM^BARUFUT1("I")-.01
F CNT=1:1 S SESSID=$O(^BARSESS(DUZ(2),"C",STAT,UDUZ,SESSID)) Q:SESSID="" D
.S LINE=LINE+1
.S IENS=SESSID_","_UDUZ_","
.S CURSTAT=$$GET1^DIQ(90057.11,IENS,.02,"E")
.S STATDATE=$$GET1^DIQ(90057.11,IENS,.03,"E")
.S ERASTAT=$E($$GET1^DIQ(90057.11,IENS,.04,"E"))
.S POSTING=$$STILPOST^BARUFUT1(UDUZ)
.S Y=STATDATE X ^DD("DD") S STATDATE=Y
.S CASHIER=$P($G(^VA(200,UDUZ,0)),U)
.I STAT="RETRANSMITTED" S RTCOUNT=$$RTCOUNT^BARUFUT1(UDUZ,SESSID)
.S LIST(LINE)=UDUZ_U_SESSID_U_ERASTAT
.I $P(SESSID,".")=$$GETDISLM^BARUFUT1("I"),(CURSTAT="OPEN") D EN^XBVIDEO("RVN")
.W !,LINE,"."
.W ?3,SESSID,?20,$E(CASHIER,1,15),?36,STATDATE
.D EN^XBVIDEO("RVF")
.W:STAT="RETRANSMITTED" "(",RTCOUNT,")"
.W ?58,$S(PRTSTAT="ALL STATUSES":$E(STAT,1,14),1:""),?72,$S(+POSTING&(STAT="OPEN"):"*",1:""),?75,ERASTAT,?76,"\",?77,$S(+POSTING=1&(CURSTAT="OPEN"):"Y",1:"")
Q
BARUFCAS ; IHS/SD/TPF - CASHIERING FUNCTIONS FOR UFMS ;04/09/2008
+1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**3,4,23**;OCT 26, 2005
+2 QUIT
+3 ;
VIEW ;EP - VIEW UFMS SESSIONS
+1 DO INIT
+2 ;SHOW SESSIONS
DO SHOW("")
+3 QUIT
+4 ;
VIEWHDR(STATUS) ;EP - HEADER FOR VIEWING SESSIONS
+1 WRITE !?6,"SESSION ID",?20,"CASHIER"
+2 WRITE ?36,"DATE "_$SELECT(STATUS="ALL STATUSES":"STATUS CHANGED",STATUS="OPEN":"OPENED",1:STATUS)
+3 WRITE ?62,$SELECT(STATUS="ALL STATUSES":"STATUS",1:""),?73,"ERA\PST"
+4 WRITE !,DASH
+5 QUIT
+6 ;
ALLSTAT(LIST,STATUS) ;EP - CHANGE THE STATUS OF ALL THE SESSIONS IN ARRAY 'LIST' TO STATUS
+1 NEW UDUZ,SESSID,RC,ERASTAT,POSTING
+2 ;
+3 ;IF 'T' OR 'RT' THEN TRANSMIT
IF STATUS="RT"!(STATUS="T")
SET UDUZ=""
DO TRANSMIT^BARUFUT(UDUZ,.LIST,STATUS)
QUIT
+4 ;
+5 SET REC=""
+6 FOR
SET REC=$ORDER(LIST(REC))
IF 'REC
QUIT
Begin DoDot:1
+7 SET UDUZ=$PIECE(LIST(REC),U)
+8 SET SESSID=$PIECE(LIST(REC),U,2)
+9 SET ERASTAT=$PIECE(LIST(REC),U,3)
+10 IF '$ORDER(^BARSESS(DUZ(2),UDUZ,11,SESSID,2,0))
Begin DoDot:2
+11 WRITE !!,"CANNOT RECONCILE SESSION ",SESSID
+12 WRITE !,"THE SESSION HAS NO POSTING ACTIVITY"
+13 DO ASKFORRT^BARUFUT
End DoDot:2
QUIT
+14 IF ERASTAT="YES"
Begin DoDot:2
+15 WRITE !!,"CANNOT RECONCILE SESSION ",SESSID
+16 WRITE !,"THE CASHIER IS ERA POSTING"
+17 DO ASKFORRT^BARUFUT
End DoDot:2
QUIT
+18 ;
+19 SET POSTING=$$STILPOST^BARUFUT1(UDUZ)
+20 ;IS THE USER STILL LOGGED ON OR POSTING?
IF +POSTING=1
Begin DoDot:2
+21 WRITE !!,"CANNOT RECONCILE SESSION ",SESSID
+22 WRITE !,"THE CASHIER IS ",$PIECE(POSTING,U,2)
+23 DO ASKFORRT^BARUFUT
End DoDot:2
QUIT
+24 IF +POSTING=2
Begin DoDot:2
+25 WRITE !!,"RECONCILING SESSION ",SESSID
+26 WRITE !,"THE CASHIER IS ",$PIECE(POSTING,U,2)
+27 KILL DIR
+28 SET DIR(0)="Y"
+29 SET DIR("B")="Y"
+30 SET DIR("A")="Continue Anyway?"
+31 DO ^DIR
End DoDot:2
IF '$GET(Y)!($DATA(DTOUT))!($DATA(DUOUT))
QUIT
+32 SET RC=$$SETSESS^BARUFUT(UDUZ,SESSID,STATUS)
End DoDot:1
+33 QUIT
+34 ;
RESEND ;EP - RESEND A FILE
+1 DO RESENDF^BARUFUT1()
+2 QUIT
+3 ;
INIT ;EP - INIT COMMON VARIABLES
+1 SET $PIECE(DASH,"-",81)=""
+2 QUIT
+3 ;
SHOW(STATUS) ;EP - GENERIC SESSION LISTER
AGAIN ;EP -
+1 DO ^BARBAN
+2 IF $GET(STATUS)=""
SET STATUS="OPEN"
+3 WRITE !!,"UFMS DISPLAY DATE LIMIT: ",$SELECT($$GETDISLM^BARUFUT1("E")'="":$$GETDISLM^BARUFUT1("E"),1:"NONE SET")
+4 WRITE " ("_$$GET1^DIQ(90052.06,DUZ(2)_",",1504,"I")_")"
+5 WRITE !!,"The following SESSIONS are currently ",STATUS," =>"
+6 DO VIEWHDR(STATUS)
+7 IF STATUS'="ALL STATUSES"
IF ('$DATA(^BARSESS(DUZ(2),"C",STATUS)))
Begin DoDot:1
+8 WRITE !!!,"THERE ARE NO "_STATUS_" CASHIER SESSIONS"
+9 DO ASKFORRT^BARUFUT
End DoDot:1
GOTO ASKSTAT
+10 IF '$DATA(^BARSESS(DUZ(2),"C"))
IF (STATUS="ALL STATUSES")
Begin DoDot:1
+11 WRITE !!!,"THERE ARE NO CASHIER SESSIONS WITH A STATUS"
+12 DO ASKFORRT^BARUFUT
End DoDot:1
GOTO ASKSTAT
+13 SET UDUZ=DUZ
+14 KILL LIST
+15 IF STATUS="ALL STATUSES"
Begin DoDot:1
+16 SET LINE=0
+17 SET TSTATUS=""
+18 FOR
SET TSTATUS=$ORDER(^BARSESS(DUZ(2),"C",TSTATUS))
IF TSTATUS=""
QUIT
Begin DoDot:2
+19 DO LOOP(UDUZ,TSTATUS,.LINE,.LIST,STATUS)
End DoDot:2
End DoDot:1
GOTO ASK
+20 SET LINE=0
+21 DO LOOP(UDUZ,STATUS,.LINE,.LIST,STATUS)
+22 ;
+23 IF LINE=0
Begin DoDot:1
+24 WRITE !!!,"THERE ARE NO "_STATUS_" CASHIER SESSIONS"
End DoDot:1
GOTO ASKSTAT
+25 ;
ASK ;EP - ASK FOR ACTION
+1 WRITE !,$GET(DASH)
+2 WRITE !
+3 KILL DIR
+4 SET (OPTIONST,VALIDCHK)=""
+5 SET DIR("?")="Enter a session number"
+6 IF STATUS'="ALL STATUSES"
IF (STATUS="OPEN")
Begin DoDot:1
+7 SET OPTIONST=" or RC/Reconcile all listed sessions"
+8 SET DIR("?")="Enter a session number or an action."
End DoDot:1
+9 SET VALIDCHK="I CHOICE'?1""RC"".E"
+10 SET VALIDCHK=VALIDCHK_",(CHOICE'?1""RC""1""@"".E),(STATUS'=""OPEN"")"
+11 SET DIR("A")="Select Session Number to View"_OPTIONST
+12 SET DIR("?")=DIR("?")_", or press return to choose a different status and/or Quit"
+13 SET DIR(0)="FO"
+14 SET DIR("?")=DIR("?")_" (Note: You can also choose a range from the displayed list. Separate the range from the Action by an @ sign e.g. RC@1,3,5,10-15 or RC@1-5,7,8,9"
+15 SET DIR("A")=DIR("A")_" or Q/Quit"
+16 WRITE !,"Press <RETURN> to change statuses being displayed or,"
+17 DO ^DIR
+18 IF ($DATA(DTOUT))!($DATA(DUOUT))
QUIT
+19 IF (U_"Q"_U_"q"_U)[(U_Y_U)
QUIT
+20 IF Y=""
GOTO ASKSTAT
+21 IF +Y=Y
Begin DoDot:1
+22 SET CHOICE=+Y
+23 IF '$DATA(LIST(CHOICE))
WRITE !,"Invalid choice!"
HANG 3
QUIT
+24 SET UDUZ=$PIECE(LIST(CHOICE),U)
+25 SET SESSID=$PIECE(LIST(CHOICE),U,2)
+26 SET ERASTAT=$PIECE(LIST(CHOICE),U,3)
+27 DO DISPLAYT^BARUFLOG(UDUZ,SESSID,"CASHIER",ERASTAT)
End DoDot:1
GOTO AGAIN
+28 ;
+29 SET CHOICE=$$UPC^BARUTL(Y)
+30 IF CHOICE'=""
IF (STATUS="ALL STATUSES")
Begin DoDot:1
+31 WRITE !,"INVALID CHOICE!"
HANG 3
End DoDot:1
GOTO AGAIN
+32 IF CHOICE'=""
IF (STATUS'="ALL STATUSES")
Begin DoDot:1
+33 XECUTE VALIDCHK
IF $TEST
WRITE !,"INVALID CHOICE!"
HANG 3
QUIT
+34 SET RANGE=$PIECE(CHOICE,"@",2)
+35 IF RANGE'=""
SET RANGE=$$RANGE^BARUFUT1(RANGE)
+36 IF RANGE'=""
DO EXCLLST^BARUFUT1(RANGE,.LIST)
+37 SET CHOICE=$PIECE(CHOICE,"@")
+38 ;CHANGE ALL THE STATUSES WITHIN THE 'LIST' ARRAY
DO ALLSTAT(.LIST,CHOICE)
End DoDot:1
GOTO AGAIN
+39 ;
ASKSTAT ;EP - ASK STATUS TO VIEW
+1 NEW CNTS
+2 KILL STATCNTS
+3 ;D CNTSTATS^BARUFUT1(.STATCNTS)
+4 ;BAR*1.8*4 IM26064
DO CNTSTATS^BARUFUT1(.STATCNTS,DUZ)
+5 KILL DIR
+6 SET DIR("A")="View which session status"
+7 SET DIR(0)="SO^O:OPEN"
IF $GET(STATCNTS("OPEN"))'=""
SET DIR(0)=DIR(0)_" ("_$GET(STATCNTS("OPEN"))_")"
+8 SET DIR(0)=DIR(0)_";RC:RECONCILED"
IF $GET(STATCNTS("RECONCILED"))'=""
SET DIR(0)=DIR(0)_" ("_$GET(STATCNTS("RECONCILED"))_")"
+9 SET DIR(0)=DIR(0)_";RV:REVIEWED/APPROVED"
IF $GET(STATCNTS("REVIEWED/APPROVED"))'=""
SET DIR(0)=DIR(0)_" ("_$GET(STATCNTS("REVIEWED/APPROVED"))_")"
+10 SET DIR(0)=DIR(0)_";T:TRANSMITTED"
IF $GET(STATCNTS("TRANSMITTED"))'=""
SET DIR(0)=DIR(0)_" ("_$GET(STATCNTS("TRANSMITTED"))_")"
+11 SET DIR(0)=DIR(0)_";RT:RETRANSMITTED"
IF $GET(STATCNTS("RETRANSMITTED"))'=""
SET DIR(0)=DIR(0)_" ("_$GET(STATCNTS("RETRANSMITTED"))_")"
+12 SET DIR(0)=DIR(0)_";ALL:ALL STATUSES"
IF $GET(STATCNTS("ALL STATUSES"))'=""
SET DIR(0)=DIR(0)_" ("_$GET(STATCNTS("ALL STATUSES"))_")"
+13 SET DIR(0)=DIR(0)_";Q:QUIT"
+14 KILL STATCNTS
+15 DO ^DIR
+16 IF Y=""
GOTO AGAIN
+17 IF $DATA(DIRUT)!($DATA(DTOUT))!($DATA(DIRUT))!(Y="Q")
QUIT
+18 IF Y(0)'[("ALL")
SET STATUS=$PIECE(Y(0)," ")
+19 IF '$TEST
SET STATUS=$PIECE(Y(0)," ",1,2)
+20 GOTO AGAIN
+21 QUIT
+22 ;
LOOP(UDUZ,STAT,LINE,LIST,PRTSTAT) ;EP - GET DATA FROM SESSION LEVEL
+1 NEW SESSID,CNT,ERASTAT,RTCOUNT,CURSTAT
+2 SET SESSID=$$GETDISLM^BARUFUT1("I")-.01
+3 FOR CNT=1:1
SET SESSID=$ORDER(^BARSESS(DUZ(2),"C",STAT,UDUZ,SESSID))
IF SESSID=""
QUIT
Begin DoDot:1
+4 SET LINE=LINE+1
+5 SET IENS=SESSID_","_UDUZ_","
+6 SET CURSTAT=$$GET1^DIQ(90057.11,IENS,.02,"E")
+7 SET STATDATE=$$GET1^DIQ(90057.11,IENS,.03,"E")
+8 SET ERASTAT=$EXTRACT($$GET1^DIQ(90057.11,IENS,.04,"E"))
+9 SET POSTING=$$STILPOST^BARUFUT1(UDUZ)
+10 SET Y=STATDATE
XECUTE ^DD("DD")
SET STATDATE=Y
+11 SET CASHIER=$PIECE($GET(^VA(200,UDUZ,0)),U)
+12 IF STAT="RETRANSMITTED"
SET RTCOUNT=$$RTCOUNT^BARUFUT1(UDUZ,SESSID)
+13 SET LIST(LINE)=UDUZ_U_SESSID_U_ERASTAT
+14 IF $PIECE(SESSID,".")=$$GETDISLM^BARUFUT1("I")
IF (CURSTAT="OPEN")
DO EN^XBVIDEO("RVN")
+15 WRITE !,LINE,"."
+16 WRITE ?3,SESSID,?20,$EXTRACT(CASHIER,1,15),?36,STATDATE
+17 DO EN^XBVIDEO("RVF")
+18 IF STAT="RETRANSMITTED"
WRITE "(",RTCOUNT,")"
+19 WRITE ?58,$SELECT(PRTSTAT="ALL STATUSES":$EXTRACT(STAT,1,14),1:""),?72,$SELECT(+POSTING&(STAT="OPEN"):"*",1:""),?75,ERASTAT,?76,"\",?77,$SELECT(+POSTING=1&(CURSTAT="OPEN"):"Y",1:"")
End DoDot:1
+20 QUIT
