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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: SOWKP51

Package: Social Work

Routine: SOWKP51


Information

SOWKP51 ;B'HAM ISC/DB - Routine to add CDC Accounts

Source Information

Source file <SOWKP51.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA FileMan 2 ^DIC  ^DIE  

Entry Points

Name Comments DBIA/ICR reference
ASKOK ; W !!,"OK to continue " S %=1,DIR(0)="Y" D YN^DICN I %'=1 W !!,"No updating has occurred.." G Q
LP ;Loop through additions
Q
STUFF
TXT ;;PTSD CWT/TR;1716.00

External References

Name Field # of Occurrence
^DIC ASKOK+3
^DIE LP+1, STUFF+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"It appears that this patch has been previously installed. The post-",!,"installation routine will not repeat the update process.",!
  • Line Location: SOWKP51+3
Function Call: WRITE
  • Prompt: !!,"This patch will enter the following CDC codes into your Cost Distribution",!,"Center file.:",!
  • Line Location: SOWKP51+4
Function Call: WRITE
  • Prompt: !,"COST CENTER NAME",?50,"CDC Distribution Account",!
  • Line Location: SOWKP51+5
Function Call: WRITE
  • Prompt: "="
  • Line Location: SOWKP51+5
Function Call: WRITE
  • Prompt: !,$P($T(TXT+XX),";",3),?55,$P($T(TXT+XX),";",4)
  • Line Location: SOWKP51+6
Function Call: WRITE
  • Prompt: !!,"No updating has occurred.."
  • Line Location: ASKOK+0
Function Call: WRITE
  • Prompt: !,$P(^SOWK(651,DA,0),"^",1),?45,CDC
  • Line Location: LP+1
Function Call: WRITE
  • Prompt: " ...added"
  • Line Location: LP+1
Function Call: WRITE
  • Prompt: !,"File update completed.",!
  • Line Location: LP+3
Routine Call
  • DIC
  • Line Location:
    • ASKOK+3
Routine Call
  • DIE
  • Line Location:
    • LP+1
    • STUFF+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SOWK(651 SOWKP51+3, LP+1

Label References

Name Line Occurrences
Q SOWKP51+2, SOWKP51+3
STUFF LP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CDC LP+1*
DA LP+1*, Q!, STUFF+1*
DIC ASKOK+3*, Q!
DIC(0 ASKOK+3*
DIE LP+1*, Q!, STUFF+1*
DR LP+1*, Q!, STUFF*
>> EDTIEN ASKOK+6*, LP+1*, STUFF, STUFF+1
PTCHADD ASKOK+3*, Q!
PTCHEDT Q!
PTCHEDT( ASKOK+3*, LP+1, STUFF+1
>> X SOWKP51+5*, ASKOK+3*
XX SOWKP51+6*, Q!
>> Y ASKOK+3

Marked Items

Name Field # of Occurrence
$T(TXT+EDTIEN LP+1
$T(TXT+PTCHADD ASKOK+3
$T(TXT+XX SOWKP51+6
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All