- BZDMUT ;ihs\bao\dmh utilities [ 09/08/2000 4:01 PM ]
- ;
- ;
- Q
- LASTED ;EP count the number of edits by month in the medicaid elig file
- S CT=0
- S N=0
- F S N=$O(^AUPNMCD(N)) Q:+N=0 D
- .S R=$G(^AUPNMCD(N,0))
- .S LUP=$P(R,"^",8)
- .I LUP'="" D
- ..S CT($E(LUP,1,5))=$G(CT($E(LUP,1,5)))+1
- ..S CT=CT+1
- ..I CT#1000=0 W "."
- ZW CT
- K CT,LUP,R,N,CT
- Q
- SSNCT ;EP count the SSN nodes in the BZDMTEMP GLOBAL
- S CT=0
- S SSN=0
- F S SSN=$O(^BZDMTEMP("SSN",SSN)) Q:SSN="" D
- .S SSNDFN=""
- .F S SSNDFN=$O(^BZDMTEMP("SSN",SSN,SSNDFN)) Q:SSNDFN="" D
- ..S CT=CT+1
- U 0 W !!,"TOTAL SSN NODES: ",CT
- K CT,SSNDFN,SSN
- Q
- Q
- MNOCT ;EP count the MNO nodes in the BZDMTEMP GLOBAL
- S CT=0
- S MNO=0
- F S MNO=$O(^BZDMTEMP("MNO",MNO)) Q:MNO="" D
- .S MCDDFN=""
- .F S MCDDFN=$O(^BZDMTEMP("MNO",MNO,MCDDFN)) Q:MCDDFN="" D
- ..S CT=CT+1
- U 0 W !!,"TOTAL MNO NODES: ",CT
- K CT,MNODFN,MNO
- Q
- TIME ; get time
- 10 N BZDM S BZDM=$P($H,",",2)\60
- 20 N BZDI,BZDN S BZDTIME=BZDM\60_":"_(BZDM#60\10)_(BZDM#10)
- S BZDN=" AM" S:BZDM'<720 BZDM=BZDM-720,BZDN=" PM" S:BZDM<60 BZDM=BZDM+720
- S BZDI=BZDM\600 S:'BZDI BZDI=" " S BZDTIME1=BZDI_(BZDM\60#10)_":"_(BZDM#60\10)_(BZDM#10)_BZDN
- I '$D(BZDNP) U 0 W !,BZDTIME1 ;K BZDTIME,BZDTIME1
- K BZDNP Q
- Q
- INDX ;
- U 0 W !!,"Creating the index for Medicaid numbers..."
- S INDX=0
- S INDXCT=0
- F S INDX=$O(^AUPNMCD(INDX)) Q:+INDX=0 D
- .S REC=$G(^AUPNMCD(INDX,0))
- .Q:REC=0
- .S MN=$P(REC,"^",3)
- .Q:MN=""
- .S ^BZDMTEMP("INDX",MN,INDX)=""
- .S INDXCT=INDXCT+1
- .I INDXCT#1000=0 W "X"
- .Q
- K INDX,INDXCT,REC,MN
- Q
- BZDMUT ;ihs\bao\dmh utilities [ 09/08/2000 4:01 PM ]
- +1 ;
- +2 ;
- +3 QUIT
- LASTED ;EP count the number of edits by month in the medicaid elig file
- +1 SET CT=0
- +2 SET N=0
- +3 FOR
- SET N=$ORDER(^AUPNMCD(N))
- IF +N=0
- QUIT
- Begin DoDot:1
- +4 SET R=$GET(^AUPNMCD(N,0))
- +5 SET LUP=$PIECE(R,"^",8)
- +6 IF LUP'=""
- Begin DoDot:2
- +7 SET CT($EXTRACT(LUP,1,5))=$GET(CT($EXTRACT(LUP,1,5)))+1
- +8 SET CT=CT+1
- +9 IF CT#1000=0
- WRITE "."
- End DoDot:2
- End DoDot:1
- +10
- *** ERROR ***
- +11 KILL CT,LUP,R,N,CT
- +12 QUIT
- SSNCT ;EP count the SSN nodes in the BZDMTEMP GLOBAL
- +1 SET CT=0
- +2 SET SSN=0
- +3 FOR
- SET SSN=$ORDER(^BZDMTEMP("SSN",SSN))
- IF SSN=""
- QUIT
- Begin DoDot:1
- +4 SET SSNDFN=""
- +5 FOR
- SET SSNDFN=$ORDER(^BZDMTEMP("SSN",SSN,SSNDFN))
- IF SSNDFN=""
- QUIT
- Begin DoDot:2
- +6 SET CT=CT+1
- End DoDot:2
- End DoDot:1
- +7 USE 0
- WRITE !!,"TOTAL SSN NODES: ",CT
- +8 KILL CT,SSNDFN,SSN
- +9 QUIT
- +10 QUIT
- MNOCT ;EP count the MNO nodes in the BZDMTEMP GLOBAL
- +1 SET CT=0
- +2 SET MNO=0
- +3 FOR
- SET MNO=$ORDER(^BZDMTEMP("MNO",MNO))
- IF MNO=""
- QUIT
- Begin DoDot:1
- +4 SET MCDDFN=""
- +5 FOR
- SET MCDDFN=$ORDER(^BZDMTEMP("MNO",MNO,MCDDFN))
- IF MCDDFN=""
- QUIT
- Begin DoDot:2
- +6 SET CT=CT+1
- End DoDot:2
- End DoDot:1
- +7 USE 0
- WRITE !!,"TOTAL MNO NODES: ",CT
- +8 KILL CT,MNODFN,MNO
- +9 QUIT
- TIME ; get time
- 10 NEW BZDM
- SET BZDM=$PIECE($HOROLOG,",",2)\60
- 20 NEW BZDI,BZDN
- SET BZDTIME=BZDM\60_":"_(BZDM#60\10)_(BZDM#10)
- +1 SET BZDN=" AM"
- IF BZDM'<720
- SET BZDM=BZDM-720
- SET BZDN=" PM"
- IF BZDM<60
- SET BZDM=BZDM+720
- +2 SET BZDI=BZDM\600
- IF 'BZDI
- SET BZDI=" "
- SET BZDTIME1=BZDI_(BZDM\60#10)_":"_(BZDM#60\10)_(BZDM#10)_BZDN
- +3 ;K BZDTIME,BZDTIME1
- IF '$DATA(BZDNP)
- USE 0
- WRITE !,BZDTIME1
- +4 KILL BZDNP
- QUIT
- +5 QUIT
- INDX ;
- +1 USE 0
- WRITE !!,"Creating the index for Medicaid numbers..."
- +2 SET INDX=0
- +3 SET INDXCT=0
- +4 FOR
- SET INDX=$ORDER(^AUPNMCD(INDX))
- IF +INDX=0
- QUIT
- Begin DoDot:1
- +5 SET REC=$GET(^AUPNMCD(INDX,0))
- +6 IF REC=0
- QUIT
- +7 SET MN=$PIECE(REC,"^",3)
- +8 IF MN=""
- QUIT
- +9 SET ^BZDMTEMP("INDX",MN,INDX)=""
- +10 SET INDXCT=INDXCT+1
- +11 IF INDXCT#1000=0
- WRITE "X"
- +12 QUIT
- End DoDot:1
- +13 KILL INDX,INDXCT,REC,MN
- +14 QUIT
