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 |