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 |