- ABMDELOO ; IHS/ASDST/DMJ - Claim Looping Utility ;
- ;;2.6;IHS 3P BILLING SYSTEM;**9**;NOV 12, 2009
- ;
- ; IHS/DSD/LSL 03/20/98 Set ABMPERM("EDITOR") when looping
- ; through flagged as billable cross-reference to
- ; avoid user being kicked out to menu.
- ;
- ; IHS/SD/SDR - v2.5 p12 - UFMS
- ; If user isn't logged into cashiering session they can't do
- ; this option
- ;
- K ABM,ABMP,ABMPP,DIC,ABMX,ABMV,ABMZ,ABMC,ABMU,ABML,DIROUT,DIRUT,DTOUT,DUOUT
- I $P($G(^ABMDPARM(DUZ(2),1,0)),"^",15)'="Y" D Q
- .W !!?5,*7,"ACCESS to the CLAIM EDITOR is DENIED until SITE PARAMETERS file",!?5,"has been Reviewed!"
- .S DIR(0)="E" D ^DIR K DIR
- S ABMPERM("EDITOR")=1
- ;
- ; var def: ABMPP("STATUS") is defined as the status for looping
- ; where: 0 - looping is active
- ; 1 - looping is completed
- ; 2 - looping is terminated
- ;
- ;start new code abm*2.6*9 NOHEAT - ensure UFMS is setup
- I $P($G(^ABMDPARM(DUZ(2),1,4)),U,15)="" D Q
- .W !!,"* * UFMS SETUP MUST BE DONE BEFORE ANY BILLING FUNCTIONS CAN BE USED! * *",!
- .S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR
- ;end new code
- I $P($G(^ABMDPARM(DUZ(2),1,4)),U,15)=1 D Q:+$G(ABMUOPNS)=0
- .S ABMUOPNS=$$FINDOPEN^ABMUCUTL(DUZ)
- .I +$G(ABMUOPNS)=0 D Q
- ..W !!,"* * YOU MUST SIGN IN TO BE ABLE TO PERFORM BILLING FUNCTIONS! * *",!
- ..S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR
- ;
- D ^ABMDESEL Q:$D(DTOUT)!$D(DUOUT)!$D(DIROUT)
- S ABMPP("STATUS")=0
- S ABMPP("CLM")=0 F S ABMPP("CLM")=$O(^ABMDCLM(DUZ(2),"AS","O",ABMPP("CLM"))) D Q:ABMPP("STATUS")
- .I 'ABMPP("CLM") S ABMPP("STATUS")=1 Q
- .S ABMP("HIT")=0,ABM=ABMPP("CLM") D ^ABMDECHK K ABM Q:'ABMP("HIT")
- .W !!,"LOOPING through CLAIMS with a Status of ROLLED-In Edit Mode...."
- .S ABMPERM("EDITOR")=1
- .S ABMP("CDFN")=ABMPP("CLM") D EXT^ABMDE
- .Q:ABMPP("STATUS")=2
- .D ASK
- G XIT:ABMPP("STATUS")'=1
- S ABMPP("STATUS")=0,ABMPP("TIME1")=$P($H,",",2)
- S ABMPP("CLM")=0 F S ABMPP("CLM")=$O(^ABMDCLM(DUZ(2),"AS","E",ABMPP("CLM"))) D Q:ABMPP("STATUS")
- .I $D(ABMPP("TIME1")) S ABMPP("TIME2")=$P($H,",",2) I ABMPP("TIME2")-ABMPP("TIME1")>5 D WAIT^DICD S ABMPP("TIME1")=ABMPP("TIME2")
- .I 'ABMPP("CLM") S ABMPP("STATUS")=1 Q
- .S ABMP("HIT")=0,ABM=ABMPP("CLM") D ^ABMDECHK K ABM Q:'ABMP("HIT")
- .K ABMPP("TIME1")
- .W !!,"LOOPING through CLAIMS with a Status of IN EDIT MODE...."
- .S ABMPERM("EDITOR")=1
- .S ABMP("CDFN")=ABMPP("CLM") D EXT^ABMDE
- .Q:ABMPP("STATUS")=2
- .D ASK
- .S ABMPP("TIME1")=$P($H,",",2)
- G XIT:ABMPP("STATUS")'=1
- ;
- S ABMPP("STATUS")=0
- S ABMPP("CLM")=0 F S ABMPP("CLM")=$O(^ABMDCLM(DUZ(2),"AS","F",ABMPP("CLM"))) D Q:ABMPP("STATUS")
- .I 'ABMPP("CLM") S ABMPP("STATUS")=1 Q
- .S ABMP("HIT")=0,ABM=ABMPP("CLM") D ^ABMDECHK K ABM Q:'ABMP("HIT")
- .W !!,"LOOPING through CLAIMS with a Status of FLAGGED AS BILLABLE...."
- .S ABMPERM("EDITOR")=1
- .S ABMP("CDFN")=ABMPP("CLM") D EXT^ABMDE
- .Q:ABMPP("STATUS")=2
- .I ABMPP("STATUS") D ASK
- TT G XIT
- ;
- ASK G LOOP:'$D(^XUSEC("ABMDZ MANAGEMENT",DUZ))!'ABMPP("STATUS")
- K DIR W !! S DIR(0)="SO^1:CONTINUE LOOPING;2:DELETE CLAIM;3:QUIT"
- S DIR("A")="Desired ACTION",DIR("B")=1
- D ^DIR K DIR
- I Y'=2 S ABMPP("STATUS")=$S(Y'=1:2,1:0) Q
- S ABMP("CDFN")=ABMPP("CLM") D ENT^ABMDECAN
- ;
- LOOP W ! K DIR S DIR(0)="YO",DIR("A")="Want to Continue LOOPING (Y/N)",DIR("B")="Y" D ^DIR S ABMPP("STATUS")=$S($G(Y):0,1:2)
- Q
- ;
- XIT K ABMPP
- Q
- ABMDELOO ; IHS/ASDST/DMJ - Claim Looping Utility ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;**9**;NOV 12, 2009
- +2 ;
- +3 ; IHS/DSD/LSL 03/20/98 Set ABMPERM("EDITOR") when looping
- +4 ; through flagged as billable cross-reference to
- +5 ; avoid user being kicked out to menu.
- +6 ;
- +7 ; IHS/SD/SDR - v2.5 p12 - UFMS
- +8 ; If user isn't logged into cashiering session they can't do
- +9 ; this option
- +10 ;
- +11 KILL ABM,ABMP,ABMPP,DIC,ABMX,ABMV,ABMZ,ABMC,ABMU,ABML,DIROUT,DIRUT,DTOUT,DUOUT
- +12 IF $PIECE($GET(^ABMDPARM(DUZ(2),1,0)),"^",15)'="Y"
- Begin DoDot:1
- +13 WRITE !!?5,*7,"ACCESS to the CLAIM EDITOR is DENIED until SITE PARAMETERS file",!?5,"has been Reviewed!"
- +14 SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- End DoDot:1
- QUIT
- +15 SET ABMPERM("EDITOR")=1
- +16 ;
- +17 ; var def: ABMPP("STATUS") is defined as the status for looping
- +18 ; where: 0 - looping is active
- +19 ; 1 - looping is completed
- +20 ; 2 - looping is terminated
- +21 ;
- +22 ;start new code abm*2.6*9 NOHEAT - ensure UFMS is setup
- +23 IF $PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,15)=""
- Begin DoDot:1
- +24 WRITE !!,"* * UFMS SETUP MUST BE DONE BEFORE ANY BILLING FUNCTIONS CAN BE USED! * *",!
- +25 SET DIR(0)="E"
- SET DIR("A")="Enter RETURN to Continue"
- DO ^DIR
- KILL DIR
- End DoDot:1
- QUIT
- +26 ;end new code
- +27 IF $PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,15)=1
- Begin DoDot:1
- +28 SET ABMUOPNS=$$FINDOPEN^ABMUCUTL(DUZ)
- +29 IF +$GET(ABMUOPNS)=0
- Begin DoDot:2
- +30 WRITE !!,"* * YOU MUST SIGN IN TO BE ABLE TO PERFORM BILLING FUNCTIONS! * *",!
- +31 SET DIR(0)="E"
- SET DIR("A")="Enter RETURN to Continue"
- DO ^DIR
- KILL DIR
- End DoDot:2
- QUIT
- End DoDot:1
- IF +$GET(ABMUOPNS)=0
- QUIT
- +32 ;
- +33 DO ^ABMDESEL
- IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIROUT)
- QUIT
- +34 SET ABMPP("STATUS")=0
- +35 SET ABMPP("CLM")=0
- FOR
- SET ABMPP("CLM")=$ORDER(^ABMDCLM(DUZ(2),"AS","O",ABMPP("CLM")))
- Begin DoDot:1
- +36 IF 'ABMPP("CLM")
- SET ABMPP("STATUS")=1
- QUIT
- +37 SET ABMP("HIT")=0
- SET ABM=ABMPP("CLM")
- DO ^ABMDECHK
- KILL ABM
- IF 'ABMP("HIT")
- QUIT
- +38 WRITE !!,"LOOPING through CLAIMS with a Status of ROLLED-In Edit Mode...."
- +39 SET ABMPERM("EDITOR")=1
- +40 SET ABMP("CDFN")=ABMPP("CLM")
- DO EXT^ABMDE
- +41 IF ABMPP("STATUS")=2
- QUIT
- +42 DO ASK
- End DoDot:1
- IF ABMPP("STATUS")
- QUIT
- +43 IF ABMPP("STATUS")'=1
- GOTO XIT
- +44 SET ABMPP("STATUS")=0
- SET ABMPP("TIME1")=$PIECE($HOROLOG,",",2)
- +45 SET ABMPP("CLM")=0
- FOR
- SET ABMPP("CLM")=$ORDER(^ABMDCLM(DUZ(2),"AS","E",ABMPP("CLM")))
- Begin DoDot:1
- +46 IF $DATA(ABMPP("TIME1"))
- SET ABMPP("TIME2")=$PIECE($HOROLOG,",",2)
- IF ABMPP("TIME2")-ABMPP("TIME1")>5
- DO WAIT^DICD
- SET ABMPP("TIME1")=ABMPP("TIME2")
- +47 IF 'ABMPP("CLM")
- SET ABMPP("STATUS")=1
- QUIT
- +48 SET ABMP("HIT")=0
- SET ABM=ABMPP("CLM")
- DO ^ABMDECHK
- KILL ABM
- IF 'ABMP("HIT")
- QUIT
- +49 KILL ABMPP("TIME1")
- +50 WRITE !!,"LOOPING through CLAIMS with a Status of IN EDIT MODE...."
- +51 SET ABMPERM("EDITOR")=1
- +52 SET ABMP("CDFN")=ABMPP("CLM")
- DO EXT^ABMDE
- +53 IF ABMPP("STATUS")=2
- QUIT
- +54 DO ASK
- +55 SET ABMPP("TIME1")=$PIECE($HOROLOG,",",2)
- End DoDot:1
- IF ABMPP("STATUS")
- QUIT
- +56 IF ABMPP("STATUS")'=1
- GOTO XIT
- +57 ;
- +58 SET ABMPP("STATUS")=0
- +59 SET ABMPP("CLM")=0
- FOR
- SET ABMPP("CLM")=$ORDER(^ABMDCLM(DUZ(2),"AS","F",ABMPP("CLM")))
- Begin DoDot:1
- +60 IF 'ABMPP("CLM")
- SET ABMPP("STATUS")=1
- QUIT
- +61 SET ABMP("HIT")=0
- SET ABM=ABMPP("CLM")
- DO ^ABMDECHK
- KILL ABM
- IF 'ABMP("HIT")
- QUIT
- +62 WRITE !!,"LOOPING through CLAIMS with a Status of FLAGGED AS BILLABLE...."
- +63 SET ABMPERM("EDITOR")=1
- +64 SET ABMP("CDFN")=ABMPP("CLM")
- DO EXT^ABMDE
- +65 IF ABMPP("STATUS")=2
- QUIT
- +66 IF ABMPP("STATUS")
- DO ASK
- End DoDot:1
- IF ABMPP("STATUS")
- QUIT
- TT GOTO XIT
- +1 ;
- ASK IF '$DATA(^XUSEC("ABMDZ MANAGEMENT",DUZ))!'ABMPP("STATUS")
- GOTO LOOP
- +1 KILL DIR
- WRITE !!
- SET DIR(0)="SO^1:CONTINUE LOOPING;2:DELETE CLAIM;3:QUIT"
- +2 SET DIR("A")="Desired ACTION"
- SET DIR("B")=1
- +3 DO ^DIR
- KILL DIR
- +4 IF Y'=2
- SET ABMPP("STATUS")=$SELECT(Y'=1:2,1:0)
- QUIT
- +5 SET ABMP("CDFN")=ABMPP("CLM")
- DO ENT^ABMDECAN
- +6 ;
- LOOP WRITE !
- KILL DIR
- SET DIR(0)="YO"
- SET DIR("A")="Want to Continue LOOPING (Y/N)"
- SET DIR("B")="Y"
- DO ^DIR
- SET ABMPP("STATUS")=$SELECT($GET(Y):0,1:2)
- +1 QUIT
- +2 ;
- XIT KILL ABMPP
- +1 QUIT
