SCMCCV6 ;BP/CMF - PCMM HL7 Baseline Xmit to AAC ; March 26, 2000
Source file <SCMCCV6.m>
| 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 | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^SCTM(404.44 - [#404.44] | GET1^DIQ |
| ^SCTM(404.57 - [#404.57] | GET1^DIQ |