- RGEQSTAT ;BHM/RGY-Statistics ;17-Feb-98
- ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
- ENT(TYPE) ;Get available entry
- NEW DATE
- I TYPE'?1N.N S TYPE=+$O(^RGEQASN("B",TYPE,0))
- I '$D(^RGEQASN(TYPE,0)) Q 0
- S DATE=$$NOW^XLFDT\1
- I '$O(^RGSTAT(995.2,"AX",TYPE,DATE,0)) D ADD(TYPE,DATE)
- Q $O(^RGSTAT(995.2,"AX",TYPE,DATE,0))
- ;
- ADD(TYPE,DATE) ;Add statistics entry for type of event
- NEW DIC,D0,DIE,DA,X,DLAYGO,DR,RGOK,EVN
- I $G(TYPE)="" Q
- I $G(DATE)="" Q
- I TYPE'?1N.N S TYPE=$O(^RGEQASN("B",TYPE,0)) I TYPE="" G Q
- F EVN=+$P(^RGSTAT(995.2,0),"^",3)+1:1 L +^RGSTAT(995.2,EVN):0 I $T S RGOK=0 D L -^RGSTAT(995.2,EVN) Q:RGOK
- .I $D(^RGSTAT(995.2,EVN)) Q
- .S DINUM=EVN,DIC="^RGSTAT(995.2,",DIC(0)="L",DLAYGO=995.2,X=EVN K DD,D0 D FILE^DICN K DIC,DLAYGO,D0
- .S DIE="^RGSTAT(995.2,",DR="[RGEQ NEW STATISTIC]",DA=EVN D ^DIE
- .S RGOK=1
- .Q
- Q Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRGEQSTAT 873 printed Feb 18, 2025@23:08 Page 2
- RGEQSTAT ;BHM/RGY-Statistics ;17-Feb-98
- +1 ;;1.0; CLINICAL INFO RESOURCE NETWORK ;;30 Apr 99
- ENT(TYPE) ;Get available entry
- +1 NEW DATE
- +2 IF TYPE'?1N.N
- SET TYPE=+$ORDER(^RGEQASN("B",TYPE,0))
- +3 IF '$DATA(^RGEQASN(TYPE,0))
- QUIT 0
- +4 SET DATE=$$NOW^XLFDT\1
- +5 IF '$ORDER(^RGSTAT(995.2,"AX",TYPE,DATE,0))
- DO ADD(TYPE,DATE)
- +6 QUIT $ORDER(^RGSTAT(995.2,"AX",TYPE,DATE,0))
- +7 ;
- ADD(TYPE,DATE) ;Add statistics entry for type of event
- +1 NEW DIC,D0,DIE,DA,X,DLAYGO,DR,RGOK,EVN
- +2 IF $GET(TYPE)=""
- QUIT
- +3 IF $GET(DATE)=""
- QUIT
- +4 IF TYPE'?1N.N
- SET TYPE=$ORDER(^RGEQASN("B",TYPE,0))
- IF TYPE=""
- GOTO Q
- +5 FOR EVN=+$PIECE(^RGSTAT(995.2,0),"^",3)+1:1
- LOCK +^RGSTAT(995.2,EVN):0
- IF $TEST
- SET RGOK=0
- Begin DoDot:1
- +6 IF $DATA(^RGSTAT(995.2,EVN))
- QUIT
- +7 SET DINUM=EVN
- SET DIC="^RGSTAT(995.2,"
- SET DIC(0)="L"
- SET DLAYGO=995.2
- SET X=EVN
- KILL DD,D0
- DO FILE^DICN
- KILL DIC,DLAYGO,D0
- +8 SET DIE="^RGSTAT(995.2,"
- SET DR="[RGEQ NEW STATISTIC]"
- SET DA=EVN
- DO ^DIE
- +9 SET RGOK=1
- +10 QUIT
- End DoDot:1
- LOCK -^RGSTAT(995.2,EVN)
- if RGOK
- QUIT
- Q QUIT
