Routine: ASDREG

Information

ASDREG ; IHS/ADC/PDW/ENM - REG EDITS ALLOWED FROM SCHEDULING ; [ 12/21/1999 2:31 PM ]

Source Information

Source file <ASDREG.m>

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
IHS Patient Registration	3	HDR^AG PATNLK^AGEDIT ^AGVAR
VA Fileman	3	^%DT ^DIE ^DIR
IHS VA Utilities	2	^XBCLS ($$VAL,$$VALI,ENP)^XBDIQ1
Kernel	2	$$FMTE^XLFDT $$REPEAT^XLFSTR
IHS Changes To Scheduling	1	$$DIV^ASDUT

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Diabetes Registry	1	BDMVAGL
IHS Changes To Scheduling	1	ASDM
Mental Health Social Services	1	AMHVAGL

Entry Points

Name	Comments	DBIA/ICR reference
EDITYP	; -- check user for edit type to use
END	; -- eoj
POSTCK	; -- SUBRTN to return new value of data & set ^agpatch if needed
ZIP	; -- mailing address-zip
CITY	; -- mailing address-city
FIELD(X,Y)	; -- returns name of field
PRESAVE	; -- SUBRTN to return before value of data
ST	; -- mailing address-street
NOTE	;
EDIT(FILE)	; -- SUBRTN to set variables
STATE	; -- mailing address-state
HPH	; -- home phone number
WPH	; -- work phone number
DISPAT	; displays patient name & identifiers
DISREG	; displays last reg update and add. info
DISPLAY	;PEP; -- display address then ask to edit ; to call at PEP have DFN set and ASDREG=1 ; if you're sure user wants to edit, set ASDOK=1

External References

