Routine: BDGSYS2

Information

BDGSYS2 ; IHS/ANMC/LJF - TREATING SPECIALTY SETUP ;

Source file <BDGSYS2.m>

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
Kernel	3	$$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
VA Fileman	2	^DDS $$GET1^DIQ
IHS Changes To ADT	1	MSG^BDGF

Name	Comments	DBIA/ICR reference
RESET	; -- update partition for return to list manager
EN	; -- main entry point for BDG SYS TREAT SPEC SETUP
HDR	; -- header code
EDIT	;EP; called by Edit Entry protocol
SP(N)	; -- SUBRTN to pad N number of spaces
LASTDATE(N)	; find latest effective date and active status
EXPND	; -- expand code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
INIT	; -- init variables and list array
SRV(N)	; returns hospital service for entry
SET(DATA,NUM,N,LINE)	; put display line into array
EXIT	; -- exit code
HELP	; -- help code

Name	Field # of Occurrence
MSG^BDGF	INIT+1
^DDS	EDIT+12
$$GET1^DIQ	HDR+2, INIT+9, INIT+13, LASTDATE+2, LASTDATE+5, SRV+1
EN^VALM	EN+3
TERM^VALM0	EN+2, RESET+2
CLEAR^VALM1	EN+2, EN+4
FULL^VALM1	EDIT+2
EN^VALM2	EDIT+3
$$FMTE^XLFDT	LASTDATE+6
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Name	Line Occurrences (* Changed, ! Killed)
^DIC(45.7 - [#45.7]	INIT+6, INIT+8, LASTDATE+3, LASTDATE+4
^TMP("BDGSYS2"	INIT+4!, INIT+19, SET+2, SET+3, EXIT+1!, EDIT+6, EDIT+7, EDIT+8, EDIT+9

Name	Line Occurrences
$$LASTDATE	INIT+16
$$PAD	INIT+13, INIT+14, INIT+15, INIT+16, LASTDATE+6, SP+1
$$SP	HDR+3
$$SRV	INIT+15
HDR	RESET+3
INIT	RESET+3
RESET	EDIT+11, EDIT+13
SET	INIT+17, INIT+20

Name	Field # of Occurrence
>> BDGDIV	HDR+2
BDGN	EDIT+1~, EDIT+9*, EDIT+11, EDIT+12
CODE	INIT+2~, INIT+9*, INIT+14
COUNT	INIT+2~, INIT+11*, INIT+12, INIT+17
D	PAD~, PAD+2
DA	EDIT+1~, EDIT+12*
DATA	SET~, SET+2
DDSFILE	EDIT+1~, EDIT+12*
DR	EDIT+1~, EDIT+12*
IEN	INIT+2~, INIT+7, INIT+8, INIT+9, INIT+13, INIT+15, INIT+16, INIT+17, SRV+1
L	PAD~, PAD+2
LINE	INIT+2~, INIT+12, INIT+13, INIT+14, INIT+15, INIT+16, INIT+17, SET~, SET+1, SET+2 , SET+3
N	LASTDATE~, LASTDATE+2, LASTDATE+3, LASTDATE+4, LASTDATE+5, SRV~, SET~, SET+3, SP~, SP+1
>> NAME	INIT+5, INIT+6, INIT+8, INIT+12
NUM	SET~, SET+3
>> VALMBCK	RESET+1, RESET+2
VALMCNT	EN+1~, INIT+3*, INIT+17, INIT+20
>> VALMHDR(1	HDR+3*
>> VALMQUIT	RESET+1
>> VALMY	EDIT+4
>> VALMY(	EDIT+5
X	HDR+1~, HDR+2, HDR+3, LASTDATE+1~, LASTDATE+3, LASTDATE+4, LASTDATE+6, HELP+1, EDIT+1~, EDIT+5 , EDIT+9
>> XQORNOD(0	EDIT+3
Y	INIT+2~, LASTDATE+1~, LASTDATE+4, LASTDATE+5, EDIT+1~, EDIT+6, EDIT+7, EDIT+8, EDIT+9
Z	EDIT+1~, EDIT+7*, EDIT+8, EDIT+9