Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^SOWK(656

Package: Social Work

Global: ^SOWK(656


Information

FileMan FileNo FileMan Filename Package
656 SWS RESOURCES Social Work

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Social Work 11 SOWKBH    SOWKBHP    SOWKCLT    SOWKCONV    SOWKHIFP    SOWKHRS    SOWKHRT    SOWKOPCT
SOWKPRIT    ^SOWK(656    TYPE    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Social Work 1 SOWKBH    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Kernel 1 STATE(#5)[2.5]    

Fields, Total: 20

Field # Name Loc Type Details
.01 AGENCY 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
  • LAST EDITED:  OCT 28, 1983
  • HELP-PROMPT:  Your answer must be 3 to 60 characters in length.
  • DESCRIPTION:  
    This is the name of the community resource module agency.
  • CROSS-REFERENCE:  656^B
    1)= S ^SOWK(656,"B",$E(X,1,30),DA)=""
    2)= K ^SOWK(656,"B",$E(X,1,30),DA)
1 STREET ADDRESS 1 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • HELP-PROMPT:  Your answer must be 3 to 50 characters in length.
  • DESCRIPTION:  
    This is the primary address of agency.
1.5 STREET ADDRESS 2 4;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  NOV 24, 1984
  • HELP-PROMPT:  Your answer must be 3 to 50 characters in length.
  • DESCRIPTION:  
    This is the secondary address of agency.
2 CITY 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  NOV 26, 1984
  • HELP-PROMPT:  Your answer must be 3 to 20 characters in length.
  • DESCRIPTION:  
    This is the city where the agency is located.
  • CROSS-REFERENCE:  656^E
    1)= S ^SOWK(656,"E",$E(X,1,30),DA)=""
    2)= K ^SOWK(656,"E",$E(X,1,30),DA)
2.5 STATE 4;2 POINTER TO STATE FILE (#5)
************************REQUIRED FIELD************************
STATE(#5)

  • LAST EDITED:  DEC 14, 1990
  • HELP-PROMPT:  Enter state where the agency is located.
  • DESCRIPTION:  This is the state in which this agency is located.
  • CROSS-REFERENCE:  ^^TRIGGER^656^3
    1)= I '$D(DIU(0)) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SOWK(656,D0,4)):^(4),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$S($D(^SOWK(656,DIV(0),4)):^(4),1:""),DIV=X S $P(^(4),U,1)=DIV,DIH=656,DIG=3 D ^DICR:$O
    (^DD(DIH,DIG,1,0))
    2)= I '$D(DIU(0)) K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^SOWK(656,D0,4)):^(4),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$S($D(^SOWK(656,DIV(0),4)):^(4),1:""),DIV=X S $P(^(4),U,1)=DIV,DIH=656,DIG=3 D ^DICR:$O
    (^DD(DIH,DIG,1,0))
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= COUNTY
    This trigger is used to delete county name if the state name value is changed.
3 COUNTY 4;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S Z0=$S($P(^SOWK(656,D0,4),"^",2):$P(^(4),"^",2),1:0) Q:'Z0!'$D(^DIC(5,Z0,1,0)) S DIC="^DIC(5,Z0,1,",DIC(0)="QEM" D ^DIC S X=$P(Y,"^",2) K:'Y X K Z0,DIC
  • LAST EDITED:  SEP 05, 1991
  • HELP-PROMPT:  Enter a valid county for state where agency is located.
  • DESCRIPTION:  
    This field is used to show what county within the state the agency is located.
  • EXECUTABLE HELP:  D EN1^SOWKBH
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the STATE field of the SWS RESOURCES File
  • CROSS-REFERENCE:  656^M
    1)= S ^SOWK(656,"M",$E(X,1,30),DA)=""
    2)= K ^SOWK(656,"M",$E(X,1,30),DA)
4 ZIP CODE 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<5) X
  • LAST EDITED:  OCT 25, 1991
  • HELP-PROMPT:  Answer must be 5-10 characters in length.
  • DESCRIPTION:  
    This is the zip code of the agency.
  • CROSS-REFERENCE:  656^D
    1)= S ^SOWK(656,"D",$E(X,1,30),DA)=""
    2)= K ^SOWK(656,"D",$E(X,1,30),DA)
5 PHONE NUMBER #1 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  NOV 24, 1984
  • HELP-PROMPT:  Your answer must be 3 to 15 characters in length.
  • DESCRIPTION:  This is the primary phone number of the agency.
5.1 FAX NUMBER 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<7) X
  • LAST EDITED:  MAR 09, 1990
  • HELP-PROMPT:  Your answer must be 7-15 characters in length.
  • DESCRIPTION:  
    This is the FAX number of the agency.
5.2 PHONE NUMBER #2 1;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<7) X
  • HELP-PROMPT:  Your answer must be 7-15 characters in length.
  • DESCRIPTION:  
    This is the secondary phone number of the agency.