Name	Field # of Occurrence
^%DT	POSTCK+3
HDR^AG	EDITYP+11
PATNLK^AGEDIT	EDITYP+12
^AGVAR	EDITYP+11
$$DIV^ASDUT	EDITYP+2
^DIE	EDITYP+10, EDIT+1
^DIR	EDITYP+6, DISPLAY+11
^XBCLS	EDITYP+13
$$VAL^XBDIQ1	DISPLAY+4, PRESAVE+1, POSTCK+2, DISPAT+6, DISREG+3
$$VALI^XBDIQ1	EDITYP+2
ENP^XBDIQ1	DISPLAY+3
$$FMTE^XLFDT	DISPAT+4
$$REPEAT^XLFSTR	DISREG+2, DISREG+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"PATIENT ENTRY LOCKED; TRY AGAIN SOON" Line Location: EDITYP+9
Function Call: WRITE	Prompt: !! Line Location: EDITYP+13
Function Call: WRITE	Prompt: ! Line Location: EDITYP+13
Function Call: WRITE	Prompt: !?5,$$FIELD(9000001,.03),": ",X Line Location: DISPLAY+4
Function Call: WRITE	Prompt: !!,ASDR(.111),!,ASDR(.114),", ",ASDR(.115)," ",ASDR(.116) Line Location: DISPLAY+5
Function Call: WRITE	Prompt: !,ASDR(.131)," (home) ",ASDR(.132)," (work)",!! Line Location: DISPLAY+6
Function Call: WRITE	Prompt: !,*7,"PATIENT ENTRY LOCKED; TRY AGAIN SOON" Line Location: DISPLAY+14
Function Call: WRITE	Prompt: !! Line Location: WPH+1
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
Function Call: WRITE	Prompt: !?9,"have patient notify admitting - it affects eligibility.",! Line Location: NOTE+4
Function Call: WRITE	Prompt: !!?3,$P(ASDX,U),?40,$P(ASDX,U,2) Line Location: DISPAT+3
Function Call: WRITE	Prompt: ?45,$$FMTE^XLFDT($P(ASDX,U,3),2) Line Location: DISPAT+4
Function Call: WRITE	Prompt: ?55,$P(ASDX,U,9) Line Location: DISPAT+5
Function Call: WRITE	Prompt: ?67,$$VAL^XBDIQ1(9999999.06,DUZ(2),.08) Line Location: DISPAT+6
Function Call: WRITE	Prompt: ?69,$J($P(^AUPNPAT(DFN,41,DUZ(2),0),U,2),7) Line Location: DISPAT+7
Function Call: WRITE	Prompt: !!?3,$$REPEAT^XLFSTR("*",70) Line Location: DISREG+2
Function Call: WRITE	Prompt: !?5,$$FIELD(9000001,.03),": ",X Line Location: DISREG+3
Function Call: WRITE	Prompt: !!?5,"Additional Registration Information:" Line Location: DISREG+4
Function Call: WRITE	Prompt: !?7,^AUPNPAT(DFN,13,X,0) Line Location: DISREG+6
Function Call: WRITE	Prompt: !?3,$$REPEAT^XLFSTR("*",70),! Line Location: DISREG+7
Routine Call	DIE Line Location: EDITYP+10 EDIT+1
Routine Call	DIR Line Location: EDITYP+6 DISPLAY+11

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGPATCH(	POSTCK+3*
^AUPNPAT - [#9000001]	EDITYP+8, EDITYP+10, DISPLAY+13, END+1, DISPAT+7, DISREG+5, DISREG+6
^DD(	FIELD+1
^DIC(19 - [#19]	ASDREG+4, ASDREG+5
^DPT - [#2]	DISPAT+2
^XTMP("AGHL7"	POSTCK+5*
^XUSEC("SDZREGEDIT"	EDITYP+4

Label References

Name	Line Occurrences
$$FIELD	DISPLAY+4, DISREG+3
DISPAT	EDITYP+11, EDITYP+13
DISPLAY	EDITYP+3
DISREG	EDITYP+5
EDIT	ST+1, CITY+1, STATE+1, ZIP+1, HPH+1, WPH+1
END	EDITYP+4, DISPLAY+7, DISPLAY+8, DISPLAY+13, ST+1, CITY+3, STATE+1, ZIP+1, HPH+1, WPH+1
NOTE	CITY+2
POSTCK	ST+1, CITY+1, STATE+1, ZIP+1, HPH+1, WPH+1
PRESAVE	ST+1, CITY+1, STATE+1, ZIP+1, HPH+1, WPH+1

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	END+3!
AGCHRT	END+3!
AGLINE	END+3!
AGOPT	END+3!
AGOPT(14	EDITYP+12
AGPAT	END+3!
AGQI	END+3!
AGQT	END+3!
AGSCRN	END+3!
AGTP	END+3!
AGUPDT	END+3!
ASDOK	DISPLAY+8, END+2!
>> ASDQUIT	EDITYP+7*
ASDR	DISPLAY+3~
ASDR(	DISPLAY+5, DISPLAY+6
ASDREG	EDITYP+1~, EDITYP+2*, EDITYP+3, EDITYP+4, DISPLAY+7, END+2!
ASDX	DISPAT+1~, DISPAT+2*, DISPAT+3, DISPAT+4, DISPAT+5
DA	EDITYP+10, END+2!, EDIT+1
>> DFN	EDITYP+8, EDITYP+10, DISPLAY+3, DISPLAY+4, DISPLAY+13, END+1, PRESAVE+1, POSTCK+2, POSTCK+3, POSTCK+5 , EDIT+1, DISPAT+2, DISPAT+7, DISREG+3, DISREG+5, DISREG+6
DIE	EDITYP+10, END+2!, EDIT+1
DIE("NO^"	ASDREG+8!
DIR	EDITYP+5!, EDITYP+6!, DISPLAY+9~
DIR("A"	EDITYP+6, DISPLAY+10
DIR("B"	EDITYP+5, DISPLAY+9
DIR(0	EDITYP+5, DISPLAY+9
DR	EDITYP+10, ST+1, CITY+1, STATE+1, ZIP+1, HPH+1, WPH+1*, END+2!, PRESAVE+1, POSTCK+2
>> DUOUT	CITY+3
DUZ	EDITYP+4
DUZ(2	POSTCK+3, DISPAT+6, DISPAT+7
FILE	EDIT~, EDIT+1
SDPOST	CITY+2, END+2!, POSTCK+2*
SDPRE	CITY+2, END+2!, PRESAVE+1*, POSTCK+2
SDQUIT	ASDREG+8!, ST+1, STATE+1, ZIP+1, HPH+1, WPH+1, END+2!, EDIT+1*
SDSTOP	ASDREG+4*, ASDREG+5!, ASDREG+6!
U	DISPAT+3, DISPAT+4, DISPAT+5, DISPAT+7, FIELD+1
X	EDITYP+11, DISPLAY+4, END+2!, POSTCK+1~, POSTCK+3, DISREG+1~, DISREG+3, DISREG+5*, DISREG+6, FIELD~ , FIELD+1
Y	EDITYP+7, DISPLAY+8, POSTCK+3, EDIT+1, FIELD~, FIELD+1

Customize PDF page

Package: IHS Changes To Scheduling

Routine: ASDREG

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: