Routine: ACMAPP1

Package	Total	Call Graph
VA Fileman	4	^DIC WAIT^DICD (FILE,YN)^DICN ^DIE

Entry Points

Name	Comments	DBIA/ICR reference
SVMESS
STAT
EN
ADDSERV
DIE1
PRO
CHK
SVC
CHKS
EXIT
WANTNEW
TEST
NEW

External References

Name	Field # of Occurrence
^DIC	PRO+3, SVC+5
WAIT^DICD	NEW+9
FILE^DICN	SVMESS+2, ADDSERV+7, NEW+10
YN^DICN	WANTNEW+1, ADDSERV+2, STAT+3, NEW+3
^DIE	DIE1, DIE1+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: PRO+3
Function Call: WRITE	Prompt: ! Line Location: SVC+5
Function Call: WRITE	Prompt: !!?10,"Enter the RELATED SERVICE for the appointment.",! Line Location: SVC+7
Function Call: WRITE	Prompt: !!?10,"The ",@ACMRVON,ACMRGNA,@ACMRVOFF," register is not associated with" Line Location: SVMESS+3
Function Call: WRITE	Prompt: !?10,"the ",@ACMRVON,ACMSCNA,@ACMRVOFF," service." Line Location: SVMESS+4
Function Call: WRITE	Prompt: !?10,"The ",ACMRGNA," register must be added for this service." Line Location: SVMESS+5
Function Call: WRITE	Prompt: !?10,"Use the 'Supporting Data' Option from the MAIN MENU." Line Location: SVMESS+6
Function Call: WRITE	Prompt: !!?10,"Strike <CR> to continue." Line Location: SVMESS+7
Function Call: WRITE	Prompt: !!?10,"Do you want to add another appointment for this service" Line Location: WANTNEW+0
Function Call: WRITE	Prompt: !!?10,@ACMRVON,ACMPTNA2,@ACMRVOFF," is not signed up for" Line Location: ADDSERV+0
Function Call: WRITE	Prompt: !?10,@ACMRVON,ACMSCNA,@ACMRVOFF,"." Line Location: ADDSERV+1
Function Call: WRITE	Prompt: !!?10,"Want to enroll him/her for ",ACMSCNA Line Location: ADDSERV+2
Function Call: WRITE	Prompt: !!?10,"CLIENT must be ENROLLED in the SERVICE before he/she",!?10,"can get an appointment to this provider. If you want to",!?10,"escape without enrolling this CLIENT, type '^' followed by a <CR>." Line Location: ADDSERV+4
Function Call: WRITE	Prompt: !!?10,"This CLIENT is signed up for ",@ACMRVON,ACMSCNA,@ACMRVOFF Line Location: STAT+0
Function Call: WRITE	Prompt: !?10,"but his/her status is not indicated as being ENROLLED." Line Location: STAT+1
Function Call: WRITE	Prompt: !?10,"Want to change the status to ENROLLED" Line Location: STAT+2
Function Call: WRITE	Prompt: !!?10,"CLIENT must be ENROLLED for ",ACMSCNA,!?10," before he/she can get an appointment for this service.",!?10,"If you want to escape without enrolling this CLIENT, type '^' followed by a <CR>." Line Location: STAT+4
Function Call: WRITE	Prompt: !!?10,"I will add the following appointment for this client =>" Line Location: NEW+0
Function Call: WRITE	Prompt: !!?14,"Provider: ",@ACMRVON,ACMCLNA,@ACMRVOFF Line Location: NEW+1
Function Call: WRITE	Prompt: !?15,"Service: ",@ACMRVON,ACMSCNA,@ACMRVOFF Line Location: NEW+2
Function Call: WRITE	Prompt: !!?10,"OK" Line Location: NEW+3
Function Call: WRITE	Prompt: ! Line Location: NEW+9
Function Call: WRITE	Prompt: ! Line Location: NEW+9
Routine Call	DIE Line Location: DIE1 DIE1+1
Routine Call	DIC Line Location: PRO+3 SVC+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(47 - [#9002247]	Classic Fileman Calls
^ACM(47.1 - [#9002247.1]	Classic Fileman Calls
^ACM(49 - [#9002249]	Classic Fileman Calls
^ACM(50 - [#9002250]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(47 - [#9002247]	CHK+1, CHKS*, CHKS+1
^ACM(47.1 - [#9002247.1]	CHK, SVMESS*, TEST
^ACM(49 - [#9002249]	CHKS+2
^ACM(50 - [#9002250]	PRO+5, TEST

Label References

Name	Line Occurrences
ADDSERV	CHK+3, ADDSERV+4
CHK	EN+2, EN+4
CHKS	CHK+2
DIE1	ADDSERV+8, STAT+5
EXIT	EN+2, EN+5
NEW	CHK+4, CHKS+4
PRO	EN
STAT	CHKS+1, STAT+4
SVC	EN+3, SVC+7
SVMESS	CHK
TEST	EN+1
WANTNEW	CHKS+2

Naked Globals

Name	Field # of Occurrence
^(	CHK+1, TEST

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	WANTNEW+1, WANTNEW+2, ADDSERV+2, ADDSERV+4, STAT+3, STAT+4, NEW+3, NEW+4
%Y	EXIT!, WANTNEW+2, ADDSERV+3
ACMCLNA	PRO+5*, EXIT!, NEW+1
ACMCLNO	PRO+5*, EXIT!, NEW+5, TEST
>> ACMI	CHK+1, CHKS+2, TEST*, TEST+1
ACMNONU	CHKS+3!, WANTNEW+2*
>> ACMPTNA2	ADDSERV
>> ACMPTNO	CHK+1, CHKS+2, ADDSERV+6, NEW+8
ACMQUIT	EN+1, EN+2, EN+3, EN+4, PRO!, PRO+4, SVC+6, EXIT!, CHK+4, CHKS+1 , ADDSERV+3, NEW+4
>> ACMRG	CHK, CHK+1, SVMESS+1, ADDSERV+6, NEW+8
>> ACMRGDFN	ADDSERV+6, DIE1+1, NEW+8
>> ACMRGNA	SVMESS+3, SVMESS+5
>> ACMRVOFF	SVMESS+3, SVMESS+4, ADDSERV, ADDSERV+1, STAT, NEW+1, NEW+2
>> ACMRVON	SVMESS+3, SVMESS+4, ADDSERV, ADDSERV+1, STAT, NEW+1, NEW+2
ACMSCNA	SVC+8, EXIT!, SVMESS+4, ADDSERV+1, ADDSERV+2, STAT, STAT+4, NEW+2, TEST, TEST+2!
ACMSCNO	EN!, EN+2, SVC+8, EXIT!, CHK, CHK+1, CHKS+2, SVMESS, SVMESS+1, ADDSERV+5 , NEW+8, TEST, TEST+2!
ACMSVNA	EXIT!
ACMSVNO	EXIT!, CHK+1, CHK+2, CHKS, CHKS+1, ADDSERV+8, STAT+5
ACMU	EXIT!, CHK+1, CHKS+2, TEST*
>> ACMUA	CHK+1*
>> ACMX	SVMESS+7*
DA	EN+3!, ADDSERV+8, DIE1+1, STAT+5, NEW+4!, NEW+10
DA(1	SVMESS+1*
DD	SVC!, SVC+5!, SVMESS+2!, ADDSERV+5!, ADDSERV+7!, NEW+6!, NEW+10!
DIC	PRO+1, PRO+3!, SVC!, SVC+1, SVC+5!, SVMESS+1, ADDSERV+5!, ADDSERV+7!, DIE1!, DIE1+1! , NEW+6!, NEW+7*, NEW+10!
DIC("A"	PRO+1, SVC+3
DIC("DR"	ADDSERV+6, NEW+8
DIC("S"	PRO+2, SVC+4
DIC(0	PRO+1, SVC+2, SVMESS+1, ADDSERV+5, NEW+7*
DIE	ADDSERV+8, DIE1!, DIE1+1!, STAT+5*
DO	SVMESS+2!, ADDSERV+7!, NEW+10!
DR	ADDSERV+7!, ADDSERV+8, DIE1!, DIE1+1!, STAT+5*, NEW+10!
DTIME	SVMESS+7
U	PRO+4, PRO+5, SVC+6, SVC+8, CHKS+1, CHKS+2, TEST
>> X	PRO+4, SVC+6, SVMESS+1, ADDSERV+5, NEW+5, TEST
>> Y	PRO+4, PRO+5, SVC+7, SVC+8, ADDSERV+8, NEW+10

Customize PDF page

Package: Case Management System

Routine: ACMAPP1

Information

Source Information

Call Graph

Call Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: