Routine: APCDPLST

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIR
IHS Standard Terminology	1	$$SUBLST^BSTSAPI
IHS VA Utilities	1	EN^XBVK

Entry Points

Name	Comments	DBIA/ICR reference
SETSUB	;
QUEUE	;EP
CS	;update status .12 and update PROBLEM entry and the change log
XIT	;
SETE	;

External References

Name	Field # of Occurrence
$$SUBLST^BSTSAPI	SETSUB+1
FILE^DICN	CS+8
^DIE	CS+3
^DIR	APCDPLST+26, APCDPLST+31
EN^XBVK	XIT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This option is used to update the Status field on Problem List" Line Location: APCDPLST+4
Function Call: WRITE	Prompt: !,"based on the default status associated with the SNOMED term.",!! Line Location: APCDPLST+5
Function Call: WRITE	Prompt: !,"You will be given the opportunity to select which status group",! Line Location: APCDPLST+6
Function Call: WRITE	Prompt: "will be updated." Line Location: APCDPLST+7
Function Call: WRITE	Prompt: !,"Notes:" Line Location: APCDPLST+8
Function Call: WRITE	Prompt: !,?2,"- Update all Chronic: this will loop through the problems on" Line Location: APCDPLST+9
Function Call: WRITE	Prompt: !?2," the IPL and for any problem whose Concept ID is defaulted to Chronic " Line Location: APCDPLST+10
Function Call: WRITE	Prompt: !?2," in DTS, change to Chronic on IPL. Problems on the IPL with a status " Line Location: APCDPLST+11
Function Call: WRITE	Prompt: !?2," of inactive will be skipped and the status will not be changed." Line Location: APCDPLST+12
Function Call: WRITE	Prompt: !,?2,"- Update all Social/Environmental: this will loop through the problems on" Line Location: APCDPLST+17
Function Call: WRITE	Prompt: !?2," the IPL and for any problem whose Concept ID is defaulted to " Line Location: APCDPLST+18
Function Call: WRITE	Prompt: !?2," Social/Environmental in DTS, change to Social/Environmental on IPL. " Line Location: APCDPLST+19
Function Call: WRITE	Prompt: !?2," Problems on the IPL with a status of Inactive or Chronic will be skipped" Line Location: APCDPLST+20
Function Call: WRITE	Prompt: !?2," and the status will not be changed." Line Location: APCDPLST+21
Function Call: WRITE	Prompt: !,?2,"- Update all Routine/Admin: this will loop through the problems on" Line Location: APCDPLST+22
Function Call: WRITE	Prompt: !?2," the IPL and for any problem whose Concept ID is defaulted to Routine/Admin " Line Location: APCDPLST+23
Function Call: WRITE	Prompt: !?2," in DTS, change to Routine/Admin on IPL. Problems on the IPL with a status " Line Location: APCDPLST+24
Function Call: WRITE	Prompt: !?2," of Inactive will be skipped and the status will not be changed." Line Location: APCDPLST+25
Function Call: WRITE	Prompt: !!,"Hold on..this may take a few minutes.." Line Location: APCDPLST+35
Function Call: WRITE	Prompt: !!,"Gathering up subsets..." Line Location: QUEUE+1
Function Call: WRITE	Prompt: !!,"Looping through Problem entries....." Line Location: QUEUE+9
Routine Call	DIE Line Location: CS+3
Routine Call	DIR Line Location: APCDPLST+26 APCDPLST+31

FileNo	Call Tags
^AUPNPROB - [#9000011]	Classic Fileman Calls
^APCDPLMD - [#9001040.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPROB - [#9000011]	QUEUE+12, QUEUE+15, QUEUE+16, QUEUE+18
^TMP($J	XIT+2!, SETSUB+3, SETSUB+4, SETSUB+5*, QUEUE+4!, QUEUE+5, QUEUE+7, QUEUE+8, QUEUE+23

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> APCDCI	QUEUE+16*, QUEUE+17, QUEUE+23, CS+7
>> APCDCNT	QUEUE+11, QUEUE+13, QUEUE+14
>> APCDCS	QUEUE+18*, QUEUE+19, QUEUE+20, QUEUE+25, QUEUE+28, CS+1, CS+7
>> APCDDEF	QUEUE+23*, QUEUE+24, QUEUE+25, QUEUE+26, QUEUE+28, QUEUE+29, CS+3, CS+7
>> APCDLOGE	CS+10*, SETE+1
>> APCDOLDS	CS+1*
>> APCDPLT	APCDPLST+34*, QUEUE+5, QUEUE+7, QUEUE+8, QUEUE+26, QUEUE+28, QUEUE+29
>> APCDS	SETSUB+3, SETSUB+4, SETSUB+5, QUEUE+5, QUEUE+7, QUEUE+8*
>> APCDX	QUEUE+11, QUEUE+12, QUEUE+15, QUEUE+16, QUEUE+18, CS+3, CS+7
C	QUEUE+3~
D0	CS+5!
DA	APCDPLST+26!, APCDPLST+31!, CS+2!, CS+3!, SETE+1
DD	CS+5!
DIADD	CS+6*, CS+9!
DIC	CS+5!, CS+6*, CS+9!
DIC("DR"	CS+7*
DIC(0	CS+6*
DIE	CS+2!, CS+3!, SETE+1
DIR	APCDPLST+26!, APCDPLST+30!, APCDPLST+31!
DIR("A"	APCDPLST+26, APCDPLST+31
DIR("B"	APCDPLST+26*
DIR(0	APCDPLST+26, APCDPLST+31
>> DIRUT	APCDPLST+27, APCDPLST+32
DLAYGO	CS+6*, CS+9!
DO	CS+5!
DR	CS+2!, CS+3!, SETE+1
DT	CS+7
>> ERR("DIERR"	SETE+1
I	QUEUE+3~
IN	SETSUB+1, QUEUE+3~, QUEUE+5, QUEUE+7, QUEUE+8*
J	QUEUE+3~
OUT	SETSUB+1, QUEUE+3~, QUEUE+5, QUEUE+7, QUEUE+8*
U	SETSUB+4, QUEUE+16, QUEUE+18
X	SETSUB+1, SETSUB+4, SETSUB+5, QUEUE+3~, CS+7*
Y	APCDPLST+28, APCDPLST+33, APCDPLST+34, SETSUB+3*, SETSUB+4, QUEUE+3~, CS+10
>> ZTQUEUED	QUEUE+9

Customize PDF page

Package: Patient Care Component

Routine: APCDPLST

Information

Source Information

Call Graph

Call Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Line Occurrences
CS	QUEUE+26, QUEUE+28, QUEUE+29
QUEUE	APCDPLST+36
SETSUB	QUEUE+5, QUEUE+7, QUEUE+8
XIT	APCDPLST+32, APCDPLST+33, APCDPLST+37