Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ACMTRANS

Package: Case Management System

Routine: ACMTRANS


Information

ACMTRANS ; IHS/TUCSON/TMJ - CONTROL TRANSFER OF PATIENTS TO CMS ; [ 02/19/2002 12:14 PM ]

Source Information

Source file <ACMTRANS.m>

Call Graph

Call Graph Total: 7

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

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

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*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All