SCMCHLA2.m

SCMCHLA2 ;ALB/KCL - PCMM HL7 Error Code & ID File API'S ;25-JAN-2000

 ;;5.3;Scheduling;**210,1015**;AUG 13, 1993;Build 21

 ;

GETEC(SCIEN,SCEC) ;

 ; Description: Used to obtain a record from the PCMM HL7 ERROR CODE

 ; (#404.472) file and place it into the local SCECODE array.

 ;

 ;  Input :

 ;   SCIEN - IEN of a PCMM HL7 ERROR CODE record

 ;

 ; Output:

 ;  Function Value - returns 1 on success, 0 on failure.

 ;  SCECODE - if succes, the name of local array containing the record,

 ;            passed by reference.

 ;

 ;     subscript      field name

 ;     ---------      ----------

 ;     "CODE"         Error Code

 ;     "SEG"          Segment

 ;     "FLD"          Field

 ;     "SHORT"        Short Description

 ;

 N NODE

 ;

 I '$G(SCIEN) Q 0

 I '$D(^SCPT(404.472,SCIEN,0)) Q 0

 ;

 K SCECODE S SCECODE=""

 S NODE=$G(^SCPT(404.472,SCIEN,0))

 S SCEC("CODE")=$P(NODE,"^")

 S SCEC("SEG")=$P(NODE,"^",2)

 S SCEC("FLD")=$P(NODE,"^",3)

 S SCEC("SHORT")=$P(NODE,"^",4)

 Q 1

 ;

 ;

GETHL7ID(SCIEN,SCHLID) ;

 ; Description: Used to obtain a record from the PCMM HL7 ID

 ; file and place it into the local SCHLID array.

 ;

 ;  Input :

 ;   SCIEN - IEN of a PCMM HL7 ID record

 ;

 ; Output:

 ;  Function Value - returns 1 on success, 0 on failure.

 ;  SCHID - if succes, the name of local array containing the record,

 ;          passed by reference.

 ;

 ;     subscript      field name

 ;     ---------      ----------

 ;     "HL7ID"        Name

 ;     "INTID"        Integration ID

 ;    

 N SUB,NODE

 ;

 I '$G(SCIEN) Q 0

 I '$D(^SCPT(404.49,SCIEN,0)) Q 0

 K SCHLID S SCHLID=""

 S NODE=$G(^SCPT(404.49,SCIEN,0))

 S SCHLID("HL7ID")=$P(NODE,"^")

 S SCHLID("INTID")=$P(NODE,"^",2)

 Q 1

SCMCHLA2  ;ALB/KCL - PCMM HL7 Error Code & ID File API'S ;25-JAN-2000

 +1       ;;5.3;Scheduling;**210,1015**;AUG 13, 1993;Build 21

 +2       ;

GETEC(SCIEN,SCEC) ;

 +1       ; Description: Used to obtain a record from the PCMM HL7 ERROR CODE

 +2       ; (#404.472) file and place it into the local SCECODE array.

 +3       ;

 +4       ;  Input :

 +5       ;   SCIEN - IEN of a PCMM HL7 ERROR CODE record

 +6       ;

 +7       ; Output:

 +8       ;  Function Value - returns 1 on success, 0 on failure.

 +9       ;  SCECODE - if succes, the name of local array containing the record,

 +10      ;            passed by reference.

 +11      ;

 +12      ;     subscript      field name

 +13      ;     ---------      ----------

 +14      ;     "CODE"         Error Code

 +15      ;     "SEG"          Segment

 +16      ;     "FLD"          Field

 +17      ;     "SHORT"        Short Description

 +18      ;

 +19       NEW NODE

 +20      ;

 +21       IF '$GET(SCIEN)

               QUIT 0

 +22       IF '$DATA(^SCPT(404.472,SCIEN,0))

               QUIT 0

 +23      ;

 +24       KILL SCECODE

           SET SCECODE=""

 +25       SET NODE=$GET(^SCPT(404.472,SCIEN,0))

 +26       SET SCEC("CODE")=$PIECE(NODE,"^")

 +27       SET SCEC("SEG")=$PIECE(NODE,"^",2)

 +28       SET SCEC("FLD")=$PIECE(NODE,"^",3)

 +29       SET SCEC("SHORT")=$PIECE(NODE,"^",4)

 +30       QUIT 1

 +31      ;

 +32      ;

GETHL7ID(SCIEN,SCHLID) ;

 +1       ; Description: Used to obtain a record from the PCMM HL7 ID

 +2       ; file and place it into the local SCHLID array.

 +3       ;

 +4       ;  Input :

 +5       ;   SCIEN - IEN of a PCMM HL7 ID record

 +6       ;

 +7       ; Output:

 +8       ;  Function Value - returns 1 on success, 0 on failure.

 +9       ;  SCHID - if succes, the name of local array containing the record,

 +10      ;          passed by reference.

 +11      ;

 +12      ;     subscript      field name

 +13      ;     ---------      ----------

 +14      ;     "HL7ID"        Name

 +15      ;     "INTID"        Integration ID

 +16      ;    

 +17       NEW SUB,NODE

 +18      ;

 +19       IF '$GET(SCIEN)

               QUIT 0

 +20       IF '$DATA(^SCPT(404.49,SCIEN,0))

               QUIT 0

 +21       KILL SCHLID

           SET SCHLID=""

 +22       SET NODE=$GET(^SCPT(404.49,SCIEN,0))

 +23       SET SCHLID("HL7ID")=$PIECE(NODE,"^")

 +24       SET SCHLID("INTID")=$PIECE(NODE,"^",2)

 +25       QUIT 1