IBDF18A ;ALB/CJM/AAS - ENCOUNTER FORM - utilities for PCE ;04/12/94
Source file <IBDF18A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GLL(CLINIC,INTRFACE,ARY,FILTER,PAR5,PAR6,ENCDATE) | ; -- get lots of lists in one call
; -- input see GETLST but pass interface by reference expects ; INTRFACE(n) = name of select list in package interface file |
|
| GETLST(CLINIC,INTRFACE,ARY,FILTER,COUNT,MODIFIER,ENCDATE) | ; -- returns any specified selection list for a clinic
; -- input CLINIC = pointer to hospital location file for clinic ; INTRFACE = name of selection list in package interface file ; ARY = name of array to return list in ; FILTER = predefined filters (optional, default = 1) ; 1 = must be selection list ; 2 = only visit cpts on list ; ENCDATE = encounter date ; MODIFIER = if modifiers are to be passed, 1=yes send modifiers ; ; -- output The format of the returned array is as follows ; @ARY@(0) = count of array element (0 of nothing found) ; @ARY@(1) = ^group header ; @ARY@(2) = P1 := cpt or icd code / ien of other items ; P2 := user defined text ; p3 := quantity (number of occurrences) ; p6 := user defined expanded text to send to PCE ; p7 := second code or item defined for line item ; p8 := third code or item defined for line item ; p9 := associated clinical lexicon term ; ; @ARY@(2,"MODIFIER",0)=count of CPT Modifiers for entry ; @ARY@(2,"MODIFIER",1)=2 character CPT Modifier value ; @ARY@(2,"MODIFIER",2)=2 character CPT Modifier value ; @ARY@(2,"MODIFIER",k+1)=2 character CPT Modifier value ; ; @ARY@(k) = ^next group header ; @ARY@(k+1) = problem ien or cpt or icd code^user define text |
|
| GETLSTQ | ||
| GETBLKS | ; -- get the blocks for a form in row,column order
|
|
| CCP(COUNT) | ; -- no diagnosis, look for common problems and convert
|
|
| TOV | ; -- if trying to find Type of Visit codes but list on form
; uses another interface try this |
|
| TOV1 | ; -- first get all lists for blocks named Type of Visit or E&M
|
|
| TOV2 | ; -- get the type of visit codes from cpt lists using filter
|
|
| TEST1 | ||
| TEST2 | ||
| TEST4 | ||
| TEST5 | ||
| TEST5A | ||
| TEST6 | ||
| TEST7 | ||
| TEST8 | ; -- use this to test CPRS ability to retrieve type of visit
; set clinic := name or internal entry number of clinic or change ; value for specific clinic |
|
| TEST9 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
