SCMCCV6 ;BP/CMF - PCMM HL7 Baseline Xmit to AAC ; March 26, 2000
Source file <SCMCCV6.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(SCTST,SCDFN) | ;
; entry point for option 'SCMC PCMM BASELINE SEEDING' ; this option should not be on any users menu ; this option should be queued to run once ; it should not be run more than once without consulting NVS |
|
| BASELINE(SCP177,SCP212,SCPDFN,SCPTST) | ;
; input ; SCP177 = Patch 177 date (required) ; SCP212 = Patch 212 date (optional, default = today) ; SCPDFN = Patient ien (optional, default = 0) ; SCPTST = 1 := test [default = 0] ; ; output ; 1 = success ; 0 = failure |
|
| CHECK() | ;
; Description: Determine whether or not the Baseline has run. |
|
| EVENT(SC177,SC212,SCDFN,SCTST) | ;
; Description: Create an Event in file (#404.48) |
|
| MSG(SC1,SC2,SCTST) | ;
|
|
| RESTART(SCTST) | ; alb/rpm
; This undocumented entry point allows a user to clear the Baseline ; date stored in file #404.44 field #17. Then the last patient IEN ; that was processed from the last run is retrieved from ^XTMP("SCMCCV6" ; and decremented to seed the restart point. If ^XTMP does not exist ; the IEN is set to 0. |
| Name | Field # of Occurrence |
|---|---|
| $$S^%ZTLOAD | EVENT+24, EVENT+33 |
| FILE^DIE | BASELINE+43, RESTART+20 |
| $$GET1^DIQ | CHECK+11, EVENT+61, MSG+15 |
| $$DTCHK^SCAPU1 | EVENT+53 |
| $$PDAT^SCMCGU | EN+48 |
| $$CHECK^SCMCHLB1 | EVENT+57 |
| ADD^SCMCHLE | EVENT+60 |
| $$VPATCH^SCUTBK3 | EN+20 |
| $$VPROGMR^SCUTBK3 | EN+25 |
| $$FMADD^XLFDT | EVENT+28 |
| $$FMTE^XLFDT | EN+33, EN+55, EVENT+61 |
| $$HTE^XLFDT | EN+17, MSG+14 |
| $$NOW^XLFDT | EN+55, EVENT+29 |
| ^XMD | MSG+24 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^SCTM(404.44 - [#404.44] | GET1^DIQ |
| ^SCTM(404.57 - [#404.57] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.43 - [#404.43] | BASELINE+28, EVENT+32, EVENT+50 |
| ^SCTM(404.44 - [#404.44] | CHECK+9 |
| ^SCTM(404.57 - [#404.57] | EVENT+47 |
| ^TMP($J | CHECK+10!, CHECK+12, CHECK+13! |
| ^XTMP("SCMCCV6" | EVENT+27!, EVENT+28*, EVENT+36*, RESTART+16, RESTART+17 |
| Name | Line Occurrences |
|---|---|
| $$BASELINE | EN+54 |
| $$CHECK | EN+30 |
| $$EVENT | BASELINE+34 |
| EN | RESTART+26 |
| MSG | EN+22, EN+27, EN+34, EN+38, EN+42, EN+45, EN+51, EN+56, BASELINE+16, BASELINE+21 , BASELINE+26, BASELINE+30, BASELINE+36, BASELINE+46, BASELINE+49, RESTART+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DT | EN+54, BASELINE+18, EVENT+28 |
| DUZ | MSG+4 |
| SC1 | EN+14~, EN+18*, EN+22, EN+27, EN+34, EN+38, EN+42, EN+45, EN+51, EN+56 , BASELINE+11~, BASELINE+12*, BASELINE+16, BASELINE+21, BASELINE+26, BASELINE+30, BASELINE+37~, BASELINE+38*, BASELINE+41*, BASELINE+46 , BASELINE+49, EVENT+20~, EVENT+37*, EVENT+40, EVENT+42, EVENT+44, EVENT+49, MSG~, MSG+9, RESTART+12~ , RESTART+13*, RESTART+23 |
| SC177 | BASELINE+13*, BASELINE+14, BASELINE+34, EVENT~, EVENT+53 |
| SC2 | EN+14~, EN+21*, EN+22, EN+26*, EN+27, EN+33*, EN+34, EN+37*, EN+38, EN+41* , EN+42, EN+44*, EN+45, EN+50*, EN+51, EN+55*, EN+56, BASELINE+11~, BASELINE+15*, BASELINE+16 , BASELINE+20*, BASELINE+21, BASELINE+25*, BASELINE+26, BASELINE+29*, BASELINE+30, BASELINE+37~, BASELINE+39*, BASELINE+41, BASELINE+45* , BASELINE+46, BASELINE+48*, BASELINE+49, MSG~, MSG+10, RESTART+12~, RESTART+22*, RESTART+23 |
| SC212 | BASELINE+18*, BASELINE+19, BASELINE+34, BASELINE+42, EVENT~, EVENT+53 |
| SCADT | EVENT+16~, EVENT+41*, EVENT+42*, EVENT+44, EVENT+49, EVENT+53, EVENT+61 |
| SCARRAY | EN+15~, MSG+7! |
| SCARRAY( | EVENT+61* |
| SCARRAY(1 | MSG+8*, MSG+20* |
| SCARRAY(2 | MSG+9*, MSG+21* |
| SCARRAY(3 | MSG+10*, MSG+22* |
| SCARRAY(4 | MSG+11* |
| SCARRAY(5 | MSG+12* |
| SCARRAY(6 | MSG+13* |
| SCARRAY(7 | MSG+14* |
| SCARRAY(8 | MSG+15* |
| SCARRAY(9 | MSG+16* |
| SCCNT | EVENT+13~, EVENT+30*, EVENT+61, EVENT+64*, EVENT+70 |
| SCDDT | EVENT+17~, EVENT+50*, EVENT+53, EVENT+61 |
| SCDFA | RESTART+12~ |
| SCDFN | EN~, EN+11*, EN+54, BASELINE+23*, BASELINE+24, BASELINE+34, EVENT~, EVENT+31*, EVENT+32*, EVENT+36 , EVENT+60, EVENT+61, RESTART+12~, RESTART+14*, RESTART+17*, RESTART+26 |
| SCERR | BASELINE+37~, BASELINE+44, RESTART+12~, RESTART+21 |
| SCFDA | BASELINE+37~ |
| SCFDA(1 | BASELINE+42*, RESTART+19* |
| SCFLAG | BASELINE+11~, BASELINE+34*, BASELINE+36, BASELINE+39, BASELINE+40*, BASELINE+48 |
| SCNOW | EVENT+18~, EVENT+29* |
| SCP177 | EN+12~, EN+48*, EN+49, EN+54, BASELINE~, BASELINE+13 |
| SCP212 | EN+13~, EN+30*, EN+31, EN+32, EN+33, EN+36, EN+40, BASELINE~, BASELINE+18 |
| SCPAI | EVENT+14~, EVENT+48*, EVENT+49*, EVENT+50, EVENT+54 |
| SCPDFN | BASELINE~, BASELINE+23 |
| SCPTST | BASELINE~, BASELINE+33 |
| SCSTIM | EN+16~, EN+17*, MSG+13 |
| SCTP | EVENT+15~, EVENT+43*, EVENT+44*, EVENT+47, EVENT+49, EVENT+60, EVENT+61 |
| SCTST | EN~, EN+10*, EN+54, BASELINE+33*, BASELINE+34, BASELINE+36, EVENT~, EVENT+26*, EVENT+60, EVENT+61 , MSG~, MSG+2*, MSG+5, MSG+21, RESTART~, RESTART+10*, RESTART+26 |
| SCVAR | EVENT+19~, EVENT+54*, EVENT+57, EVENT+60, EVENT+61 |
| SCX | CHECK+8~, CHECK+11*, CHECK+12*, CHECK+14 |
| SCZ | EVENT+21~, EVENT+24*, EVENT+25, EVENT+32, EVENT+33*, EVENT+34, EVENT+70 |
| U | BASELINE+39, BASELINE+40, EVENT+25, EVENT+28, EVENT+50, EVENT+70 |
| XMDUZ | MSG+1~, MSG+3*, MSG+4 |
| XMSUB | MSG+1~, MSG+6*, MSG+19* |
| XMTEXT | MSG+1~, MSG+23* |
| XMY | MSG+1~ |
| XMY( | MSG+4* |
| >> ZTSK | MSG+12, MSG+19 |
