Routine: APCDAUTL

Package	Total	Call Graph
VA Fileman	6	EN^DDIOL FILE^DICN ^DIE ^DIK $$GET1^DIQ ^DIR
IHS VA Utilities	2	$$VAL^XBDIQ1 EN^XBNEW
Kernel	2	($$FMADD,$$FMTE,$$NOW)^XLFDT $$REPEAT^XLFSTR
Patient Care Component Reports	2	$$LASTITEM^APCLAPIU $$START1^APCLDF
IHS Standard Terminology	1	$$SUBLST^BSTSAPI

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
GET071E
ST(PATIENT,DATE,STDA)	;EP - called from APCD ST (ADD) template to find parent entry
GLDT	;EP - called from input template
SET07LST	;
NEWBORN1	;
GET071
GET070	;EP - called from xbnew
FMA1	;
GET04E	;EP - called from APCD VDEL (ADD) and APCDVDEL (MOD) templates
GET04	;EP - called from APCD VDEL (ADD) and APCDVDEL (MOD) templates
GET07	;EP - called from APCD VDEL (ADD) and APCDVDEL (MOD) templates
GET040E	;EP - called from xbnew
FM12	;
FM13	;
ST1	;
GLDT1	;
EGA(APCDI,APCDM)	;
GET070E	;EP - called from xbnew
GET040	;EP - called from xbnew
GET041
FMD	;
FME	;
FMA	;
SET04LST	;
GET07E	;EP - called from APCD VDEL (ADD) and APCDVDEL (MOD) templates
FME1	;EP
NEWBORN	;EP- called from APCD VDEL (ADD) AND APCD VDEL (MOD)
GET041E

External References

