Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 509850.81

Package: Quasar

A&SP SITE PARAMETERS(#509850.8)-->509850.81

Sub-Field: 509850.81


Information

Parent File Name Number Package
A&SP SITE PARAMETERS(#509850.8) *CLINIC LOCATION 509850.81 Quasar

Details

Field # Name Loc Type Details
.01 *CLINIC LOCATION 0;1 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""C""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  AUG 13, 1999
  • HELP-PROMPT:  Select an A&SP clinic.
  • DESCRIPTION:  The CLINIC LOCATION sub-file 509850.81 is no longer used. With Quasar version 3.0 this record has been replaced by the sub-file 509850.831 in which valid ASP Clinics are stored under their respective Divisions.
    Eighteen months after the release of Quasar v3.0 this field can be deleted.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""C"""
  • EXPLANATION:  Only clinic locations may be selected.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  509850.81^B
    1)= S ^ACK(509850.8,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^ACK(509850.8,DA(1),1,"B",$E(X,1,30),DA)
.02 *ID NUMBER 0;2 NUMBER

  • INPUT TRANSFORM:  K:X'?1.2N X I $D(X) S X1=$O(^ACK(509850.8,"AC",X,1,0)) X "I X1 W !!,*7,*7,""ID NUMBER "",X,"" ALREADY USED BY "",$P(^SC(+^ACK(509850.8,1,1,X1,0),0),U),""!!"" K X" K X1
  • LAST EDITED:  MAR 11, 1999
  • HELP-PROMPT:  Enter a number between 0 and 99, 0 decimal digits.
  • DESCRIPTION:  
    The ID NUMBER field has been marked for deletion. Card code capability was not implemented in QUASAR V. 1.0. Eighteen months after the release of QUASAR V. 2.0, this field can be removed.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 *CDR ACCOUNT 0;3 POINTER TO CDR ACCOUNT FILE (#509850) CDR ACCOUNT(#509850)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U)\1=2611" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 11, 1999
  • HELP-PROMPT:  Select a CDR account number.
  • DESCRIPTION:  The CDR ACCOUNT field is a pointer to the CDR ACCOUNT file (#509850). Only 2611 (Rehabilitation and Supportive Services) accounts can be chosen.
    The CDR ACCOUNT field has been marked for deletion. This field is not used by QUASAR V. 2.0. Eighteen months after the release of QUASAR 2.0, this field can be removed.
  • SCREEN:  S DIC("S")="I $P(^(0),U)\1=2611"
  • EXPLANATION:  Only 2611 accounts can be chosen.
    UNEDITABLE
Info |  Details