BDGF ; IHS/ANMC/LJF - GENERAL PIMS FUNCTION CALLS ; [ 01/09/2004 8:07 AM ]
Source file <BDGF.m>
| Package | Total | Call Graph | 
|---|---|---|
| Kernel | 7 | ^%ZIS ^%ZISC ^%ZTLOAD ($$FMTE,$$NOW)^XLFDT ($$REPEAT,$$UP)^XLFSTR EN^XQH ACTION^XQH4 | 
| VA Fileman | 6 | DD^%DT EN^DDIOL ^DIC $$GET1^DIQ ^DIR ^DIWP | 
| IHS Changes To ADT | 1 | $$TIME^BDGF | 
| IHS Patient | 1 | KILL^AUPNPAT | 
| IHS VA Utilities | 1 | ^XBCLS | 
| Registration | 1 | KVA^VADPT | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MSG(DATA,PRE,POST) | ;EP; -- writes line to device;IHS/ITSC/LJF PATCH 1003 | |
| TIME(DATE) | ;EP returns time in 12:00 PM format for date send | |
| BROWSE() | ;EP; -- calls DIR to ask if want to browse or print | |
| PAD(D,L) | ;EP -- SUBRTN to pad length of data ; -- D=data L=length | |
| WRAP(STRING,COL,ARRAY) | ;EP return string formatted by colum width;IHS/OIT/LJF 12/30/2005 PATCH 1005 ; returns multiple lines in ARRAY; COL=column width | |
| NUMDATE(D,YR) | ;EP; returns external number date with leading zeros ; D=date and optionally time ; YR=1 for 2 digit year, =0 for 4 digit year | |
| KILLVAR | ;EP; -- kills patient variables | |
| IHS() | ;EP; returns 1 if agency of user is IHS | |
| READ(TYPE,PROMPT,DEFAULT,HELP,SCREEN,DIRA) | ;EP; calls reader, returns response | |
| READRVD(DATE) | ;EP; returns a readable date from a FM reverse date | |
| INIT | ;EP; initialize report header variables | |
| PAUSE | ;EP; -- ask user to press return - no form feed | |
| HELP(BDGHF,BDGN) | ;EP; Called by various on-line help options | |
| PRTKL | ;EP; kill report header variables | |
| ZIS(X,BDGRTN,BDGDESC,BDGVAR,BDGDEV) | ;EP ; -- called to select device and send print | |
| CONF() | ;EP; -- returns confidential warning | |
| SP(N) | ;EP -- SUBRTN to pad N number of spaces | |
| RANGE(DATE1,DATE2) | ;EP; -- returns printable date range | |
| SETPT(DFN) | ;EP; -- sets AUPN variables when DFN is set | 
| Name | Field # of Occurrence | 
|---|---|
| DD^%DT | READRVD+1 | 
| ^%ZIS | ZIS+9 | 
| ^%ZISC | ZIS+33, ZIS+38 | 
| ^%ZTLOAD | ZIS+30, ZIS+38 | 
| KILL^AUPNPAT | KILLVAR+1 | 
| $$TIME^BDGF | INIT+3 | 
| EN^DDIOL | MSG+3, MSG+4 | 
| ^DIC | SETPT+1 | 
| $$GET1^DIQ | INIT+1, INIT+2 | 
| ^DIR | PAUSE+2, READ+9 | 
| ^DIWP | WRAP+5 | 
| KVA^VADPT | KILLVAR+1 | 
| ^XBCLS | HELP+8 | 
| $$FMTE^XLFDT | TIME+1, RANGE+1, INIT+4 | 
| $$NOW^XLFDT | INIT+3 | 
| $$REPEAT^XLFSTR | PAD+2 | 
| $$UP^XLFSTR | TIME+1 | 
| EN^XQH | HELP+17 | 
| ACTION^XQH4 | HELP+19 | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | GET1^DIQ | 
| ^DIC(4 - [#4] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^UTILITY($J | WRAP+2!, WRAP+6, WRAP+7! | 
| Name | Line Occurrences | 
|---|---|
| $$PAD | SP+1 | 
| $$READ | BROWSE+1, HELP+15 | 
| $$SP | HELP+8 | 
| @( | ZIS+14, ZIS+15 | 
| MSG | HELP+8 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| %ZIS | ZIS+2!, ZIS+7* | 
| %ZIS("B" | ZIS+8* | 
| ARRAY | WRAP~ | 
| ARRAY( | WRAP+6* | 
| BDGA | HELP+9~, HELP+15 | 
| BDGA(1 | HELP+10* | 
| BDGA(2 | HELP+11* | 
| BDGA(3 | HELP+12* | 
| BDGA(4 | HELP+13* | 
| BDGA(5 | HELP+14* | 
| >> BDGCOP | ZIS+12, ZIS+14, ZIS+24, ZIS+26 | 
| BDGDATE | INIT+4*, PRTKL+1! | 
| BDGDESC | ZIS~, ZIS+27, ZIS+36 | 
| BDGDEV | ZIS~, ZIS+4, ZIS+8 | 
| BDGDTH | ZIS+28, ZIS+31*, ZIS+34! | 
| BDGFAC | INIT+2*, PRTKL+1! | 
| BDGHF | HELP~, HELP+17, HELP+19 | 
| BDGN | HELP~, HELP+13 | 
| BDGRTN | ZIS~, ZIS+14, ZIS+15, ZIS+27, ZIS+36 | 
| BDGTIME | INIT+3*, PRTKL+1! | 
| BDGUSR | INIT+1*, PRTKL+1! | 
| BDGVAR | ZIS~, ZIS+29, ZIS+37 | 
| COL | WRAP~, WRAP+4 | 
| D | NUMDATE~, NUMDATE+4, NUMDATE+5, NUMDATE+6, NUMDATE+7, PAD~, PAD+2 | 
| DATA | MSG~, MSG+3 | 
| DATE | TIME~, TIME+1, READRVD~, READRVD+1 | 
| DATE1 | RANGE~, RANGE+1 | 
| DATE2 | RANGE~, RANGE+1 | 
| DEFAULT | READ~, READ+6 | 
| DFN | SETPT~, SETPT+1 | 
| DIC | SETPT+1~* | 
| DIC(0 | SETPT+1* | 
| DIR | PAUSE+1~, READ+1~ | 
| DIR("?" | READ+7* | 
| DIR("A" | PAUSE+2*, READ+5*, READ+8* | 
| DIR("B" | READ+6* | 
| DIR("S" | READ+4* | 
| DIR(0 | PAUSE+2*, READ+2* | 
| DIRA | READ~ | 
| DIRA( | READ+8 | 
| DIRA(1 | READ+8 | 
| DIRUT | READ+1~ | 
| DIWF | WRAP+3~, WRAP+4* | 
| DIWL | WRAP+3~, WRAP+4*, WRAP+6 | 
| DIWR | WRAP+3~, WRAP+4* | 
| >> DLAYGO | READ+3* | 
| DT | INIT+4 | 
| DUZ | INIT+1 | 
| DUZ("AG" | IHS+1 | 
| DUZ(2 | INIT+2 | 
| FORMAT | MSG+1~, MSG+2*, MSG+3 | 
| HELP | READ~, READ+7 | 
| I | WRAP+3~, WRAP+6*, MSG+1~, MSG+2*, MSG+4*, ZIS+29*, ZIS+37* | 
| IO("Q" | ZIS+6, ZIS+11, ZIS+27!, ZIS+36! | 
| IOP | ZIS+2! | 
| IOST | PAUSE+1 | 
| J | ZIS+13~, ZIS+14*, ZIS+29*, ZIS+37* | 
| K | ZIS+25~, ZIS+26* | 
| L | PAD~, PAD+2 | 
| N | SP~, SP+1 | 
| >> POP | ZIS+10 | 
| POST | MSG~, MSG+4 | 
| PRE | MSG~, MSG+2 | 
| PROMPT | READ~, READ+5 | 
| SCREEN | READ~, READ+4 | 
| STRING | WRAP~, WRAP+4 | 
| TYPE | READ~, READ+2, READ+3 | 
| U | READ+3 | 
| X | WRAP+3~, WRAP+4*, ZIS~, ZIS+3, ZIS+6, ZIS+7, NUMDATE+3~, NUMDATE+5*, NUMDATE+6*, NUMDATE+7* , NUMDATE+8, SETPT+1~* | 
| >> XQFMT | HELP+19* | 
| >> XQH | HELP+17* | 
| >> XQHFY | HELP+19* | 
| Y | READ+1~, READ+8*, READ+10, READRVD+1~*, READRVD+2, HELP+9~, HELP+15*, HELP+17, HELP+19, SETPT+1~ | 
| YR | NUMDATE~, NUMDATE+5 | 
| >> ZTDESC | ZIS+27*, ZIS+36* | 
| >> ZTDTH | ZIS+4*, ZIS+28* | 
| ZTIO | ZIS+2!, ZIS+4* | 
| >> ZTRTN | ZIS+27*, ZIS+36* | 
| >> ZTSAVE( | ZIS+29*, ZIS+37* | 
| ZTSK | ZIS+32!, ZIS+38! | 
| ZTSK("D" | ZIS+31 |