©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
SCAPMCU5 ;bp/cmf - TEAM API UTILITIES ; 2 june 1999
Source file <SCAPMCU5.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACTHIST(SCVAL,SCDATES) | ;given val hist array, prior active?
; input: scval = scval array produced by $$valhist call, above ; scdates = standard PCMM date array |
|
| INACT() | ||
| VALID | ||
| T | ;
|
|
| VALHIST(SCFILE,SCTPIEN,SCVAL) | ; returns valid act/inact ien pairs in SCVAL
|
|
| S(SCX) | ||
| CP(SCX) | ; if 404.52, practitioner (.03)s must match
; if 404.53, preceptor (.06)s must match |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCTM( | VALHIST+10, VALHIST+11, CP+2 |
| ^SCTM(404.57 - [#404.57] | VALHIST+5 |
| Name | Line Occurrences |
|---|---|
| $$CP | INACT+4, INACT+5 |
| $$INACT | VALHIST+19, VALHIST+26 |
| $$S | VALHIST+3, VALHIST+5, VALHIST+7, ACTHIST+9, ACTHIST+10 |
| VALID | VALHIST+23, INACT+3, INACT+4, INACT+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | ACTHIST+11 |
| SCA | ACTHIST+8~ |
| SCA( | ACTHIST+16*, ACTHIST+18, ACTHIST+22, ACTHIST+23, ACTHIST+26 |
| SCACT | VALHIST+9~, VALHIST+14*, VALHIST+15*, VALHIST+17, VALHIST+18, VALHIST+33*, VALHIST+34, VALHIST+35, VALID+3, VALID+6 |
| SCACT1 | VALHIST+9~, VALHIST+16*, VALHIST+17*, VALHIST+34*, VALHIST+35, INACT+1, VALID+3, VALID+5, VALID+6, CP+2 |
| SCCNT | VALHIST+9~, VALHIST+12*, VALHIST+32*, VALHIST+33, VALHIST+34, VALID*, VALID+2*, VALID+3, VALID+4, VALID+5 |
| SCDATE | ACTHIST+8~, ACTHIST+11*, ACTHIST+18, ACTHIST+24*, ACTHIST+25 |
| SCDATES | ACTHIST~, ACTHIST+10, ACTHIST+11 |
| SCFILE | VALHIST~, VALHIST+2*, VALHIST+3, VALHIST+10, VALHIST+11, INACT+3, INACT+4, INACT+5, CP+2 |
| SCFIRST | VALHIST+9~, VALHIST+30*, VALHIST+35*, VALHIST+37 |
| SCINACT | VALHIST+9~, VALHIST+18*, VALHIST+19, VALHIST+20*, VALHIST+21, INACT+2, VALID+1, VALID+7 |
| SCINACT1 | VALHIST+9~, INACT+1*, INACT+2*, VALID+1, VALID+7, CP+2 |
| SCP1 | ACTHIST+8~, ACTHIST+19*, ACTHIST+21, ACTHIST+27 |
| SCP2 | ACTHIST+8~, ACTHIST+20*, ACTHIST+25*, ACTHIST+26, ACTHIST+27 |
| >> SCP3 | ACTHIST+20*, ACTHIST+26*, ACTHIST+27 |
| SCSTOP | VALHIST+9~, INACT*, INACT+2, INACT+7, VALID+8* |
| SCTOP | VALHIST+9~, VALHIST+13*, VALHIST+22, VALHIST+24* |
| SCTPIEN | VALHIST~, VALHIST+4*, VALHIST+5, VALHIST+10, VALHIST+11 |
| SCVAL | VALHIST~, VALHIST+6*, VALHIST+7, VALHIST+31, VALHIST+32, VALHIST+33, VALHIST+34, VALID+3, VALID+4, VALID+5 , ACTHIST~, ACTHIST+9, ACTHIST+13, ACTHIST+14, ACTHIST+15, ACTHIST+16 |
| SCX | VALHIST+9~, VALHIST+26*, VALID+1*, VALID+2, VALID+3, CP~, CP+2, ACTHIST+8~, ACTHIST+13*, ACTHIST+14 , ACTHIST+15, ACTHIST+16, ACTHIST+23*, ACTHIST+25, S~ |
| SCX(0 | VALHIST+11*, VALHIST+19, VALHIST+20, VALHIST+37, INACT+2, VALID+7! |
| SCX(1 | VALHIST+10*, VALHIST+15, VALHIST+17, VALHIST+37, VALID+6! |
| SCX1 | ACTHIST+8~, ACTHIST+14*, ACTHIST+15, ACTHIST+16, ACTHIST+18*, ACTHIST+19, ACTHIST+22, ACTHIST+23, ACTHIST+26 |
| SCX2 | ACTHIST+8~, ACTHIST+15*, ACTHIST+16, ACTHIST+22*, ACTHIST+23, ACTHIST+26 |
| U | VALHIST+30, VALHIST+35, VALHIST+37, VALID+1, VALID+2, CP+2, ACTHIST+23, ACTHIST+26, ACTHIST+27 |
| Name | Field # of Occurrence |
|---|---|
| $T(T+SCX | S |