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 |  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 ;04/12/94

Source Information

Source file <IBDF18A.m>

Call Graph

Call Graph

Call Graph Total: 4

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

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 9

Package Total Caller Graph
PCE Patient Care Encounter 4 PXBGCPT4  PXBGPOV4  PXBGPRV4  PXCEHELP  
Text Integration Utility 2 TIUPXAPC  TIUPXAPI  
Clinical Procedures 1 MDRPCW  
Order Entry Results Reporting 1 ORWPCE  
VistA Integration Adapter 1 VIABRPC  

Entry Points

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

External References

Name Field # of Occurrence
COPYLIST^IBDF18A1 GETLST+88, TOV1+16, TOV2+12
F2^IBDF18A1 GETLST+91, TOV2+13
CHKLST^IBDF18A2 GETLST+100
$$IMPDATE^IBDUTICD GETLST+68
$$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+88, TOV1+15, TOV1+16, TOV2+12
^IBE(357.6 - [#357.6] GETLST+69, GETLST+70, GETLST+71, TOV+5
^SC - [#44] GETLST+65
^SC("B" TEST8+5
^SD(409.95 - [#409.95] GETLST+76
^TMP("IBDUP" GETLST+46!, GETLST+102!

Label References

Name Line Occurrences
CCP GETLST+98
GETBLKS GETLST+82, TOV1+5
GETLST GLL+10, CCP+5, TEST1, TEST2, TEST4, TEST5, TEST5A, TEST6, TEST7, TEST9
GETLSTQ GETLST+64, GETLST+65, GETLST+66, GETLST+77
TOV GETLST+94
TOV1 TOV+6
TOV2 TOV+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ARY GLL~, GLL+10, GETLST~, GETLST+62*, GETLST+63, GETLST+88, GETLST+90, CCP+5, TOV1+16, TOV2+1*
, TOV2+2, TOV2+12
BLK GETLST+44~, GETBLKS+1!, GETBLKS+3*, GETBLKS+4*, GETBLKS+5, GETBLKS+7
BLK( GETLST+84, GETBLKS+7*, TOV1+7, TOV1+16!, TOV2+8
BLK(0 GETLST+82, TOV1+5
BLOCK GETLST+44~, GETLST+84*, GETLST+88, TOV1+7*, TOV1+9, TOV1+11, TOV1+15, TOV2+8*, TOV2+12
CLINIC GLL~, GLL+10, GETLST~, GETLST+64, GETLST+65, GETLST+76, CCP+5, TEST8+4*, TEST8+5*
COL GETLST+44~, GETLST+83*, GETLST+84*, GETBLKS+2~, GETBLKS+5*, GETBLKS+6, GETBLKS+7, TOV1+6*, TOV1+7*, TOV1+16
, TOV2+7*, TOV2+8*
COUNT GLL+8~, GLL+9*, GLL+10, GETLST~, GETLST+60*, GETLST+88, GETLST+90, GETLST+93, GETLST+98, CCP~
, CCP+2, CCP+5, TOV+7, TOV1+16, TOV2+12
DT TEST1, TEST2, TEST4, TEST5, TEST5A, TEST6, TEST7
ENCDATE GLL~, GLL+10, GETLST~, GETLST+68
FILTER GLL~, GLL+10, GETLST~, GETLST+61*, GETLST+62, GETLST+91
FORM GETLST+44~, GETLST+78*, GETLST+81, GETBLKS+4, TOV1+2*, TOV2+4*
HD TOV1+1~, TOV1+11*, TOV1+12*, TOV1+13
I GETLST+44~, GETLST+78*, CCP+1~, CCP+8*, CCP+9*, CCP+10, CCP+11, CCP+12, CCP+13, TOV1+2*
, TOV2+4*
IBDCSYS GETLST+45~, GETLST+68*, GETLST+69, GETLST+70
IBDIMPDA GETLST+45~, GETLST+68*
IBDTMP GETLST+44~
IBQUIT GETLST+44~, GETLST+47*, GETLST+78, TOV1+2, TOV2+4
INTRFACE GLL~, GETLST~, GETLST+48, GETLST+66, GETLST+67, GETLST+71, GETLST+94, GETLST+98
INTRFACE( GLL+10
INUM GETLST+44~, GETLST+69*, GETLST+70*, GETLST+71*, GETLST+88, TOV+3~, TOV+4*, TOV+5*
INUM( TOV+5*, TOV1+16, TOV2+12
J GETLST+44~
LIST GETLST+44~, GETLST+47*, GETLST+87*, GETLST+88*, TOV1+14*, TOV1+15*, TOV1+16, TOV2+11*, TOV2+12*
LIST1 GETLST+45~
LIST1( GETLST+67, GETLST+100
LIST1("DG SEL ECT CPT PROCEDURE CODES" , GETLST+52*, ECT ICD DIAGNOSIS CODES" , GETLST+54*, ECT ICD-10 DIAGNOSIS COD" , GETLST+55*, ECT ICD-9 DIAGNOSIS CODE" , GETLST+53*, ECT VISIT TYPE CPT PROCE" , GETLST+56*
LIST1("GMP IN PUT CLINIC COMMON PROBLE" , GETLST+57*
LIST1("GMP PA TIENT ACTIVE PROBLEMS" , GETLST+58*
MODIFIER GETLST~
NM TOV1+1~, TOV1+9*, TOV1+10*, TOV1+13
OLDARY GETLST+44~, GETLST+62*, GETLST+91, TOV2+1*, TOV2+13
OLDCNT CCP+1~, CCP+2*, CCP+8
PACKAGE GETLST+45~, GETLST+48*, GETLST+67, GETLST+100
PAR5 GLL~
PAR6 GLL~, GLL+10
ROW GETLST+44~, GETLST+83*, GETLST+84*, GETBLKS+2~, GETBLKS+5*, GETBLKS+6, GETBLKS+7, TOV1+6*, TOV1+7*, TOV1+16
, TOV2+7*, TOV2+8*
SETUP GETLST+44~, GETLST+76*, GETLST+77, GETLST+78, TOV1+2, TOV2+4
VAR TEST1!, TEST2!, TEST4!, TEST5!, TEST5A!, TEST6!, TEST7!, TEST8+3!, TEST9!
VAR( CCP+9, CCP+10, CCP+11*, CCP+12*, CCP+13*
X GLL+8~, GLL+10*, GETLST+44~, CCP+1~, CCP+10*, CCP+11
Y GETLST+44~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All