Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: IBDF18A

Package: Automated Information Collection System

Routine: IBDF18A


Information

IBDF18A ;ALB/CJM/AAS - ENCOUNTER FORM - utilities for PCE ;12-AUG-94

Source Information

Source file <IBDF18A.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Automated Information Collection System 1 (COPYLIST,F2)^IBDF18A1  
Lexicon Utility 1 $$ICDONE^LEXU  

Caller Graph

Caller Graph Total: 7

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  

Entry Points

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

External References

Name Field # of Occurrence
COPYLIST^IBDF18A1 GETLST+69, TOV1+16, TOV2+12
F2^IBDF18A1 GETLST+72, TOV2+13
$$ICDONE^LEXU CCP+11, CCP+12, CCP+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Using Clinic: ",CLINIC
  • Line Location: TEST8+5
Function Call: WRITE
  • Prompt: !,"IEN: ",CLINIC,!
  • Line Location: TEST8+5

Global Variables Directly Accessed

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!

Label References

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

Naked Globals

Name Field # of Occurrence
^(0 GETBLKS+5

Local Variables

Legend:

>> 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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All