Name	Field # of Occurrence
$$LASTITEM^APCLAPIU	EGA+8
$$START1^APCLDF	ST1+9
$$SUBLST^BSTSAPI	GET040+4, GET070+4, GET040E+4, GET070E+4
EN^DDIOL	NEWBORN1+4, FM12+1, FME+1, FMD+1
FILE^DICN	FMA+7
^DIE	FME1+8, FMA1+4
^DIK	FMD+6
$$GET1^DIQ	NEWBORN1+7
^DIR	DISP+4, FM12+4, FME+3, FMD+3, FMA+1, GET040E+11, GET070E+11, GLDT1+2
$$VAL^XBDIQ1	GET040E+10, GET040E+12, GET040E+13, GET070E+8, GET070E+9, GET070E+10, GET070E+12, GET070E+13
EN^XBNEW	GET04+3, GET07+3, NEWBORN+1, GET04E+3, GET07E+3, GLDT+1
$$FMADD^XLFDT	ST1+6, EGA+4
$$FMTE^XLFDT	ST1+5, ST1+7, FME1+5, FMA+11
$$NOW^XLFDT	FMA+4, GLDT1+5
$$REPEAT^XLFSTR	NEWBORN1+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GET04+4
Function Call: WRITE	Prompt: !!,"LABOR ESTABLISHED SNOMED CONCEPT ID" Line Location: GET040+1
Function Call: WRITE	Prompt: !,"A SNOMED CONCEPT ID is REQUIRED!" Line Location: GET041+2
Function Call: WRITE	Prompt: !! Line Location: DISP+1
Function Call: WRITE	Prompt: ?2,X,") ",$P(LIST(X),U,1),?20,$P(LIST(X),U,3),! Line Location: DISP+2
Function Call: WRITE	Prompt: !,"Choosing a SNOMED is required." Line Location: DISP+5
Function Call: WRITE	Prompt: ! Line Location: GET07+4
Function Call: WRITE	Prompt: !!,"LABOR INDUCTION SNOMED CONCEPT ID" Line Location: GET070+1
Function Call: WRITE	Prompt: !,"A SNOMED CONCEPT ID is REQUIRED!" Line Location: GET071+2
Function Call: WRITE	Prompt: ! Line Location: NEWBORN+2
Function Call: WRITE	Prompt: !!?2,"Newborn Data:" Line Location: NEWBORN1+2
Function Call: WRITE	Prompt: " None recorded" Line Location: NEWBORN1+3
Function Call: WRITE	Prompt: !!,"At least one Newborn entry is required." Line Location: FM12+6
Function Call: WRITE	Prompt: !!,"At least one Newborn entry is required." Line Location: FM12+8
Function Call: WRITE	Prompt: !!,"Note: There are no EGA measurements on file between a day before",!,"and the delivery date. You will need to manually enter the EGA.",! Line Location: FME1+4
Function Call: WRITE	Prompt: !!,"NOTE: EGA was ",$P(APCDTEGA,U,3)," on ",$$FMTE^XLFDT($P(APCDTEGA,U,1)) Line Location: FME1+5
Function Call: WRITE	Prompt: !,"All data values are required. Please update." Line Location: FME1+9
Function Call: WRITE	Prompt: !!,"Cannot be a date/time in the future." Line Location: FMA+4
Function Call: WRITE	Prompt: !!,"Note: There are no EGA measurements on file between a day before",!,"and the delivery date. You will need to manually enter the EGA.",! Line Location: FMA+10
Function Call: WRITE	Prompt: !!,"NOTE: EGA was ",$P(APCDTEGA,U,3)," on ",$$FMTE^XLFDT($P(APCDTEGA,U,1)),! Line Location: FMA+11
Function Call: WRITE	Prompt: !,"All data values are required. Please update." Line Location: FMA1+5
Function Call: WRITE	Prompt: ! Line Location: GET04E+4
Function Call: WRITE	Prompt: !!,"LABOR ESTABLISHED SNOMED CONCEPT ID" Line Location: GET040E+1
Function Call: WRITE	Prompt: !! Line Location: GET040E+7
Function Call: WRITE	Prompt: ?2,X,") ",$P(LIST(X),U,1),?20,$P(LIST(X),U,3),! Line Location: GET040E+8
Function Call: WRITE	Prompt: !,"LABOR ESTABLISHED SNOMED CONCEPT ID: ",$$VAL^XBDIQ1(9000010.64,APCDTDA,.04),! Line Location: GET040E+10
Function Call: WRITE	Prompt: !,"A SNOMED CONCEPT ID is REQUIRED!" Line Location: GET041E+2
Function Call: WRITE	Prompt: ! Line Location: GET07E+4
Function Call: WRITE	Prompt: !!,"LABOR INDUCTION SNOMED CONCEPT ID" Line Location: GET070E+1
Function Call: WRITE	Prompt: !! Line Location: GET070E+7
Function Call: WRITE	Prompt: ?2,X,") ",$P(LIST(X),U,1),?20,$P(LIST(X),U,3),! Line Location: GET070E+8
Function Call: WRITE	Prompt: !,"LABOR INDUCTION SNOMED CONCEPT ID: ",$$VAL^XBDIQ1(9000010.64,APCDTDA,.07),! Line Location: GET070E+10
Function Call: WRITE	Prompt: !,"A SNOMED CONCEPT ID is REQUIRED!" Line Location: GET071E+2
Function Call: WRITE	Prompt: ! Line Location: GLDT+2
Function Call: WRITE	Prompt: !!,"Response must be a date/time, cannot be a date/time in the future." Line Location: GLDT1+5
Routine Call	DIE Line Location: FME1+8 FMA1+4
Routine Call	DIR Line Location: DISP+4 FM12+4 FME+3 FMD+3 FMA+1 GET040E+11 GET070E+11 GLDT1+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
9000010.6411	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVDLV - [#9000010.64]	NEWBORN1+3, NEWBORN1+5, FM12+5, FM12+6, FM12+7, FM12+8, FME1+9, FMA1+5, EGA+3, EGA+7
^AUPNVSK - [#9000010.12]	ST1+4, ST1+11

Label References

Name	Line Occurrences
$$EGA	FME1+3, FMA+9
@(	FM12+10
DISP	GET041+1, DISP+5, GET071+1, GET041E+1, GET071E+1
FM12	NEWBORN1+3
FM13	FM12+5, FM12+7
FMA	FMA+4
FMA1	FMA1+5
FME1	FME1+9
GET041	GET041+2
GET041E	GET041E+2
GET071	GET071+2
GET071E	GET070E+9, GET071E+2
GLDT1	GLDT1+5
NEWBORN1	FM12+6, FM12+8, FM12+11

Naked Globals

Name	Field # of Occurrence
^(0	ST1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDC	NEWBORN1+3, NEWBORN1+5, NEWBORN1+6*, NEWBORN1+7, FM12+3, FME+3, FMD+3
APCDCM	NEWBORN1+5!
APCDCM(	NEWBORN1+6*, FME1+2, FME1+6, FMD+6
>> APCDDONE	FM12+7*
APCDI	EGA~, EGA+3, EGA+7
APCDM	EGA~, EGA+3
>> APCDTDA	NEWBORN1+3, NEWBORN1+5, NEWBORN1+7, FM12+5, FM12+6, FM12+7, FM12+8, FME1+3, FME1+6, FME1+7 , FME1+9, FMD+6, FMA+6, FMA+9, FMA1+2, FMA1+3, FMA1+5, GET040E+10, GET040E+12, GET040E+13 , GET070E+8, GET070E+9, GET070E+10, GET070E+12, GET070E+13
>> APCDTDDT	GLDT1+1, GLDT1+6
>> APCDTEGA	FME1+3, FME1+4, FME1+5, FME1+6, FMA+9, FMA+10, FMA+11, FMA1+2
>> APCDTMDA	FME1+2, FME1+3, FMA+8, FMA+9, FMA1+2
>> APCDTRET	GET041, GET041+3, GET071, GET071+3, GET040E+12, GET040E+13, GET041E, GET041E+3, GET070E+12, GET070E+13 , GET071E, GET071E+3
B	ST+1~, ST1+5*, ST1+8
BD	EGA+2~, EGA+4*, EGA+8
>> C	DISP+2, DISP+4, EGA+8, EGA+9, EGA+10, GET040E+8, GET070E+8
DA	DISP+4!, FM12+4!, FME+3!, FME1+1!, FME1+6, FME1+9, FMD+3!, FMD+5!, FMD+6!, FMA+1! , FMA1+1!, FMA1+2*, FMA1+5, GET040E+11!, GET070E+11!, GLDT1+2!
DA(1	FME1+6, FMD+6, FMA+6, FMA1+2
DATE	ST~, ST1+1, ST1+5, ST1+6
DELV	EGA+2~, EGA+3*, EGA+4, EGA+5
DIC	FME1+1!, FMD+5!, FMA+6*, FMA1+1!
DIC("DR"	FMA+6*
DIC(0	FMA+6*
DIE	FME1+7, FME1+10!, FMA1+3, FMA1+6!
DIK	FMD+6*!
DIR	DISP+4!, FM12+2!, FM12+4!, FME+2!, FME+3!, FMD+2!, FMD+3!, FMA+1!, GET040E+11!, GET070E+11! , GLDT1+3!
DIR("?"	GLDT1+2*
DIR("A"	DISP+4, FM12+4, FME+3, FMD+3, FMA+1, GET040E+11, GET070E+11, GLDT1+2
DIR("B"	FM12+4, GET040E+11, GET070E+11*
DIR(0	DISP+4, FM12+3, FME+3, FMD+3, FMA+1, GET040E+11, GET070E+11, GLDT1+2
>> DIRUT	DISP+5, FM12+5, FM12+6, FME+4, FMD+4, FMA+2, GET040E+13, GET070E+13, GLDT1+4
DR	FME1+1!, FME1+6, FMD+5!, FMA1+1!, FMA1+2
E	ST+1~, ST1+6, ST1+7, ST1+8
ED	EGA+2~, EGA+5*, EGA+8
ERR	ST+1~, ST1+9*, ST1+10
>> IN	GET040+2, GET040+4, GET070+2, GET070+4, GET040E+2, GET040E+4, GET070E+2, GET070E+4
LIST	GET040+3!, GET070+3!, GET040E+3!, GET070E+3!
LIST(	DISP+2, DISP+6, GET040E+8, GET070E+8
LIST(1	SET04LST+1, SET07LST+1
LIST(2	SET04LST+2, SET07LST+2
LIST(3	SET04LST+3, SET07LST+3
LIST(4	SET04LST+4, SET07LST+4
LIST(5	SET04LST+5, SET07LST+5
LIST(6	SET04LST+6, SET07LST+6
LIST(7	SET07LST+7*
LIST(8	SET07LST+8*
LIST(9	SET07LST+9*
>> P	EGA+7*, EGA+8
PATIENT	ST~, ST1+2, ST1+8
S	ST+1~, ST1+10, GET041, GET041+2, GET041+3, DISP+6, GET071, GET071+2, GET071+3, GET041E , GET041E+2, GET041E+3, GET071E*, GET071E+2, GET071E+3
S(	ST1+11
S(0	ST1+10
STDA	ST~, ST1+3, ST1+4, ST1+11
STIEN	ST+1~, ST+2, ST1+10, ST1+11, ST1+12
TEST	ST+1~, ST1+4*, ST1+8
U	ST1+4, ST1+11, DISP+2, DISP+6, FME1+5, FME1+9, FMA+11, FMA1+2, FMA1+5, EGA+3 , EGA+7, GET040E+8, GET070E+8
X	ST+1~, ST1+8, ST1+9, ST1+11, GET040+4, DISP+2, GET070+4, NEWBORN1+5, NEWBORN1+6, NEWBORN1+7 , FME1+9, FMA+5, FMA1+5, GET040E+4, GET040E+8, GET070E+4, GET070E+8*
Y	DISP+6, FM12+7, FM12+8, FM12+9*, FM12+10, FM13+1!, FME1+2, FME1+6, FMD+6, FMA+3 , FMA+4, FMA+5, FMA+8, GET040E+12, GET070E+12, GLDT1+5, GLDT1+6

Customize PDF page

Package: Patient Care Component

Routine: APCDAUTL

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: