Routine: ACMLPAT

Name	Field # of Occurrence
^ACMLCMS	EN+2
HEAD^ACMMENU	LOOKUP, ADD+2
^ACMQK	ADD+24
^AUPNLK	ADD+6
RESET^AUPNLKZ	ADD+7
SET^AUPNLKZ	ADD+5
MIX^DIC1	LOOKUP+10
FILE^DICN	ADD+19
YN^DICN	ADD+15, ADD+23, DELETE+1
^DIE	DECEASED+5
^DIK	DELETE+5, DELETE+6, DELETE+8, DUPCHK+3
^DIR	NEW+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,7,7,"Patient lookup for the ",ACMRGNA,!,"is temporarily suspended during patient transfer." Line Location: LOOKUP+1
Function Call: WRITE	Prompt: !!?80-$L(ACMX)\2,ACMX,!!?15,"Select ",$S($D(ACMOUT):"another ",1:""),"CLIENT" Line Location: LOOKUP+3
Function Call: WRITE	Prompt: ! Line Location: LOOKUP+9
Function Call: WRITE	Prompt: !!?10,@ACMRVON,ACMPTNA2,@ACMRVOFF," is not on the ",ACMRGNA," register.",!?10,"You must add the patient before entering or printing data." Line Location: LOOKUP+15
Function Call: WRITE	Prompt: !?14,"This CLIENT is not a registered patient.",!?14,"He/she must be registered before entry in the CMS." Line Location: NEW+0
Function Call: WRITE	Prompt: !!?14,"Add patient(s) to the ",ACMRGNA," register." Line Location: ADD+3
Function Call: WRITE	Prompt: !!?14,ACMPTNA2," is already on the ",ACMRGNA," register." Line Location: ADD+12
Function Call: WRITE	Prompt: !!?17,"Add ",@ACMRVON,ACMPTNA2,@ACMRVOFF,!?14,"to the ",@ACMRVON,ACMRGNA,@ACMRVOFF," register" Line Location: ADD+13
Function Call: WRITE	Prompt: !!,"Edit data for ",ACMPTNA Line Location: ADD+21
Function Call: WRITE	Prompt: !!?10,7,7,"**** WARNING ****",!!,"This procedure will delete ALL data for",!?12,@ACMRVON,ACMPTNA2,@ACMRVOFF," from the ",!?12,@ACMRVON,ACMRGNA,@ACMRVOFF," register.",!,"Are you certain you want to do this" Line Location: DELETE+1
Function Call: WRITE	Prompt: !!,"No data deleted." Line Location: DELETE+2
Function Call: WRITE	Prompt: !!,"Deletion of ",@ACMRVON,ACMPTNA2,@ACMRVOFF,!?3,"from the ",@ACMRVON,ACMRGNA,@ACMRVOFF," register..." Line Location: DELETE+3
Function Call: WRITE	Prompt: !,ACMI_" "_DA Line Location: DELETE+6
Function Call: WRITE	Prompt: "is now complete." Line Location: DELETE+10
Routine Call	DIE Line Location: DECEASED+5
Routine Call	DIR Line Location: NEW+2

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls
^ACM(41 - [#9002241]	Classic Fileman Calls
^ACM(49 - [#9002249]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	LOOKUP+14, LOOKUP+15, LOOKUP+16, ADD+12, ADD+24, DELETE+7, DUPCHK+3*
^ACM(41.1 - [#9002241.1]	LOOKUP+1
^DPT - [#2]	LOOKUP+14, ADD+11, DECEASED+2

Name	Line Occurrences
ADD	ADD+10, ADD+12, ADD+16, ADD+25
DECEASED	LOOKUP+18, ADD+20
DELETE	LOOKUP+17
EN	LOOKUP+15
LOOKUP	EN+1, LOOKUP+13
NEW	LOOKUP+13, ADD+10

Name	Field # of Occurrence
^(	DELETE+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	ADD+14, ADD+16, ADD+22, ADD+24, DELETE+1*, DELETE+2
ACM	DUPCHK~, DUPCHK+2, DUPCHK+3
ACMGREF	DELETE+4, DELETE+5, DELETE+6, DELETE+9!
ACMI	DELETE+6*, DELETE+9!
ACMOUT	LOOKUP+3, LOOKUP+4!
>> ACMPTDEL	LOOKUP+17
ACMPTNA	LOOKUP+14, ADD+11, ADD+16!, ADD+21
ACMPTNA2	LOOKUP+14, LOOKUP+15, ADD+11, ADD+12, ADD+13, ADD+16!, DELETE+1, DELETE+3
ACMPTNO	LOOKUP+14, LOOKUP+15, LOOKUP+16, LOOKUP+18, ADD+11, ADD+12, ADD+16!, ADD+18, ADD+20, ADD+24 , DELETE+5, DELETE+6, DELETE+7, DUPCHK+3
ACMQUIT	EN, EN+2, LOOKUP+1, LOOKUP+12, LOOKUP+16, DELETE+2, DELETE+11, DUPCHK+1!, DUPCHK+3*
>> ACMRG	EN, LOOKUP+1, LOOKUP+15, LOOKUP+16, ADD+1, ADD+12, ADD+18, ADD+24, DELETE+5, DELETE+6 , DELETE+7, DUPCHK+3
>> ACMRGDFN	LOOKUP+16, LOOKUP+18, ADD+24
>> ACMRGNA	LOOKUP+1, LOOKUP+15, ADD+3, ADD+12, ADD+13, DELETE+1, DELETE+3
>> ACMRVOFF	LOOKUP+15, ADD+13, DELETE+1, DELETE+3
>> ACMRVON	LOOKUP+15, ADD+13, DELETE+1, DELETE+3
ACMX	LOOKUP+2, LOOKUP+3, LOOKUP+4!, DELETE+4, DELETE+5, DELETE+6, DELETE+9!
>> D	LOOKUP+7*
DA	ADD+19!, DELETE+5, DELETE+6!, DELETE+7, DUPCHK+3, DECEASED~, DECEASED+1, DECEASED+6!
DD	ADD+17!, ADD+19!
DFN	DECEASED~, DECEASED+1, DECEASED+2
DIC	LOOKUP+7, LOOKUP+11!, ADD+4, ADD+8!, ADD+17!, ADD+18*, ADD+19!, DELETE+5!, DELETE+6!, DELETE+9!
DIC("A"	LOOKUP+7, ADD+4
DIC("DR"	ADD+18*
DIC("S"	LOOKUP+7*
DIC(0	LOOKUP+7, ADD+4, ADD+18*
DIE	ADD+18, ADD+19!, DECEASED+3, DECEASED+6!
DIK	DELETE+5!, DELETE+6!, DELETE+7, DELETE+9!, DUPCHK+3
DIR	NEW+2!
DIR("A"	NEW+1*
DIR(0	NEW+1*
DO	ADD+19!
DR	ADD+19!, DECEASED+4*, DECEASED+6!
DT	ADD+18
U	LOOKUP+1, LOOKUP+14, ADD+11
>> X	LOOKUP+12, ADD+9, ADD+18*
>> Y	LOOKUP+12, LOOKUP+13, LOOKUP+14, ADD+9, ADD+10, ADD+11, ADD+20

Customize PDF page

Package: Case Management System

Routine: ACMLPAT

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller 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:

Name	Comments	DBIA/ICR reference
EN
ADD	;EP;TO ADD PATIENT TO A REGISTER
LOOKUP
DUPCHK
DECEASED(DFN,DA)	;EP;TO SET STATUS TO DECEASED ;IHS/CIM/THL PATCH 5
NEW
DELETE	;D DUPCHK Q:$D(ACMQUIT) ;TMJ 11/7/94