©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
BDGSVS ; IHS/ANMC/LJF - SCHED VISIT SUMMARY ;
Source file <BDGSVS.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 3 | ^%ZISC ($$REPEAT,$$RJ)^XLFSTR DISP^XQORM1 |
| Registration | 3 | EN^VALM TERM^VALM0 CLEAR^VALM1 |
| IHS Changes To ADT | 1 | ($$BROWSE,$$CONF,ZIS)^BDGF |
| VA Fileman | 1 | $$GET1^DIQ |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| A | ; process admission fields
|
|
| SET(DATA,NUM) | ; put display data into array
|
|
| EN | ; -- main entry point for BDG SCHED VISIT SUMMARY
|
|
| HDR | ; -- header code
|
|
| PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
| SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
| TRAVEL | ; set up travel fields for display
|
|
| DATA(FLD,LEN) | ; process one field
|
|
| O | ; process outpatient visit fields
|
|
| HDG | ; heading for paper report
|
|
| INIT | ; -- init variables and list array
|
|
| HELP | ; -- help code
|
|
| TITLE(F) | ; return field F name or title
|
|
| ; print report to paper
|
||
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| D | ; process day surgery fields
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^BDGSV - [#9009016.7] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DD(9009016.7 | TITLE+1, TITLE+2 |
| ^TMP("BDGSVS" | INIT+2!, SET+2*, EXIT+1!, PRINT+5, PRINT+7 |
| Name | Line Occurrences |
|---|---|
| $$PAD | HDR+4, HDR+5, HDR+6, SP+1 |
| $$SP | HDR+2, INIT+6 |
| $$TITLE | DATA+3 |
| @( | INIT+10 |
| DATA | INIT+14, A+2, D+2, O+2, TRAVEL+2, TRAVEL+4 |
| EN | BDGSVS+4 |
| EXIT | PRINT+8 |
| HDG | PRINT+6 |
| HDR | PRINT+2, HDG+1 |
| INIT | EN+2 |
| EN+2 | |
| SET | INIT+7, INIT+11, INIT+13, DATA+3, TRAVEL+3 |
| TRAVEL | INIT+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BDGN | HDR+3, HDR+4, HDR+5, HDR+6, INIT+5, INIT+10, DATA+2 |
| BDGX | PRINT+1~, PRINT+5*, PRINT+7 |
| D | PAD~, PAD+2 |
| DATA | SET~, SET+2 |
| DFN | INIT+1~ |
| F | TITLE~, TITLE+1, TITLE+2 |
| FIELD | A+1~, A+2*, D+1~, D+2*, O+1~, O+2*, TRAVEL+1~, TRAVEL+2*, TRAVEL+4* |
| FLD | DATA~, DATA+2, DATA+3 |
| >> I | HDG+2* |
| IO | PRINT+2 |
| IOF | HDG+1 |
| >> IORVOFF | INIT+6 |
| >> IORVON | INIT+6 |
| IOSL | PRINT+6 |
| IOST | EN+2 |
| L | PAD~, PAD+2 |
| LEN | DATA~, DATA+3 |
| LINE | INIT+1~, INIT+6*, INIT+7, DATA+1~ |
| N | SP~, SP+1 |
| NUM | SET~, SET+1*, SET+2 |
| U | TITLE+2 |
| VALMCNT | EN+1~, INIT+3*, INIT+7, INIT+11, INIT+13, DATA+3, TRAVEL+3 |
| >> VALMHDR( | HDG+2 |
| >> VALMHDR(1 | HDR+2* |
| >> VALMHDR(2 | HDR+7* |
| X | HDR+1~, HDR+3*, HDR+4*, HDR+5*, HDR+6*, HDR+7, INIT+1~, INIT+5*, INIT+6, INIT+10* , DATA+1~, DATA+2*, DATA+3, TITLE+1~*, TITLE+2, HELP+1* |