IBJTTC ;ALB/ARH/PJH - TPI AR COMMENT HISTORY ; 3/18/11 2:15pm
Source file <IBJTTC.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for IBJT AR COMMENT HISTORY
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| INITQ | ||
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| BLD | ;
|
|
| EOBC | ; check for new EOB comments IB*2.0*432
|
|
| CONTACT() | ;HIPAA 5010 check for contact data in comments
|
|
| DATE(X) | ; date in external format
|
|
| SETLN(STR,IBX,COL,WD) | ;
|
|
| SET(STR,LN) | ; set up TMP array with screen data
|
|
| SETQ | ||
| MDACMTS | ; Check for MDA comments, Load for List Manager Screen IB*2.0*447 BI
; INTEGRATION CONTROL REGISTRATION is contained in DBIA #5696. |
|
| RFAIC | ; check for new RFAI comments IB*2.0*547 (modeled after EOBC)
; uses ^IBA(368,"D",$E(X,1,30),DA) PATIENT CONTROL NUMBER [D] cross-reference |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^IBM(361.1 - [#361.1] | EXTERNAL^DILFD |