BDGPCCE2 ; IHS/ANMC/LJF - PULL UP ALL I VISITS ;
Source file <BDGPCCE2.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2 |
| Kernel | 3 | $$FMADD^XLFDT $$REPEAT^XLFSTR DISP^XQORM1 |
| Patient Care Component | 3 | ^APCDEKL EN^APCDEL ^APCDVD |
| IHS Changes To ADT | 2 | ($$CONF,MSG)^BDGF $$HRCN^BDGF2 |
| VA Fileman | 2 | ^DIE $$GET1^DIQ |
| IHS Patient | 1 | MOD^AUPNVSIT |
| IHS VA Utilities | 1 | EN^XBVK |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RESET | ;EP; return from protocol & rebuild list
|
|
| VIEWVST | ;EP; called by View Visit protocol
|
|
| EN | ;EP -- main entry point for BDG IC I VISITS ;IHS/OIT/LJF 04/14/2006 PATCH 1005
; Assumes DFN and BDGV are set |
|
| HDR | ; -- header code
|
|
| VFILES(V,ARRAY) | ; find linked v files and counts
|
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
| EXPND | ; -- expand code
|
|
| EDITCAT | ;EP; called by Edit Service Category protocol
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| INIT | ; -- init variables and list array
|
|
| EXIT | ; -- exit code
|
|
| SET(DATA,NUM,CNT,IEN) | ; put display line into array
|
|
| EDITVST | ;EP; called by Edit Visit protocol
|
|
| GETVST | ; select visit from list
; returns BDGN |
|
| HELP | ; -- help code
|
| Name | Field # of Occurrence |
|---|---|
| ^APCDEKL | EDITVST+4 |
| EN^APCDEL | EDITVST+4 |
| ^APCDVD | VIEWVST+4 |
| MOD^AUPNVSIT | EDITCAT+4 |
| $$CONF^BDGF | HDR+2 |
| MSG^BDGF | EN+2 |
| $$HRCN^BDGF2 | HDR+4 |
| ^DIE | EDITCAT+3 |
| $$GET1^DIQ | HDR+4, HDR+7, INIT+4, INIT+6, INIT+12, INIT+13, INIT+14, INIT+19, INIT+20 |
| EN^VALM | EN+4 |
| TERM^VALM0 | EN+3, RESET+1 |
| CLEAR^VALM1 | EN+3, EN+5 |
| FULL^VALM1 | GETVST+3 |
| EN^VALM2 | GETVST+4 |
| EN^XBVK | VIEWVST+5 |
| $$FMADD^XLFDT | INIT+5 |
| $$REPEAT^XLFSTR | PAD+2 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^AUPNVSIT - [#9000010] | Classic Fileman Calls, GET1^DIQ |
| ^AUPNVINP - [#9000010.02] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVINP("AD" | INIT+6 |
| ^AUPNVSIT("AA" | INIT+10, INIT+11 |
| ^DIC - [#1] | VFILES+3, VFILES+4, VFILES+6 |
| ^TMP("BDGPCCE2" | INIT+1!, INIT+33, SET+2*, SET+3*, EXIT+1!, GETVST+7, GETVST+8, GETVST+9, GETVST+10 |
| Name | Line Occurrences |
|---|---|
| $$PAD | INIT+20, INIT+25, INIT+28, SP+1 |
| $$SP | HDR+2, HDR+4, HDR+5, HDR+8, INIT+28, INIT+30 |
| GETVST | EDITCAT+2, EDITVST+2, VIEWVST+2 |
| HDR | RESET+1 |
| INIT | RESET+1 |
| RESET | EDITCAT+5, EDITVST+4 |
| SET | INIT+25, INIT+30, INIT+31, INIT+33 |
| VFILES | INIT+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADM | INIT+3~, INIT+4*, INIT+5 |
| APCDPAT | EDITVST+1~, EDITVST+3*, VIEWVST+1~, VIEWVST+3* |
| APCDVSIT | EDITVST+1~, EDITVST+3*, VIEWVST+1~, VIEWVST+3* |
| ARRAY | VFILES~ |
| ARRAY( | VFILES+9* |
| AUPNVSIT | EDITCAT+1~, EDITCAT+4* |
| BDGA | INIT+23!, INIT+24 |
| BDGA( | INIT+27, INIT+29 |
| BDGN | EDITCAT+1~, EDITCAT+2, EDITCAT+3, EDITCAT+4, EDITVST+1~, EDITVST+2, EDITVST+3, VIEWVST+1~, VIEWVST+2, VIEWVST+3 , GETVST+3*, GETVST+10* |
| >> BDGV | HDR+7, INIT+4, INIT+6 |
| BEG | INIT+3~, INIT+5*, INIT+8*, INIT+10 |
| CNT | SET~, SET+3 |
| COUNT | INIT+3~, INIT+16*, INIT+19, INIT+25, INIT+30, INIT+31 |
| D | PAD~, PAD+2 |
| DA | EDITCAT+1~, EDITCAT+3* |
| DATA | SET~, SET+2 |
| DATE | INIT+3~, INIT+8*, INIT+10*, INIT+11 |
| >> DFN | HDR+4, INIT+10, INIT+11, EDITVST+3, VIEWVST+3 |
| DIE | EDITCAT+1~, EDITCAT+3* |
| DR | EDITCAT+1~, EDITCAT+3* |
| DSC | INIT+3~, INIT+6*, INIT+7*, INIT+8 |
| DT | INIT+7 |
| DUZ(2 | HDR+4, INIT+14 |
| FILE | VFILES+1~, VFILES+2*, VFILES+3*, VFILES+4, VFILES+6 |
| >> FIRST | INIT+27*, INIT+28 |
| GLOBAL | VFILES+1~, VFILES+4*, VFILES+5*, VFILES+8 |
| IEN | VFILES+1~, VFILES+8*, SET~, SET+3 |
| L | PAD~, PAD+2 |
| LINE | INIT+3~, INIT+19*, INIT+20*, INIT+25, INIT+28*, INIT+29*, INIT+30* |
| N | SP~, SP+1 |
| NAME | INIT+27*, INIT+29, VFILES+1~, VFILES+6*, VFILES+9 |
| NUM | SET~, SET+1*, SET+2, SET+3 |
| U | VFILES+6 |
| V | VFILES~, VFILES+8 |
| >> VALMBCK | EDITCAT+2*, EDITVST+2*, VIEWVST+2*, VIEWVST+5*, RESET+1* |
| VALMCNT | EN+3~, INIT+2*, INIT+25, INIT+30, INIT+31, INIT+33 |
| >> VALMHDR(1 | HDR+2* |
| >> VALMHDR(2 | HDR+5* |
| >> VALMHDR(3 | HDR+8* |
| >> VALMY | GETVST+5 |
| >> VALMY( | GETVST+6 |
| VH | HDR+1~ |
| VST | INIT+3~, INIT+11*, INIT+12, INIT+13, INIT+14, INIT+19, INIT+20, INIT+23, INIT+25, INIT+30 , INIT+31 |
| X | HDR+1~, HDR+4*, HDR+5, HDR+7*, HDR+8, HELP+1*, GETVST+2~, GETVST+6*, GETVST+10 |
| >> XQORNOD(0 | GETVST+4 |
| Y | HDR+1~, GETVST+2~, GETVST+7*, GETVST+8, GETVST+9, GETVST+10 |
| Z | GETVST+2~, GETVST+8*, GETVST+9, GETVST+10 |