IBACCWLUTIL ;EDE/TPF - ACC (Automated Community Care) Encounters utility APIs ; 12-SEP-2023
Source file <IBACCWLUTIL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDITSTATUS(ENCIEN,STATUS,REQUIRED) | ;EP - EDIT STATUS FIELD IN #364.9
|
|
| STA | ;REPEAT- STATUS REQUIRED
|
|
| UPDSTATUS(ENCIEN,STATUS) | ;EP - UPDATE STATUS IN 364.9
|
|
| CHKSTATUS(ENCIEN) | ;EP - RETURN EXTERNAL STATUS VALUE
|
|
| EDITAS2GRP(GRPIEN,ASSIGNTOGRP) | ;EP - EDIT 'ASSIGNED TO GROUP'
|
|
| GRPSETOFCODES(ASSIGNGRP,ACTCODEIEN,ACTGRPIEN) | ;EP - RETURN SET OF CODES BASED ON ENTRY IN ASSIGN TO GROUP MULTIPLE
|
|
| UPDAS2GRP(ENCIEN,GROUP,DISPLAY) | ;EP - UPDATE 'ASSIGNED TO GROUP' IN 364.9
|
|
| ACTIONREF(DA) | ;EP - SET "AC" X-REF IN #364.92
|
|
| KACTIONREF(DA) | ;EP - KILL "AC" X-REF
|
|
| ASSIGNTOREF(DA) | ;EP - CREATE "AD" X-REF IN 364.92
|
|
| KASSIGNTOREF(DA) | ;EP - KILL "AD" X-REF
|
|
| PROTOCOL | ;EP - DISPLAYS AN EXTENDED HELP FOR ACTION TYPE PROTOCOLS
|
|
| PROTX | ;
|
|
| MENU(XQORNOD) | ; Unwind protocol menus for help
|
|
| ITEM(XQORNOD,TAB) | ; Show descriptions of items
|
|
| CONTINUE() | ; Pagination control
|
|
| CONTX | ;
|
|
| STOP(PROMPT,SCROLL) | ; Call DIR at bottom of screen
|
|
| STOPX | ;
|
|
| UPPER(X) | ; Convert lower case X to UPPER CASE
|
|
| PUBLISH(PUBLISHGRP,IBENCIFN,FROMIBDA,ASSIGNTOGRP,VALMDDF,PUBSUCCESS,IBDAIEN,LASTONEPUBLISHED) | ;EP - PLACE DATA TO PUBLISH TO OTHER ACC ENCOUNTER WORK GROUP USERS INTO THEIR DATA GLOBALS
|
|
| SUBSCRIBE | ;EP - PULL DATA PUBLISHED FROM OTHER ACC ENCOUNTER USERS PLACED INTO YOUR DATA GLOBAL AND REFRESH SCREEN WITH IT
|
|
| CONVERTDFF(IBENCIFN,TODATA,LASTONE,FROMDFF,TODFF,FROMJOB,TOJOB) | ;EP - CONVERT ONE VALMDDF TO ANOTHER
|
|
| DAYSSCREEN(FROM,TO,MINDAYS) | ;EP - DAYS ON WORKLIST SCREEN FOR SORTS
|
|
| AUTHCHK(IBBILLER,IBIFN) | ;EP - AUTHORIZED BILLER SCREEN
|
|
| SORTLINE(VALMDDFF,LINENUM,LINE) | ;EP - CREATE A LINE TO SEPARATE THE K# SORT FORM NON K# SORT
|
|
| ADDPREVACT(RETURN,IBENCIFN,DUZ,ACTCODE,ASSIGNGRP,ASSIGNTOGRP,COMMENT) | ;EP - ADD PREVIOUS ACTIVITY - NO USER PROMPT
|
|
| EDITPREVACT(WPIENS,COMMENT,WPERR) | ;EP- EDIT PREVIOUS ACTIVITY
|
|
| ISTESTER(DUZ) | ;EP - RETURN 1 IF USER IS A PART OF THE ACC CENCOUNTER TEST USER GROUP
|
|
| ISITME(DUZ) | ;EP - IS IT TIM? USE ONLY IN BREAKS SO BREAKS OCCUR ONLY FOR TIM F.
|
|
| MG(BYTES) | ;EP -CONVERT BYTES TOI MEGABYTES
|
|
| GG(BYTES) | ;
|
|
| MG2BYTES(MG) | ;EP -
|
|
| AUTHORIZER(USERGROUP,IBAUTH) | ;EP - FIND ALL AUTHORIZERS GIVEN A GROUP NAME
|
|
| GETFLD(FIELD,LINE) | ;EP - RETURN CURRENT VALUE OF A DISPLAY FIELD FROM LINE
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | FIND1^DIC |
| ^IBA(364.9 - [#364.9] | Classic Fileman Calls, FIELD^DID, GET1^DIQ |
| 364.94 | WP^DIE |
