©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRCSTU1 ;SLC/DCM,dee - Statistic Utilities for C/RT ;9/26/02 10:15
Source file <GMRCSTU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SQRT(X) | ;calculate the square root of number X
|
|
| LISTDATE(GMRCDT1,GMRCDT2,GMRCEDT1,GMRCEDT2) | ;Change dates to display format
; Input: ; GMRCDT1 Start date in FM format, can be "ALL" for all dates ; GMRCDT2 End date in FM format, can be null if GMRCDT1 is "ALL" ; Output: ; GMRCEDT1 Start date in external format ; GMRCEDT2 End date in extenal format |
|
| DOSTAT(GEN,ND) | ;Do the number crunching for the statistics
; GEN 1 if service ; 2 if grouper ; ND This service in GMRCSVC |
|
| SERVSTAT(COUNT,GEN,ND,GRP) | ;Build list for a service or a grouper
; COUNT subscript in to the array ^TMP("GMRCR" ; GEN 1 if service ; 2 if grouper ; ND Pointer to this this service in GMRCSVC ; GRP Pointer to grouper that this service is in ^GMR(123.5 ; (If this is not a grouper i.e. GEN=2) |
|
| PARENTS(ND,PARENT) | ;Add totals for service to itself as a parent and to its parent service
; ND This service in GMRCSVC ; PARENT This services grouper in GMRCSVC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD("DD" | LISTDATE+12, LISTDATE+20 |
| ^GMR(123.5 - [#123.5] | SERVSTAT+11, SERVSTAT+12, SERVSTAT+15 |
| ^TMP("GMRCR" | SERVSTAT+13*, SERVSTAT+16*, SERVSTAT+19*, SERVSTAT+24*, SERVSTAT+25*, SERVSTAT+28*, SERVSTAT+35*, SERVSTAT+38*, SERVSTAT+45*, SERVSTAT+49* , SERVSTAT+56*, SERVSTAT+57*, SERVSTAT+59* |
| ^TMP("GMRCSVC" | PARENTS+5*, PARENTS+6*, PARENTS+7*, PARENTS+9*, PARENTS+10*, PARENTS+11*, DOSTAT+5, DOSTAT+6*, DOSTAT+8, DOSTAT+10 , DOSTAT+11*, DOSTAT+12*, DOSTAT+13, DOSTAT+15*, DOSTAT+17, DOSTAT+19, DOSTAT+20*, DOSTAT+21*, DOSTAT+22, DOSTAT+24* , DOSTAT+26, DOSTAT+28, DOSTAT+29*, DOSTAT+30*, DOSTAT+31, DOSTAT+33*, DOSTAT+35, DOSTAT+37, DOSTAT+38*, DOSTAT+39* , SERVSTAT+17, SERVSTAT+22, SERVSTAT+24, SERVSTAT+26, SERVSTAT+31, SERVSTAT+34, SERVSTAT+36, SERVSTAT+41, SERVSTAT+44, SERVSTAT+46 , SERVSTAT+47, SERVSTAT+52, SERVSTAT+55, SERVSTAT+57 |
| Name | Line Occurrences |
|---|---|
| $$SQRT | DOSTAT+11, DOSTAT+20, DOSTAT+29, DOSTAT+38 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | LISTDATE+14!, LISTDATE+18, LISTDATE+19! |
| %DT | LISTDATE+14!, LISTDATE+19! |
| %H | LISTDATE+14!, LISTDATE+19! |
| %I | LISTDATE+14!, LISTDATE+19! |
| COUNT | SERVSTAT~, SERVSTAT+9*, SERVSTAT+18*, SERVSTAT+19, SERVSTAT+20*, SERVSTAT+24, SERVSTAT+25, SERVSTAT+27*, SERVSTAT+28, SERVSTAT+29* , SERVSTAT+35, SERVSTAT+37*, SERVSTAT+38, SERVSTAT+39*, SERVSTAT+45, SERVSTAT+48*, SERVSTAT+49, SERVSTAT+50*, SERVSTAT+56, SERVSTAT+57* , SERVSTAT+58*, SERVSTAT+59 |
| GEN | DOSTAT~, DOSTAT+5, DOSTAT+6, DOSTAT+8, DOSTAT+10, DOSTAT+11, DOSTAT+12, DOSTAT+13, DOSTAT+15, DOSTAT+17 , DOSTAT+19, DOSTAT+20, DOSTAT+21, DOSTAT+22, DOSTAT+24, DOSTAT+26, DOSTAT+28, DOSTAT+29, DOSTAT+30, DOSTAT+31 , DOSTAT+33, DOSTAT+35, DOSTAT+37, DOSTAT+38, DOSTAT+39, SERVSTAT~, SERVSTAT+10, SERVSTAT+17, SERVSTAT+22, SERVSTAT+24 , SERVSTAT+26, SERVSTAT+31, SERVSTAT+34, SERVSTAT+36, SERVSTAT+41, SERVSTAT+44, SERVSTAT+46, SERVSTAT+47, SERVSTAT+52, SERVSTAT+55 , SERVSTAT+57 |
| >> GMRCCT | SERVSTAT+13, SERVSTAT+16 |
| GMRCDT1 | LISTDATE~, LISTDATE+8 |
| GMRCDT2 | LISTDATE~, LISTDATE+9 |
| GMRCEDT1 | LISTDATE~, LISTDATE+8*, LISTDATE+10, LISTDATE+11, LISTDATE+13* |
| GMRCEDT2 | LISTDATE~, LISTDATE+9*, LISTDATE+15, LISTDATE+21* |
| GRP | SERVSTAT~, SERVSTAT+12 |
| ND | PARENTS~, PARENTS+5, PARENTS+6, PARENTS+7, PARENTS+9, PARENTS+10, PARENTS+11, DOSTAT~, DOSTAT+5, DOSTAT+6 , DOSTAT+8, DOSTAT+10, DOSTAT+11, DOSTAT+12, DOSTAT+13, DOSTAT+15, DOSTAT+17, DOSTAT+19, DOSTAT+20, DOSTAT+21 , DOSTAT+22, DOSTAT+24, DOSTAT+26, DOSTAT+28, DOSTAT+29, DOSTAT+30, DOSTAT+31, DOSTAT+33, DOSTAT+35, DOSTAT+37 , DOSTAT+38, DOSTAT+39, SERVSTAT~, SERVSTAT+11, SERVSTAT+15, SERVSTAT+17, SERVSTAT+22, SERVSTAT+24, SERVSTAT+26, SERVSTAT+31 , SERVSTAT+34, SERVSTAT+36, SERVSTAT+41, SERVSTAT+44, SERVSTAT+46, SERVSTAT+47, SERVSTAT+52, SERVSTAT+55, SERVSTAT+57 |
| ND2 | PARENTS+3~, PARENTS+4*, PARENTS+5, PARENTS+6, PARENTS+7, PARENTS+9, PARENTS+10, PARENTS+11 |
| NUMBER | SERVSTAT+8~, SERVSTAT+17*, SERVSTAT+19, SERVSTAT+22, SERVSTAT+24, SERVSTAT+26*, SERVSTAT+28, SERVSTAT+31, SERVSTAT+33, SERVSTAT+36* , SERVSTAT+38, SERVSTAT+41, SERVSTAT+43, SERVSTAT+47*, SERVSTAT+49, SERVSTAT+52, SERVSTAT+54 |
| PARENT | PARENTS~, PARENTS+8, PARENTS+9, PARENTS+10, PARENTS+11 |
| SUMX | DOSTAT+4~, DOSTAT+8*, DOSTAT+9*, DOSTAT+10*, DOSTAT+11, DOSTAT+17*, DOSTAT+18*, DOSTAT+19*, DOSTAT+20, DOSTAT+26* , DOSTAT+27*, DOSTAT+28*, DOSTAT+29, DOSTAT+35*, DOSTAT+36*, DOSTAT+37*, DOSTAT+38 |
| >> TAB | SERVSTAT+16, SERVSTAT+23, SERVSTAT+32, SERVSTAT+42, SERVSTAT+53 |
| TEMP | SERVSTAT+8~, SERVSTAT+11*, SERVSTAT+12*, SERVSTAT+13, SERVSTAT+15*, SERVSTAT+16, SERVSTAT+21*, SERVSTAT+22*, SERVSTAT+23*, SERVSTAT+24 , SERVSTAT+25, SERVSTAT+30*, SERVSTAT+31*, SERVSTAT+32*, SERVSTAT+34*, SERVSTAT+35, SERVSTAT+40*, SERVSTAT+41*, SERVSTAT+42*, SERVSTAT+44* , SERVSTAT+45, SERVSTAT+51*, SERVSTAT+52*, SERVSTAT+53*, SERVSTAT+55*, SERVSTAT+56 |
| VAR | DOSTAT+4~, DOSTAT+5*, DOSTAT+6, DOSTAT+7, DOSTAT+9, DOSTAT+10, DOSTAT+13*, DOSTAT+14, DOSTAT+15, DOSTAT+16 , DOSTAT+18, DOSTAT+19, DOSTAT+22*, DOSTAT+23, DOSTAT+24, DOSTAT+25, DOSTAT+27, DOSTAT+28, DOSTAT+31*, DOSTAT+32 , DOSTAT+33, DOSTAT+34, DOSTAT+36, DOSTAT+37 |
| X | SQRT~, SQRT+1, LISTDATE+16* |
| >> Y | LISTDATE+11*, LISTDATE+13, LISTDATE+18*, LISTDATE+21 |