Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls