Routine: VAUTOMA

Information

VAUTOMA ;ALB/MLI - GENERIC ONE, MANY, ALL ROUTINE ; 03/26/2004

Source file <VAUTOMA.m>

Package	Total	Call Graph
IHS Changes To Scheduling	1	($$DIV,$$DIVNM,$$INACTMSG)^BSDU
VA Fileman	1	^DIC

Package	Total	Caller Graph
Scheduling	31	SCDXPRN2 SCDXRT02 SCMCRT0 SCMCTPU3 SCRPI01 SCRPIUT1 SCRPU1 SCRPW302 SCRPW303 SD5384NC SD5384PT SDACSCGP SDAL0 SDAMBMR SDAMO SDAMO0 SDAMOC SDAMOCC SDAMODO SDAMOL SDAMOS SDAMOW SDCD SDCP SDD SDDIV SDKILL SDLTP SDMHAD SDOQMP0 SDROUT
Registration	22	DGHTRPT DGMSTR2 DGMSTR4 DGMTUTL DGOINPT DGOREL DGOVBC DGPLBL DGPMOLD DGPMRBA DGPREP0 DGPREP3 DGPTCO2 DGQESC1 DGQESC2 DGQESC3 DGRUGIX DGRUGPP DGRUGU1 DGSCHAD3 DGUTL DGYMFILE
Automated Information Collection System	8	IBDF14 IBDF15 IBDF1B IBDFCNOF IBDFFT IBDFOSG IBDFOSG3 IBDFUTL
IHS Changes To Scheduling	8	ASDAIU1 ASDCLDOW ASDCWMA ASDF ASDHS BSDCLET BSDLTP BSDU
Integrated Billing	5	IBERS IBOCNC IBODIV IBOUNP1 IBOUNP4
Incomplete Records Tracking	3	DGJOPRT1 DGJOTP1 DGJPDEF1
Automated Lab Instruments	1	LA7UTILA
Beneficiary Travel	1	DGBTOA1
Dietetics	1	FHPATM
IHS Changes To ADT	1	BDGSD1
Problem List	1	GMPLNTRT
Text Integration Utility	1	TIULA

Name	Comments	DBIA/ICR reference
QQ
DIVISION	;-- cmi/maw PATCH 1010 modified to get division name	ICR #664 Status: Active Usage: Controlled Subscription
SET
PATIENT
ERR
QUIT
CLINIC	;S DIC="^SC(",DIC("S")="I $P(^(0),U,3)=""C""&'$G(^(""OOS""))&$S(VAUTD:1,$D(VAUTD(+$P(^(0),U,15))):1,'+$P(^(0),U,15)&$D(VAUTD(+$O(^DG(40.8,0)))):1,1:0)",VAUTSTR="clinic",VAUTVB="VAUTC" G FIRST ;IHS/ANMC/LJF 8/17/2000	ICR #664 Status: Active Usage: Controlled Subscription
WARD		ICR #664 Status: Active Usage: Controlled Subscription
REDO	;cmi/maw 5/15/5009 added for default of division logged into
FIRST		ICR #664 Status: Active Usage: Controlled Subscription ICR #4398 Status: Active Usage: Controlled Subscription

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: X Line Location: REDO+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: REDO+2
Function Call: READ	Timeout: DTIME Variable: X Line Location: REDO+4
Function Call: WRITE	Prompt: !,DIC("A") Line Location: REDO+4
Function Call: WRITE	Prompt: !?3,*7,"You have already selected that ",VAUTSTR,". Try again." Line Location: SET+1
Function Call: WRITE	Prompt: !?5,"- A ",VAUTSTR," and return when all ",VAUTSTR,"s have been selected--limit 20" Line Location: QQ+0
Function Call: WRITE	Prompt: !?5,"Imprecise selections will yield an additional prompt." Line Location: QQ+1
Function Call: WRITE	Prompt: !?5,"(e.g. When a user enters 'A', all items beginning with 'A' are displayed.)" Line Location: QQ+2
Function Call: WRITE	Prompt: !?5,"- An entry preceeded by a minus [-] sign to remove entry from list." Line Location: QQ+3
Function Call: WRITE	Prompt: !,"NOTE, you have already selected:" Line Location: QQ+4
Function Call: WRITE	Prompt: !?8,$S(VAUTNI=1:VAJ,1:@VAUTVB@(VAJ)) Line Location: QQ+4
Routine Call	DIC Line Location: REDO+3 REDO+4

Name	Line Occurrences
ERR	REDO+1, REDO+4
FIRST	DIVISION+4, CLINIC+3, PATIENT, WARD, REDO+3
QQ	REDO+1, REDO+4
QUIT	REDO+1, REDO+5
REDO	REDO+4
SET	REDO+3, REDO+4

Name	Field # of Occurrence
DIC	DIVISION+4, CLINIC+1, PATIENT, WARD, QUIT!
DIC("A"	DIVISION+4, FIRST, REDO+1, REDO+3*, REDO+4
DIC("S"	CLINIC+1, WARD
DIC("W"	CLINIC+2*
DIC(0	FIRST, FIRST+1
DTIME	REDO+1, REDO+4
J	SET*, QUIT!
U	SET+1, SET+2, SET+3, SET+4
VADICA	DIVISION+1~, REDO+1~*
VADIV	DIVISION+1~, DIVISION+2*, DIVISION+3
VADIVNM	DIVISION+1~, DIVISION+3*, DIVISION+4, REDO+1
VAERR	REDO+4, SET, SET+1, QUIT!
VAI	REDO+4, SET, QUIT!
VAJ	QQ+4*, QUIT!
VAJ1	QQ+4*, QUIT!
VAUTNALL	DIVISION+4*, REDO+1, QQ, QUIT!
VAUTNI	DIVISION+4*, SET, SET+2, SET+3, QQ+4, QUIT!
VAUTSTR	DIVISION+4, CLINIC+1, PATIENT, WARD, FIRST, REDO+3, SET+1, QQ, QUIT!
VAUTVB	DIVISION+4, CLINIC+1, PATIENT, WARD, FIRST*, REDO+1, SET, SET+1, SET+2, SET+3 , SET+4, QQ, QQ+3, QQ+4, QUIT!
VAUTX	REDO+4*, SET!
VAX	REDO+4, SET*, QUIT!
X	REDO+1, REDO+4, QUIT!
Y	FIRST, REDO+3, REDO+4!, SET, SET+1, SET+2, SET+3, SET+4, ERR, QUIT*
Y(0	SET, SET+1, SET+2, SET+3, SET+4