Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCMCHLA2

SCMCHLA2.m

Go to the documentation of this file.
  1. SCMCHLA2 ;ALB/KCL - PCMM HL7 Error Code & ID File API'S ;25-JAN-2000
  1. ;;5.3;Scheduling;**210**;AUG 13, 1993
  1. ;
  1. GETEC(SCIEN,SCEC) ;
  1. ; Description: Used to obtain a record from the PCMM HL7 ERROR CODE
  1. ; (#404.472) file and place it into the local SCECODE array.
  1. ;
  1. ; Input :
  1. ; SCIEN - IEN of a PCMM HL7 ERROR CODE record
  1. ;
  1. ; Output:
  1. ; Function Value - returns 1 on success, 0 on failure.
  1. ; SCECODE - if succes, the name of local array containing the record,
  1. ; passed by reference.
  1. ;
  1. ; subscript field name
  1. ; --------- ----------
  1. ; "CODE" Error Code
  1. ; "SEG" Segment
  1. ; "FLD" Field
  1. ; "SHORT" Short Description
  1. ;
  1. N NODE
  1. ;
  1. I '$G(SCIEN) Q 0
  1. I '$D(^SCPT(404.472,SCIEN,0)) Q 0
  1. ;
  1. K SCECODE S SCECODE=""
  1. S NODE=$G(^SCPT(404.472,SCIEN,0))
  1. S SCEC("CODE")=$P(NODE,"^")
  1. S SCEC("SEG")=$P(NODE,"^",2)
  1. S SCEC("FLD")=$P(NODE,"^",3)
  1. S SCEC("SHORT")=$P(NODE,"^",4)
  1. Q 1
  1. ;
  1. ;
  1. GETHL7ID(SCIEN,SCHLID) ;
  1. ; Description: Used to obtain a record from the PCMM HL7 ID
  1. ; file and place it into the local SCHLID array.
  1. ;
  1. ; Input :
  1. ; SCIEN - IEN of a PCMM HL7 ID record
  1. ;
  1. ; Output:
  1. ; Function Value - returns 1 on success, 0 on failure.
  1. ; SCHID - if succes, the name of local array containing the record,
  1. ; passed by reference.
  1. ;
  1. ; subscript field name
  1. ; --------- ----------
  1. ; "HL7ID" Name
  1. ; "INTID" Integration ID
  1. ;
  1. N SUB,NODE
  1. ;
  1. I '$G(SCIEN) Q 0
  1. I '$D(^SCPT(404.49,SCIEN,0)) Q 0
  1. K SCHLID S SCHLID=""
  1. S NODE=$G(^SCPT(404.49,SCIEN,0))
  1. S SCHLID("HL7ID")=$P(NODE,"^")
  1. S SCHLID("INTID")=$P(NODE,"^",2)
  1. Q 1