Routine: ACMTRANS

Package	Total	Call Graph
Case Management System	3	RGTPX^ACMGTP DECEASED^ACMLPAT (HEAD,PAUSE)^ACMMENU
VA Fileman	3	^DIC (FILE,YN)^DICN ^DIR
Kernel	1	^%ZTLOAD

Entry Points

External References

Name	Field # of Occurrence
^%ZTLOAD	TSK+1
RGTPX^ACMGTP	TRX
DECEASED^ACMLPAT	MOVE+4
HEAD^ACMMENU	PCC
PAUSE^ACMMENU	MESS+2
^DIC	PCCO+1, TLOOK+3
FILE^DICN	MOVE+3
YN^DICN	STATUS+7
^DIR	STATUS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?14,X,") ",@("ACM"_X) Line Location: SLCT1+2
Function Call: WRITE	Prompt: !! Line Location: SLCT1+3
Function Call: WRITE	Prompt: !!,?80-$L(@ACMX)\2,@ACMX,!! Line Location: PCC+2
Function Call: WRITE	Prompt: ! Line Location: PCCO+4
Function Call: WRITE	Prompt: !!?10,"The following transfer has been selected:",!!?10,"From ",$S(ACMSLCT="PCC":"PCC register: ",ACMSLCT="SER":"SEARCH TEMPLATE: ",1:" PT TAXONOMY: ") Line Location: STATUS+5
Function Call: WRITE	Prompt: ?30,ACMTRNA,!?12,"To CMS register:",?30,ACMRGNA,!?10,"Transfer Status: ",?30,ACMSTAT," - ",ACMSTAT(0),!!,?10,"Is that what you want" Line Location: STATUS+6
Function Call: WRITE	Prompt: !!?10,"Transfer of patients will be done in background mode.",!?10,"All patients will be entered as "_ACMSTAT(0),". All cases",!?10,"should be reviewed and all patient data updated in the",!?10,@ACMRVON,ACMRGNA,@ACMRVOFF," register." Line Location: MESS+0
Function Call: WRITE	Prompt: ! Line Location: MESS+1
Function Call: WRITE	Prompt: ! Line Location: TLOOK+5
Function Call: WRITE	Prompt: !!?10,"There are ",ACMYI-1," patients in this SEARCH TEMPLATE." Line Location: TLOOK+8
Function Call: WRITE	Prompt: ! Line Location: TLOOK+10
Function Call: WRITE	Prompt: !,?3,^(ACMYI,0) Line Location: TLOOK+12
Function Call: WRITE	Prompt: ! Line Location: TLOOK+14
Routine Call	DIC Line Location: PCCO+1 TLOOK+3
Routine Call	DIR Line Location: STATUS+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACM(41 - [#9002241]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACM(41 - [#9002241]	TRANS+1, MOVE
^ACM(41.1 - [#9002241.1]	TRANS, TRANS+2, MOVE+1
^DIBT(	TLOOK+7, TLOOK+12

Label References

Name	Line Occurrences
EXIT	PCC+3, STATUS+8
MOVE	TRANS+1
PCC	EN+1
SLCT	EN
TLOOK	PCC+3
TRX	PCC+3
TSK	STATUS+9

Naked Globals

Name	Field # of Occurrence
^(	TLOOK+12
^(0	MOVE+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	STATUS+7*, STATUS+8, STATUS+9
ACM1	EXIT+1!, SLCT1*
ACM2	EXIT+1!, SLCT1*
ACM3	EXIT+1!, SLCT1*
ACMGLB	EXIT+1!, PCC+4, PCCO, TRANS, TRANS+1
ACMGLB1	EXIT+1!, PCC+4*, PCC+5
ACMI	EXIT!, TRANS+3!, TLOOK+6, TLOOK+7, TLOOK+9!
ACMJ	PCC+5*, TRX+1!
ACMQUIT	EN+1, EXIT+1!
ACMRG	EXIT!, TRX+1!, TRANS, TRANS+1, TRANS+2, TRANS+3!, MOVE, MOVE+1, MOVE+2
ACMRGNA	EXIT!, TRX+1!, STATUS+6, MESS, TRANS+3!
ACMRGTP	EXIT!, PCCO+3, TRX+1!, TRANS+3!, TLOOK+6
>> ACMRVOFF	MESS
>> ACMRVON	MESS
ACMSLCT	EN+1, EXIT!, SLCT1+8*, PCC+3, PCC+4, PCCO, STATUS+5, TRANS, TRANS+3!
>> ACMSTAT	STATUS+4*, STATUS+6, MOVE+2
>> ACMSTAT(0	STATUS+4*, STATUS+6, MESS
ACMTRN	EXIT!, SLCT1+8, PCC+1, PCC+2!, PCC+5, PCCO+3, TRX+1!, TRANS, TRANS+3!, TLOOK+6 , TLOOK+7, TLOOK+12
ACMTRNA	EXIT!, PCCO+3, STATUS+6, TRANS+3!, TLOOK+6
ACMTRNX	EXIT!, PCC+4, PCC+5, TRX+1!, TRANS+3!
ACMU	EXIT!, TRANS, TRANS+1, TRANS+3!, MOVE, MOVE+2, MOVE+4
ACMX	EXIT!, SLCT1, PCC+1, PCC+2!, TRX+1!, TRANS+3!
ACMX(5	PCC+4*, PCC+5
ACMYI	TLOOK+7, TLOOK+8, TLOOK+9!, TLOOK+11, TLOOK+12*, TLOOK+13!
DA	TRANS+3!, MOVE+3!, TLOOK+3!
DD	TRANS+3!, MOVE+3!
DIC	PCCO, PCCO+1!, TRANS+3!, MOVE+2, MOVE+3!, TLOOK!, TLOOK+2*, TLOOK+3!
DIC("A"	PCCO, TLOOK+2
DIC("DR"	MOVE+2*
DIC("S"	TLOOK+2*
DIC(0	PCCO, MOVE+2, TLOOK+2*
DIE	TRANS+3!, MOVE+3!
DIR	STATUS+2!
DIR("?"	STATUS+1*
DIR("A"	STATUS+1*
DIR("B"	STATUS+1*
DIR(0	STATUS+1*
>> DIRUT	STATUS+2*, STATUS+3
DO	MOVE+3!
DR	TRANS+3!, MOVE+3!, TLOOK+3!
DT	MOVE+2
>> DUOUT	STATUS+2
U	PCCO+3, TRANS, TRANS+2, MOVE+1, TLOOK+6
>> X	MOVE+2*
>> Y	SLCT1+7*, SLCT1+8, PCC+3, PCCO+2, PCCO+3, STATUS+4, MOVE+4, TLOOK+4, TLOOK+6
>> Y(0	STATUS+4
>> ZTDESC	TSK*
>> ZTDTH	TSK*
>> ZTIO	TSK*
>> ZTREQ	TRANS+4*
>> ZTRTN	TSK*
>> ZTSAVE("ACM*"	TSK*

Customize PDF page

Package: Case Management System

Routine: ACMTRANS

Information

Source Information

Call Graph

Call Graph Total: 7

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
STATUS	;get status to transfer
EN
SLCT	;D HEAD^ACMMENU
PCCO
MESS
MOVE
TRX
EXIT
PCC
TLOOK
SLCT1
TRANS
TSK