IBACCWLUTIL1 ;EDE/TPF - ACC (Automated Community Care) Encounters utility APIs (Cont.) ; 12-SEP-2023
Source file <IBACCWLUTIL1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SUBDATAUPDATE(LINE,IBENCIFN,IBDAIEN,VALMDFFFROM,VALMDFFTO) | ;EP - UPDATE SUBSRIBER COLUMN DATA
|
|
| DIVNAME(IBENCIFN) | ;GET DIVISION NAME ;TPF;IB*2*770V32;EBILL-5411
|
|
| FORMTYPE(IBENCIFN) | ;GET FOMRTYPE
|
|
| FACNPI(IBENCIFN) | ;GET FACILITY NPI ??? WHERE IS THIS
|
|
| PROVNPI(IBENCIFN) | ;GET PROVIDER NPI
|
|
| CPT(IBENCIFN) | ;GET CPT
|
|
| DOB(IBENCIFN) | ;GET DOB
|
|
| PRIMDX(IBENCIFN) | ;GET PRIMDX
|
|
| STATUS(IBENCIFN) | ;GET STATUS
|
|
| PRIMINSUR(IBENCIFN) | ;GET PRIMARY INSURANCE
|
|
| SECINSUR(IBDAIEN) | ;GET SECONDARY INSURANCE
|
|
| SERVCON(IBENCIFN) | ;GET SERVICE CONNECTED
|
|
| ASSIGNEDGRP(IBENCIFN) | ;GET ASSIGNED GROUP
|
|
| BILLNUM(IBENCIFN) | ;GET BILL NUMBER
|
|
| DATEASSNED(IBENCIFN) | ;GET DATE ASSIGNED
|
|
| DAYSONWL(IBENCIFN) | ;GET DAYS ON THE WORKLIST
|
|
| INDICATOR(IBENCIFN) | ;GET INDICATOR
|
|
| PATTYPE(IBENCIFN) | ;GET PATIENT TYPE
|
|
| PREVACT(IBENCIFN) | ;GET LAST PREVIOUS ACTIVITY
|
|
| PROVIDER(IBENCIFN) | ;GET PROVIDER
|
|
| REASCODE(IBENCIFN) | ;GET REASON CODE
|
|
| SERVDATE(IBENCIFN) | ;GET SERVICE DATE
|
|
| SERVFAC(IBENCIFN) | ;GET SERVICE FACILITY
|
|
| SSN(IBENCIFN) | ;GET SERVICE FACILITY
|
|
| FIELDPUBLISH(FIELD,FIELDVALUE,IBENCIFN,PUBSUCCESS) | ;EP - PLACE DATA TO PUBLISH TO OTHER ACC ENCOUNTER WORK GROUP USERS INTO THEIR DATA GLOBALS
|
|
| TRANSMITTED(IBIFN) | ;EP - CHECK BILL FOR TRANSMISION STATUS
|
|
| ASKSTATUS(REQUIRED) | ;EP - ASK STATUS ONLY FOR BACTH PROCESSING
|
|
| STA | ;
|
|
| AVAILABLECHK(IBDA) | ;EP - CHECK IF RECORD HAS BEEN REASSIGNED AND THEREFOREE UNAVAILABEL TOI THE CURRENT USER
|
|
| NBSCREEN(IBDA) | ;EP - SCREEN FOR ACTION NB WHERE THE K# IS NOT CANCELLED YET
|
|
| CANCELLED(IBIFN) | ;EP - CHECK BILL FOR CANCELLED STATUS
|
|
| IPSCREEN(IBDA) | ;EP - SCREEN FOR ACTIVITY CODE 506 - APPLIES TO ONLY IP
|
|
| EEPUBLISH(IBDAIEN,IBFROMVALMDDF,SUCCESS,LASTONEPUBLISHED) | ;EP - MUST COME HERE TO PUBLISH FROM EE/RE-ASSIGN, RA-RESUBMIT
|
|
| PTNAME(IBENCIFN) | ;EP - COMBINE NAME FIELD SIN #364.9 INTOVISTA TYPE NAME FOR NAME LOOKUP X-REF
|
|
| DAYSONWRKGRP(IBENCIFN) | ;COMPUTE DAYS ON WORKGROUP WORKLIST
|
|
| CONVERT2DEC(SECONDX,EEDXDISPLAY) | ;EP - CONVERT SECONDARY DX STRING IN FIELD .3 FILE #364.9 TO READABLE DECIMAL
|
|
| ICDLKUP(IC) | ;Look up the ICD Code desciption v12
|
|
| ICDLKUPQ | ;Exit lookup
|
|
| HCPCSMANY(CODES,EDXDISPLAY) | ;
|
|
| HCPCS(CODE) | ;CPT Code lookup
|
|
| CPTMOD(CODE) | ;CPT Code Modifier lookup v12
|
|
| ISSPECAUTH(IBPATIEN) | ;EP - RETURN Y/N FOR SPECIAL AUTHORITY
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^IBA(364.9 - [#364.9] | FIELD^DID, GET1^DIQ |
| ^IBA(364.92 - [#364.92] | GETS^DIQ |
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^DIC(4 - [#4] | GET1^DIQ |
