INPUT TRANSFORM: S DIC("S")="I $$CLCHK^PSJPADE(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
LAST EDITED: JUN 25, 2015
HELP-PROMPT: Enter the clinics belonging to this clinic group.
DESCRIPTION: These are the clinics belonging to this group. If you want to set up a clinic group just for PADE use only to send messages to a particular PADE location then you can do so here by defining all the clinics and
putting them under one group.
If you intend to use the Clinic group already existing in VistA and there are no overlap of clinics within those clinic groups then you can do so by selecting the VISTA CLINIC GROUP multiple provided as part of
the input template.
SCREEN: S DIC("S")="I $$CLCHK^PSJPADE(Y)"
EXPLANATION: Only Clinics belonging to the division are selectable from the Hospital Location file.
CROSS-REFERENCE: 58.7481^B
1)= S ^PS(58.7,DA(3),"DIV",DA(2),"PCG",DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PS(58.7,DA(3),"DIV",DA(2),"PCG",DA(1),1,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 58.7481^C^MUMPS
1)= S ^PS(58.7,DA(3),"DIV",DA(2),"PCG","C",$E(X,1,30),DA(1),DA)=""
2)= K ^PS(58.7,DA(3),"DIV",DA(2),"PCG","C",$E(X,1,30),DA(1),DA)