©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
BSDAL2 ; IHS/ANMC/LJF - IHS APPT LIST - CONTINUED ;
Source file <BSDAL2.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Changes To Scheduling | 3 | $$ACTV^BSDU PCP^BSDU1 $$WALKIN^BSDU2 |
| IHS Changes To ADT | 2 | $$INPT1^BDGF1 ($$DEAD,$$DOD,$$HRCN,$$INSUR)^BDGF2 |
| Kernel | 2 | $$FMTE^XLFDT ($$REPEAT,$$STRIP)^XLFSTR |
| IHS Patient | 1 | $$AGE^AUPNPAT |
| Registration | 1 | (ADD,DEM)^VADPT |
| Scheduling | 1 | TM^SDROUT0 |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Changes To Scheduling | 2 | BSDALL BSDAPI2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET(DATA,NUM) | ; put display line into display array
|
|
| APPTLN(CLN,DATE,IEN) | ; -- for each individual appt, print patient data
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
| CCLK(CLN,DATE) | ; -- list chart requests for this clinic and date
|
|
| CHECK(CLN,APDT) | ;check if clinic for this division and not cancelled or inactive
|
|
| START | ;EP; called by list template INIT^BSDALL
|
|
| CLINIC | ; called for each clinic
|
|
| AGE(P) | ; returns shortened printable age ;IHS/OIT/LJF 7/15/2005 PATCH 1004
|
|
| ACTIVITY(CLN,APDT) | ;Determine if clinic has activity to print for appt date
|
| Name | Field # of Occurrence |
|---|---|
| $$AGE^AUPNPAT | AGE+1 |
| $$INPT1^BDGF1 | APPTLN+26 |
| $$DEAD^BDGF2 | APPTLN+32 |
| $$DOD^BDGF2 | APPTLN+33 |
| $$HRCN^BDGF2 | APPTLN+37, CCLK+9 |
| $$INSUR^BDGF2 | APPTLN+50 |
| $$ACTV^BSDU | CHECK+3 |
| PCP^BSDU1 | APPTLN+89 |
| $$WALKIN^BSDU2 | APPTLN+7 |
| $$GET1^DIQ | CLINIC+9, APPTLN+66, APPTLN+68, APPTLN+78, APPTLN+79, APPTLN+97, CCLK+8, CCLK+13, CCLK+15, CHECK+1 , CHECK+2 |
| TM^SDROUT0 | APPTLN+15, APPTLN+22, APPTLN+44 |
| ADD^VADPT | APPTLN+76 |
| DEM^VADPT | APPTLN+9 |
| $$FMTE^XLFDT | CLINIC+10, APPTLN+39, APPTLN+67, CCLK+3, CCLK+14 |
| $$REPEAT^XLFSTR | CLINIC+12, PAD+2 |
| $$STRIP^XLFSTR | AGE+1 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^AUPNPAT - [#9000001] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | APPTLN+8, APPTLN+28 |
| ^SC - [#44] | CLINIC+16, CLINIC+19, CLINIC+20, APPTLN+2, APPTLN+21, APPTLN+35, CCLK+2, CCLK+5, CCLK+6, CCLK+7 , CHECK+4, ACTIVITY+1, ACTIVITY+4, ACTIVITY+5, ACTIVITY+6 |
| ^SC("B" | START+3, START+5 |
| ^TMP("BSDAL" | SET+2* |
| Name | Line Occurrences |
|---|---|
| $$ACTIVITY | CLINIC+7 |
| $$AGE | APPTLN+39 |
| $$CHECK | CLINIC+7 |
| $$PAD | APPTLN+19, APPTLN+26, APPTLN+36, APPTLN+37, APPTLN+44, APPTLN+50, CCLK+9, CCLK+10, SP+1 |
| $$SP | CLINIC+25, APPTLN+15, APPTLN+33, APPTLN+35, APPTLN+50, APPTLN+66, APPTLN+72, APPTLN+81, APPTLN+83, APPTLN+91 , APPTLN+97, CCLK+13 |
| APPTLN | CLINIC+21 |
| CCLK | CLINIC+28 |
| CLINIC | START+5 |
| SET | CLINIC+11, CLINIC+12, CLINIC+25, CLINIC+27, APPTLN+16, APPTLN+29, APPTLN+33, APPTLN+45, APPTLN+51, APPTLN+55 , APPTLN+57, APPTLN+60, APPTLN+69, APPTLN+82, APPTLN+84, APPTLN+92, APPTLN+98, APPTLN+101, CCLK+3, CCLK+11 , CCLK+17 |
| Name | Field # of Occurrence |
|---|---|
| ^( | APPTLN+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APDT | CHECK~, CHECK+3, CHECK+4, ACTIVITY~, ACTIVITY+1, ACTIVITY+3, ACTIVITY+4 |
| BSD | CLINIC+1~, CLINIC+15*, CLINIC+16*, CLINIC+19, CLINIC+20, CLINIC+21 |
| BSDACT | CLINIC+1~, CLINIC+15*, CLINIC+23, CLINIC+24*, CLINIC+25, APPTLN+101* |
| >> BSDAMB | APPTLN+63, CCLK+12 |
| BSDARR | APPTLN+89~* |
| BSDARR(1 | APPTLN+91 |
| BSDC | CCLK+1~ |
| >> BSDCC | APPTLN+96 |
| BSDCN | START+1~, START+2*, START+3*, START+5 |
| BSDCPH | APPTLN+77~, APPTLN+79*, APPTLN+83 |
| >> BSDCR | CLINIC+28, ACTIVITY+1 |
| >> BSDD | CLINIC+6*, CLINIC+7, CLINIC+10, CLINIC+15, CLINIC+16, CLINIC+28 |
| >> BSDD( | CLINIC+5, CLINIC+6 |
| BSDDA | CLINIC+4~, CLINIC+5*, CLINIC+6 |
| BSDLOA | APPTLN+4~, APPTLN+5*, APPTLN+15 |
| BSDN | CCLK+1~, CCLK+7*, CCLK+10, CCLK+13, CCLK+14, CCLK+15 |
| >> BSDPCMM | APPTLN+72, APPTLN+88 |
| >> BSDPH | APPTLN+72, APPTLN+74 |
| >> BSDPRT | CLINIC+8, CLINIC+12 |
| >> BSDWI | APPTLN+7 |
| BSDWPH | APPTLN+77~, APPTLN+78*, APPTLN+81 |
| BSDZ | APPTLN+1~ |
| BSDZ( | APPTLN+42*, APPTLN+44 |
| BSDZ(3 | APPTLN+41* |
| BSDZ(4 | APPTLN+41* |
| BSDZ(5 | APPTLN+41* |
| CLN | APPTLN~, APPTLN+2, CCLK~, CCLK+2, CCLK+5, CCLK+6, CCLK+7, CHECK~, CHECK+1, CHECK+2 , CHECK+3, CHECK+4, ACTIVITY~, ACTIVITY+1, ACTIVITY+4, ACTIVITY+5, ACTIVITY+6 |
| D | PAD~, PAD+2 |
| DATA | APPTLN+1~, APPTLN+8*, APPTLN+20, APPTLN+24, APPTLN+42, SET~, SET+2 |
| DATE | APPTLN~, APPTLN+2, APPTLN+7, APPTLN+8, APPTLN+15, APPTLN+21, APPTLN+26, APPTLN+35, APPTLN+50, CCLK~ , CCLK+2, CCLK+3, CCLK+5, CCLK+6, CCLK+7, ACTIVITY+2~, ACTIVITY+3*, ACTIVITY+4*, ACTIVITY+5, ACTIVITY+6 , AGE+1 |
| DFN | APPTLN+1~, APPTLN+2*, APPTLN+7, APPTLN+8, APPTLN+26, APPTLN+28, APPTLN+32, APPTLN+33, APPTLN+37, APPTLN+39 , APPTLN+50, APPTLN+78, APPTLN+79, APPTLN+89, APPTLN+97, CCLK+1~, CCLK+6*, CCLK+8, CCLK+9, AGE+1 |
| DUZ(2 | APPTLN+37, CCLK+9 |
| FIRST | CLINIC+1~, CLINIC+18*, APPTLN+13, APPTLN+15* |
| FOUND | ACTIVITY+2~, ACTIVITY+3*, ACTIVITY+4, ACTIVITY+5, ACTIVITY+6*, ACTIVITY+7 |
| IEN | CLINIC+1~, CLINIC+18*, CLINIC+19*, CLINIC+20, CLINIC+21, APPTLN~, APPTLN+2, APPTLN+21, APPTLN+35, CCLK+1~ , CCLK+5*, CCLK+6, CCLK+7 |
| L | PAD~, PAD+2 |
| LINE | CLINIC+1~, CLINIC+8*, CLINIC+9*, CLINIC+10*, CLINIC+11, APPTLN+1~, APPTLN+15*, APPTLN+16*, APPTLN+19*, APPTLN+20* , APPTLN+22*, APPTLN+24*, APPTLN+26*, APPTLN+27*, APPTLN+28*, APPTLN+29, APPTLN+35*, APPTLN+36*, APPTLN+37*, APPTLN+39* , APPTLN+44*, APPTLN+45, APPTLN+50*, APPTLN+51, APPTLN+54*, APPTLN+55, APPTLN+56*, APPTLN+57, APPTLN+59*, APPTLN+60 , APPTLN+66*, APPTLN+67*, APPTLN+68*, APPTLN+69, APPTLN+72*, APPTLN+80*, APPTLN+81*, APPTLN+82, APPTLN+83*, APPTLN+84 , APPTLN+91*, APPTLN+92, APPTLN+97*, APPTLN+98, CCLK+8*, CCLK+9*, CCLK+10*, CCLK+11, CCLK+13*, CCLK+14* , CCLK+16*, CCLK+17 |
| N | ACTIVITY+2~, ACTIVITY+5*, ACTIVITY+6, SP~, SP+1 |
| NODE | APPTLN+1~, APPTLN+2*, APPTLN+5, APPTLN+53, APPTLN+54, APPTLN+56, APPTLN+58, APPTLN+59, APPTLN+65 |
| NUM | SET~, SET+1*, SET+2 |
| P | AGE~ |
| SC | START+1~, START+4*, START+5*, CLINIC+7, CLINIC+9, CLINIC+16, CLINIC+19, CLINIC+20, CLINIC+21, CLINIC+28 , APPTLN+21, APPTLN+35 |
| SPACE | APPTLN+1~, APPTLN+41*, APPTLN+44* |
| U | CLINIC+20, APPTLN+5, APPTLN+8, APPTLN+20, APPTLN+21, APPTLN+24, APPTLN+42, APPTLN+53, APPTLN+54, APPTLN+56 , APPTLN+58, APPTLN+59, APPTLN+65, CCLK+10, CCLK+13, CCLK+15, ACTIVITY+6 |
| VA | APPTLN+1~ |
| VADM | APPTLN+1~ |
| VADM(1 | APPTLN+36 |
| VADM(3 | APPTLN+39 |
| >> VALMCNT | CLINIC+11, CLINIC+12, CLINIC+25, CLINIC+27, APPTLN+16, APPTLN+29, APPTLN+33, APPTLN+45, APPTLN+51, APPTLN+55 , APPTLN+57, APPTLN+60, APPTLN+69, APPTLN+82, APPTLN+84, APPTLN+92, APPTLN+98, APPTLN+101, CCLK+3, CCLK+11 , CCLK+17 |
| VAPA | APPTLN+1~, APPTLN+75! |
| VAPA(8 | APPTLN+80 |
| >> VAUTC | START+3 |
| >> VAUTC( | START+3 |
| >> VAUTD | CHECK+2 |
| >> VAUTD( | CHECK+2 |
| X | APPTLN+1~, APPTLN+15*, APPTLN+21*, APPTLN+22, APPTLN+26*, APPTLN+27, APPTLN+42*, APPTLN+44*, APPTLN+64~, APPTLN+65* , APPTLN+66, APPTLN+68, CCLK+15*, CCLK+16 |
| Y | APPTLN+64~, APPTLN+65*, APPTLN+67 |
| Z | APPTLN+1~, APPTLN+44*, APPTLN+64~, APPTLN+68* |