GMPLSLI1 ;ISP/TC - Problem Selection List Import Utility ;04/13/2020
Source file <GMPLSLI1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| IMP | ; Import categories & diagnoses into a selection list
|
|
| IMPCSV(GMPLNODE) | ;Import comma separated data into the Problem Selection List & Category files
; Flag indicators: '#' - Add/edit, '@' - Delete |
|
| IMPCSVQT | ||
| LOADHF(GMPLNOUT) | ;Load the CSV host file into ^TMP.
|
|
| LOADWEB(GMPLNOUT) | ;Load the CSV file from a web site into ^TMP
|
|
| MSGHNDL(GMPLNODE,GMPLRNDE) | ; Message prompt and handling
|
|
| POSTUPDT(GMPLNODE) | ; Save the list categories & diagnoses
|
|
| SVC12501(GMPLREC,GMPLFLAG,GMPLLNME,GMPLOK) | ; Save category info into subfile 125.01
|
|
| SVCQT | ||
| SVC12511(GMPLREC,GMPLFLAG,GMPLCLS,GMPLCCLS,GMPLOK) | ; Save category info into file 125.11
|
|
| SVCQT1 | ||
| SVPROB(GMPLREC,GMPLCNME,GMPLOK) | ; Save category problems into subfile 125.11
|
|
| UPDTCNT(GMPLNODE) | ; Save/delete the list name & class
; Flag indicators: # - Add/edit list, @ - Delete list |
|
| UPQT | ||
| VALCAT(GMPLTMP,GMPLFLAG,GMPLIMPT,GMPLRNDE,GMPLABRT) | ; Validate category info
|
|
| VALCPROB(GMPLTMP,GMPLRNDE,GMPLABRT) | ; Validate category problems
|
|
| VALSLST(GMPLTMP,GMPLFLAG,GMPLIMPT,GMPLRNDE,GMPLABRT) | ; Validate selection list & class
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^GMPL(125 - [#125] | FIND1^DIC |
| 125.01 | FIND1^DIC |
| ^GMPL(125.11 - [#125.11] | FIND1^DIC |
