- SCMCHLA2 ;ALB/KCL - PCMM HL7 Error Code & ID File API'S ;25-JAN-2000
- ;;5.3;Scheduling;**210**;AUG 13, 1993
- ;
- 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
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSCMCHLA2 1727 printed Feb 19, 2025@00:06:51 Page 2
- SCMCHLA2 ;ALB/KCL - PCMM HL7 Error Code & ID File API'S ;25-JAN-2000
- +1 ;;5.3;Scheduling;**210**;AUG 13, 1993
- +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