SDCCRCOR ;CCRA/LB,PB - Core Tags;APR 4, 2019
Source file <SDCCRCOR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HL72VATS(HL7TS) | ; Converts HL7 formatted timestamps to VA format
; HL7TS - date/time stamp in 24H HL7 format (YYYYMMDDHHMMSS) |
|
| VA2HL7TS(VATS) | ; Converts VA formatted timestamps to HL7 format
; VATS - date/time stamp in VA format (YYYMMDD.HHMMSS) |
|
| GETPTIEN(PATNAME) | ; Returns patient ID or null, name must be perfect match
; PATNAME - Patient name - must be exact LAST,FIRST |
|
| GETPTNM(DFN) | ; Returns patient name from ^DPT global, given a valid DFN
; DFN - Patient ID to look for |
|
| GETLCIEN(LOCNAME) | ; Returns Location ID or null, name must be perfect match
; PATNAME - Location name - must be exact |
|
| GETLCNM(LOCID) | ; Returns location name from clinic file 44 given a valid clinic IEN
; LOCID - Location ID to look for |
|
| GETNMPRV(CLINIC) | ; Returns the number of providers associated with a clinic
; CLINIC - The Clinic IEN (first piece of DPT 0 node) |
|
| GETCNGNM(CLINICGROUP) | ; Returns the Name of a Clinic's group
; CLINICGROUP - The Clinic Group IEN |
|
| GETPRVNM(PROVIEN) | ; Returns the provider name, given a provider ID
; PROVIEN - The Provider IEN |
|
| ICLNDPRV(CLINIC,PROVIEN) | ; Determines if the provider is the default provider for the clinic
; CLINIC - The Clinic IEN (first piece of DPT 0 node) ; PROVIEN - The Provider IEN |
|
| CLNPVIND(CLINIC,PROVIEN) | ; Determines the line number the provider is listed on for a clinic
; CLINIC - The Clinic IEN (first piece of DPT 0 node) ; PROVIEN - The Provider IEN |
|
| GTCANRSN(PATIENTIEN,APPTDT) | ; Returns the discrete cancellation reason
; PATIEN (I,REQ)- Patient ID as in DPT(PATIEN,"S",APPTDAT ; APPTDAT (I,REQ) - Appointment date |
|
| GTCNRNTP(PATIENTIEN,APPTDT) | ; Gets the cancelation reason type.
; PATIEN - Patient ID as in DPT(PATIEN,"S",APPTDAT ; APPTDAT - Appointment date |
|
| ORD2CONS(ORDERID) | ;Returns the consult ID linked to the given order
; ORDERID - Order ID |
|
| INSTRING(VALUE,LIST,DELIM) | ; compare a string value to see if it is a list given a particular delimiter
; VALUE - value to find in the list. ; LIST - The list to check ; DELIM - Delimiter that separates the data in the list. Default = "," |
|
| INITINC | ; Sets temp global that indicates this process is filing an incoming message
|
|
| DONEINC | ; Clears temp global that indicates this process is filing an incoming message
|
|
| INCINTF() | ; Checks temp global that indicates whether the process is filing an incoming message
|
|
| SETMSGET() | ||
| FMTPHONE(PHONE,EXT) | ; Formats a VistA telephone number into an HL7-compliant format
; Formats include: (nnn)nnn-nnnn and nnn-nnnn, depending on whether or not there is an area code. ; If the number is not in a valid format, does not attempt to do any formatting. ; Returns 1 if the number was formatted, 0 otherwise. |
|
| GETLEN(SCH,AIP,AIG) | ;Translates duration into Minutes. Assumes minutes unless set to S or SEC for the units
; Only one parameter at a time should be passed-in, depending on what segment is calling this tag ; SCH (I/OPT) - SCH message segment data ; AIP (I/OPT) - AIP message segment data ; AIG (I/OPT) - AIG message segment data |
|
| COPYMSG(Y) | ; Copy HL7 Message to array Y (by reference)
; Based on HL*1.6*56 VISTA HL7 Site Manager & Developer Manual ; Paragraph 9.7, page 9-4 |
|
| CHKMSG(Y) | ; Check Message for all required segments
|
|
| DATALKUP(SEG,FILE,FILEPATH,FIELD,ERRCODE,ERRTEXT) | ; Translates a data element for a given FileMan file in an HL7 field
|
|
| ACK(STAT,MID,SID,SEG,FLD,CD,TXT,ACKTYP) | ; Creates ACKs for HL7 Message
|
|
| APPMSG(MSGID,ABORT) | ; Send a MailMan Message with the errors
|
|
| MESSAGE(MSGID,ABORT) | ; Send a MailMan Message with the errors
|
|
| ANAK(NAKMSG,USERMAIL,ICN,DFN,APTTM,CONID) | ; Application Error
|
|
| INT | ;
|
|
| TIMES(APPTTIME,SITECODE) | ; convert/calculate appt times
|
|
| DSTTEST(YR,CHKDT) | ;
|
|
| GETRSN(SCH) | ; Collects appointment reason and translates into internal format.
|
|
| GETTYPE(OBX) | ;translates appointment type into internal format
|
|
| GETUSER(SCH) | ;collects appointment entered by user and confirms they are a user in the 200 file
|
|
| DSTTABLE | ;
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | GET1^DIQ |
| ^VA(200 - [#200] | FIND1^DIC |
| ^DIC(4 - [#4] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