6 HOURS 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • HELP-PROMPT:  Your answer must be 3 to 70 characters in length.
  • DESCRIPTION:  This field contains the operational hours of this agency.
7 SERVICE 1;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • LAST EDITED:  DEC 20, 1985
  • HELP-PROMPT:  Your answer must be 3 to 70 characters in length.
  • DESCRIPTION:  This field contains the Mission Statement of Services provided by the agency.
8 ELIGIBILITY 1;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • HELP-PROMPT:  Your answer must be 3 to 70 characters in length.
  • DESCRIPTION:  This is the criteria required for service delivery.
9 FEES 1;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>65!($L(X)<3) X
  • HELP-PROMPT:  Your answer must be 3 to 65 characters in length.
  • DESCRIPTION:  
    This field contains fees charged by the agency.
10 REFERRAL 2;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • HELP-PROMPT:  Your answer must be 3 to 70 characters in length.
  • DESCRIPTION:  This is the usual procedure required to access services.
11 COMMENTS 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<3) X
  • LAST EDITED:  APR 12, 1985
  • HELP-PROMPT:  Your answer must be 3 to 70 characters in length.
  • DESCRIPTION:  These are brief comments about this agency.
12 DATE OF INFO 2;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 24, 1984
  • HELP-PROMPT:  Enter date when data was entered or last updated.
  • DESCRIPTION:  This is the date on which the information about this agency was entered or updated.
13 VA LIAISON 2;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<3) X
  • LAST EDITED:  DEC 20, 1985
  • HELP-PROMPT:  Your answer must be 3 to 50 characters in length.
  • DESCRIPTION:  
    This field will be the VA Liaison for the community resource.
15 SPECIAL POPULATION 2;6 FREE TEXT

  • INPUT TRANSFORM:  S DIC="^SOWK(650.1,1,2,",DIC(0)="EQM" D ^DIC S X=$P(Y,"^",2) K:+Y'>0 X K DIC
  • LAST EDITED:  MAR 07, 1990
  • HELP-PROMPT:  Enter a valid special patient population.
  • DESCRIPTION:  This is the special population that this agency may serve.
  • EXECUTABLE HELP:  S DIC="^SOWK(650.1,1,2,",DIC(0)="QEM" D ^DIC K DIC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  656^F^MUMPS
    1)= S ^SOWK(656,"F",X,DA)=""
    2)= K ^SOWK(656,"F",X,DA)
    This cross reference is used for sorting and printing.
16 TYPE 3;0 SET Multiple #656.01 656.01

  • DESCRIPTION:  
    This field is used for the type of services provided by an agency.  An agency can provide multiple types of services.

External References

Name Field # of Occurrence
^%DT 12+1
^DIC 3+1, 15+1, 15(HELP )
^DICR 2.5(XREF 1S), 2.5(XREF 1K)
EN1^SOWKBH 3(HELP )

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 2.5(XREF 1S), 2.5(XREF 1K)
^DIC(5 - [#5] 3+1
^SOWK(656 - [#656] .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2.5(XREF 1S), 2.5(XREF 1K), 3+1, 3(XREF 1S), 3(XREF 1K), 4(XREF 1S)
4(XREF 1K), 15(XREF 1S), 15(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(4 2.5(XREF 1S), 2.5(XREF 1K), 3+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT 12+1*
>> D0 2.5(XREF 1S), 2.5(XREF 1K), 3+1
>> DA .01(XREF 1S), .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2.5(XREF 1S), 2.5(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
15(XREF 1S), 15(XREF 1K)
DIC 3+1*!, 15+1*!, 15(HELP )
DIC(0 3+1*, 15+1*, 15(HELP )
>> DIG 2.5(XREF 1S), 2.5(XREF 1K)
>> DIH 2.5(XREF 1S), 2.5(XREF 1K)
>> DIU 2.5(XREF 1S), 2.5(XREF 1K)
>> DIU(0 2.5(XREF 1S), 2.5(XREF 1K)
DIV 2.5(XREF 1S), 2.5(XREF 1K)
DIV(0 2.5(XREF 1S), 2.5(XREF 1K)
U 2.5(XREF 1S), 2.5(XREF 1K)
X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1!, 1.5+1!, 2+1!, 2(XREF 1S), 2(XREF 1K), 2.5(XREF 1S), 2.5(XREF 1K)
, 3+1*!, 3(XREF 1S), 3(XREF 1K), 4+1!, 4(XREF 1S), 4(XREF 1K), 5+1!, 5.1+1!, 5.2+1!, 6+1!
, 7+1!, 8+1!, 9+1!, 10+1!, 11+1!, 12+1*!, 13+1!, 15+1*!, 15(XREF 1S), 15(XREF 1K)
Y 2.5(XREF 1S), 2.5(XREF 1K), 3+1, 12+1, 15+1
Y(1 2.5(XREF 1S), 2.5(XREF 1K)
Z0 3+1*!
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All