©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
IBDF18A ;ALB/CJM/AAS - ENCOUNTER FORM - utilities for PCE ;12-AUG-94
Source file <IBDF18A.m>
| Package | Total | Call Graph |
|---|---|---|
| Automated Information Collection System | 1 | (COPYLIST,F2)^IBDF18A1 |
| Lexicon Utility | 1 | $$ICDONE^LEXU |
| Package | Total | Caller Graph |
|---|---|---|
| PCE Patient Care Encounter | 4 | PXBGCPT4 PXBGPOV4 PXBGPRV4 PXCEHELP |
| Order Entry Results Reporting | 2 | ORWIB ORWPCE |
| Text Integration Utility | 1 | TIUPXAPC |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| TEST1 | ||
| GETLST(CLINIC,INTRFACE,ARY,FILTER,COUNT,MODIFIER) | ; -- 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 ; 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 ; 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 |
|
| TEST5 | ||
| TEST4 | ||
| TEST7 | ||
| TEST6 | ||
| TEST9 | ||
| 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 |
|
| TOV | ; -- if trying to find Type of Visit codes but list on form
; uses another interface try this |
|
| GETLSTQ | ||
| TEST2 | ||
| CCP(COUNT) | ; -- no diagnosis, look for common problems and convert
|
|
| 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
|
|
| GLL(CLINIC,INTRFACE,ARY,FILTER) | ; -- 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 |
|
| GETBLKS | ; -- get the blocks for a form in row,column order
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^IBE(357.1 - [#357.1] | GETBLKS+4, GETBLKS+5, TOV1+9, TOV1+11 |
| ^IBE(357.2 - [#357.2] | GETLST+69, TOV1+15, TOV1+16, TOV2+12 |
| ^IBE(357.6 - [#357.6] | GETLST+52, TOV+5 |
| ^SC - [#44] | GETLST+50 |
| ^SC("B" | TEST8+5 |
| ^SD(409.95 - [#409.95] | GETLST+57 |
| ^TMP("IBDUP" | GETLST+43!, GETLST+81! |
| Name | Line Occurrences |
|---|---|
| CCP | GETLST+79 |
| GETBLKS | GETLST+63, TOV1+5 |
| GETLST | GLL+7, CCP+5, TEST1, TEST2, TEST4, TEST5, TEST6, TEST7, TEST9 |
| GETLSTQ | GETLST+49, GETLST+50, GETLST+51, GETLST+58 |
| TOV | GETLST+75 |
| TOV1 | TOV+6 |
| TOV2 | TOV+7 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | GETBLKS+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ARY | GLL~, GLL+7, GETLST~, GETLST+47*, GETLST+48, GETLST+69, GETLST+71, CCP+5, TOV1+16, TOV2+1* , TOV2+2, TOV2+12 |
| BLK | GETLST+42~, GETBLKS+1!, GETBLKS+3*, GETBLKS+4*, GETBLKS+5, GETBLKS+7 |
| BLK( | GETLST+65, GETBLKS+7*, TOV1+7, TOV1+16!, TOV2+8 |
| BLK(0 | GETLST+63, TOV1+5 |
| BLOCK | GETLST+42~, GETLST+65*, GETLST+69, TOV1+7*, TOV1+9, TOV1+11, TOV1+15, TOV2+8*, TOV2+12 |
| CLINIC | GLL~, GLL+7, GETLST~, GETLST+49, GETLST+50, GETLST+57, CCP+5, TEST8+4*, TEST8+5* |
| COL | GETLST+42~, GETLST+64*, GETLST+65*, GETBLKS+2~, GETBLKS+5*, GETBLKS+6, GETBLKS+7, TOV1+6*, TOV1+7*, TOV1+16 , TOV2+7*, TOV2+8* |
| COUNT | GLL+5~, GLL+6*, GLL+7, GETLST~, GETLST+45*, GETLST+69, GETLST+71, GETLST+74, GETLST+79, CCP~ , CCP+2, CCP+5, TOV+7, TOV1+16, TOV2+12 |
| FILTER | GLL~, GLL+7, GETLST~, GETLST+46*, GETLST+47, GETLST+72 |
| FORM | GETLST+42~, GETLST+59*, GETLST+62, GETBLKS+4, TOV1+2*, TOV2+4* |
| HD | TOV1+1~, TOV1+11*, TOV1+12*, TOV1+13 |
| I | GETLST+42~, GETLST+59*, CCP+1~, CCP+8*, CCP+9*, CCP+10, CCP+11, CCP+12, CCP+13, TOV1+2* , TOV2+4* |
| IBDTMP | GETLST+42~ |
| IBQUIT | GETLST+42~, GETLST+44*, GETLST+59, TOV1+2, TOV2+4 |
| INTRFACE | GLL~, GETLST~, GETLST+51, GETLST+52, GETLST+75, GETLST+79 |
| INTRFACE( | GLL+7 |
| INUM | GETLST+42~, GETLST+52*, GETLST+69, TOV+3~, TOV+4*, TOV+5* |
| INUM( | TOV+5*, TOV1+16, TOV2+12 |
| J | GETLST+42~ |
| LIST | GETLST+42~, GETLST+44*, GETLST+68*, GETLST+69*, TOV1+14*, TOV1+15*, TOV1+16, TOV2+11*, TOV2+12* |
| MODIFIER | GETLST~ |
| NM | TOV1+1~, TOV1+9*, TOV1+10*, TOV1+13 |
| OLDARY | GETLST+42~, GETLST+47*, GETLST+72, TOV2+1*, TOV2+13 |
| OLDCNT | CCP+1~, CCP+2*, CCP+8 |
| ROW | GETLST+42~, GETLST+64*, GETLST+65*, GETBLKS+2~, GETBLKS+5*, GETBLKS+6, GETBLKS+7, TOV1+6*, TOV1+7*, TOV1+16 , TOV2+7*, TOV2+8* |
| SETUP | GETLST+42~, GETLST+57*, GETLST+58, GETLST+59, TOV1+2, TOV2+4 |
| VAR | TEST1!, TEST2!, TEST4!, TEST5!, TEST6!, TEST7!, TEST8+3!, TEST9! |
| VAR( | CCP+9, CCP+10, CCP+11*, CCP+12*, CCP+13* |
| X | GLL+5~, GLL+7*, GETLST+42~, CCP+1~, CCP+10*, CCP+11 |
| Y | GETLST+42~ |