Routine: BSDREG

Package	Total	Caller Graph
Emergency Room	1	AMER1
IHS Changes To Scheduling	1	BSDWLE

Entry Points

Name	Comments	DBIA/ICR reference
CITY	; -- mailing address-city
EN	;PEP; Edit Patient Registration using PIMS parameter rules;IHS/OIT/LJF 09/08/2006 line added
POSTCK	; -- returns new value of data & sets ^agpatch if needed
ZIP	; -- mailing address-zip
PRESAVE	; -- returns before value of data
DISPLY11	; display page 11 - other info
MPH	; -- message phone number
ST	; -- mailing address-street
NOTE	;
EDIT(FILE)	; -- edits field
STATE	; -- mailing address-state
HPH	; -- home phone number
WPH	; -- work phone number
PRESAVEA	; -- returns before value of data
ADDRESS	;EP; edit address only ;IHS/OIT/LJF 7/22/2005 PATCH 1004
NEWADD	;EP; called by mini-registration to add address
DISPLAY	; display address info only
POSTCKA	; -- returns new value of data & sets ^agpatch if needed

Name	Field # of Occurrence
^%DT	POSTCK+3, POSTCKA+3
PATNLK^AGEDIT	EN+23
$$READ^BDGF	EN+4, EN+18, ADDRESS+2
PAUSE^BDGF	EN+10, NEWADD+3
$$DIV^BSDU	EN+2
^DIE	EDIT+1
$$GET1^DIQ	EN+2, DISPLAY+3, DISPLY11+3, PRESAVE+1, PRESAVEA+1, POSTCK+2, POSTCKA+2
FULL^VALM1	EN+5
ENP^XBDIQ1	DISPLAY+2
$$REPEAT^XLFSTR	DISPLY11+2, DISPLY11+7

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?5,"Date of Last Registration Update: ",$$GET1^DIQ(9000001,DFN,.03) Line Location: DISPLAY+3
Function Call: WRITE	Prompt: !!,BSDR(.111),!,BSDR(.114),", ",BSDR(.115)," ",BSDR(.116) Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !,BSDR(.131)," (home) ",BSDR(.132)," (work)" Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,BSDR(.1219)," (msg)",!! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !!?3,$$REPEAT^XLFSTR("*",70) Line Location: DISPLY11+2
Function Call: WRITE	Prompt: !?5,"Date of Last Registration Update: ",$$GET1^DIQ(9000001,DFN,.03) Line Location: DISPLY11+3
Function Call: WRITE	Prompt: !!?5,"Additional Registration Information:" Line Location: DISPLY11+4
Function Call: WRITE	Prompt: !?7,^AUPNPAT(DFN,13,X,0) Line Location: DISPLY11+6
Function Call: WRITE	Prompt: !?3,$$REPEAT^XLFSTR("*",70),! Line Location: DISPLY11+7
Function Call: WRITE	Prompt: !,*7,"Patient Entry being updated by another; try again soon." Line Location: NEWADD+2
Function Call: WRITE	Prompt: !! Line Location: MPH+3
Function Call: WRITE	Prompt: ! Line Location: EDIT+1
Function Call: WRITE	Prompt: !!?24,"Mailing address-city has changed." Line Location: NOTE+1
Function Call: WRITE	Prompt: !?9,"Please check to see if Community of Residence has changed also." Line Location: NOTE+2
Function Call: WRITE	Prompt: !!?20,"If Community of Residence has changed," Line Location: NOTE+3
Routine Call	DIE Line Location: EDIT+1

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	POSTCK+3, POSTCKA+3
^AUPNPAT - [#9000001]	EN+14, DISPLY11+5, DISPLY11+6, NEWADD+1
^XUSEC("SDZREGEDIT"	EN+10, EN+13

Name	Field # of Occurrence
AG	EN+7~
AGCHRT	EN+7~
AGLINE	EN+7~
AGOPT	EN+7~
AGPAT	EN+7~
AGQI	EN+7~
AGQT	EN+7~
AGSCRN	EN+7~
AGTP	EN+7~
AGUPDT	EN+7~
BSDR	DISPLAY+1~
BSDR(	DISPLAY+4, DISPLAY+5, DISPLAY+6
BSDREG	EN+1~, EN+2*, EN+10, EN+13
DA	NEWADD+5~, EDIT+1*
DFN	EN+1~, EN+3, EN+4, EN+14, DISPLAY+2, DISPLAY+3, DISPLY11+3, DISPLY11+5, DISPLY11+6, NEWADD+1 , PRESAVE+1, PRESAVEA+1, POSTCK+2, POSTCK+3, POSTCKA+2, POSTCKA+3, EDIT+1
DIE	NEWADD+5~, EDIT+1*
DR	NEWADD+5~, ST+1, CITY+1, STATE+1, ZIP+1, HPH+1, WPH+1, MPH+2*, PRESAVE+1, PRESAVEA+1 , POSTCK+2, POSTCKA+2
>> DUOUT	CITY+3
DUZ	EN+10, EN+13
DUZ(2	POSTCK+3, POSTCKA+3
FILE	EDIT~, EDIT+1
>> SDAMTYP	EN+3, EN+4
>> SDFN	EN+3
SDPOST	NEWADD+5~, CITY+2, POSTCK+2, POSTCKA+2
SDPRE	NEWADD+5~, CITY+2, PRESAVE+1, PRESAVEA+1, POSTCK+2, POSTCKA+2
SDQUIT	NEWADD+5~, ST+1, STATE+1, ZIP+1, HPH+1, WPH+1, EDIT+1*
X	DISPLY11+1~, DISPLY11+5, DISPLY11+6, POSTCK+1~, POSTCK+3, POSTCKA+1~, POSTCKA+3*
>> Y	POSTCK+3, POSTCKA+3, EDIT+1