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 |