Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: NURQEDT0

NURQEDT0.m

Go to the documentation of this file.
  1. NURQEDT0 ;HIRMFO/MH,RM,YH-EDIT NURQ QI SUMMARY FILE, 217 ;1/22/97 15:30
  1. ;;4.0;NURSING SERVICE;;Apr 25, 1997
  1. EN1 ; Entry from Important Functions [NURQA-PT-KEYFUNC] option.
  1. Q:'$$SURGENVR^NURQUTL1(2,1)
  1. D EDTCOMM(1)
  1. I DA>0 D E1
  1. D Q
  1. Q
  1. E1 ; Edit Important Functions Data
  1. S DIE="^NURQ(217,"_DA(1)_",2,",DR="2" D ^DIE K DIE,DR
  1. I $D(Y) S NURQOUT=1
  1. Q
  1. EN2 ; Entry from Receiver of Results [NURQA-PT-ROFR] option.
  1. Q:'$$SURGENVR^NURQUTL1(2,1)
  1. D EDTCOMM(0)
  1. I DA>0 S DA(1)=DA D E2
  1. D Q
  1. Q
  1. E2 ; Edit Receiver of Results
  1. N X,NURQSDA S NURQSDA=DA(1)
  1. S X=$P($G(^NURQ(217,DA(1),8,+$P($G(^NURQ(217,DA(1),8,0)),U,3),0)),U)
  1. I X]"" S DIC("B")=X
  1. ROR ; Come back here to edit a new receiver of results.
  1. S DA(1)=NURQSDA,DLAYGO=217,DIC(0)="AEQL",DIC="^NURQ(217,"_DA(1)_",8,",DIC("P")="217.08" W ! D ^DIC K DIC
  1. I +Y'>0 S NURQOUT=$S($D(DTOUT)!$D(DUOUT):1,1:0) Q
  1. S DA=+Y,DIE="^NURQ(217,"_DA(1)_",8,",DR=".01;.02" D ^DIE
  1. I $D(Y) S NURQOUT=1 Q
  1. K DIE,DR G ROR
  1. Q
  1. EN3 ; Entry from Data [NURQA-PT-DATA] option.
  1. Q:'$$SURGENVR^NURQUTL1(2,1)
  1. D EDTCOMM(0)
  1. I DA>0 D E3
  1. D Q
  1. Q
  1. E3 ; Edit Data
  1. S DR="5;7.1;6;7.2;7.3",DIE="^NURQ(217," D ^DIE K DIE,DR
  1. I $D(Y) S NURQOUT=1
  1. Q
  1. EN4 ; Entry from Survey Generator [NURQA-PT-INDIC] option.
  1. Q:'$$SURGENVR^NURQUTL1(2,1)
  1. D EDTCOMM(1)
  1. I DA>0 S DA(2)=DA(1),DA(1)=DA D RELIND^NURQEDT1
  1. D Q
  1. Q
  1. EN5 ; Entry from Disciplines [NURQA-PT-RESP] option.
  1. Q:'$$SURGENVR^NURQUTL1(2,1)
  1. D EDTCOMM(0)
  1. I DA>0 D E5
  1. D Q
  1. Q
  1. E5 ; Edit Disciplines
  1. S DR="3;2",DIE="^NURQ(217," D ^DIE K DIE,DR
  1. I $D(Y) S NURQOUT=1
  1. Q
  1. EN7 ; Entry from References [NURQA-PT-REFR] option.
  1. Q:'$$SURGENVR^NURQUTL1(2,1)
  1. D EDTCOMM(0)
  1. I DA>0 D E7
  1. D Q
  1. Q
  1. E7 ; Edit References
  1. S DR="9",DIE="^NURQ(217," D ^DIE K DIE,DR
  1. I $D(Y) S NURQOUT=1
  1. Q
  1. EN8 ; Entry from Other QI Summary Data [NURQA-PT-OTHER] option.
  1. Q:'$$SURGENVR^NURQUTL1(2,1)
  1. D EDTCOMM(0)
  1. I DA>0 D E8
  1. D Q
  1. Q
  1. E8 ; Edit Other QI Summary Data
  1. S DR="11",DIE="^NURQ(217," D ^DIE K DIE,DR
  1. I $D(Y) S NURQOUT=1
  1. Q
  1. Q ; Clean up and exit
  1. K DA,NURQOUT,NURQSDA,NSW
  1. Q
  1. EDTCOMM(NURQIP) ; Select Survey and Location and edit common fields.
  1. ; Input Parameters: NURQIP = 0 if just query for survey
  1. ; 1 if query for survey and location
  1. ; Output variables: NURQOUT = 0 initialize this variable
  1. ; Var. NURQIP Value of variable
  1. ; ---- ------ -----------------
  1. ; DA 0 IEN of 217, or -1 if failed
  1. ; 1 IEN of 217.04, or -1 if failed
  1. ; DA(1) 0 Not returned.
  1. ; 1 IEN of 217, or undefined if failed
  1. ;
  1. K DA N NURQWRD,NURDICS,NURDFLT,NURSZLO,Y S NURQOUT=0
  1. S DIC("A")="Select SURVEY: ",DIC=217,DIC(0)="AELMQ",DLAYGO=217
  1. D ^DIC K DIC,DLAYGO
  1. I +Y'>0 S DA=-1 Q
  1. S DA=+Y,DIE="^NURQ(217,",DR="1///^S X=DUZ" D ^DIE K DIE,DR
  1. I $D(Y) S DA=-1 Q
  1. Q:'$G(NURQIP) S DA(1)=DA S DA=$$GETLOC(DA(1)) I DA<0 K DA(1)
  1. Q
  1. GETLOC(NURQSURV) ; This function will return a Location (217.04)
  1. ; multiple IEN.
  1. ; Input parameter: NURQSURV = NURQ QI Summary (217) file IEN.
  1. ;
  1. N DA S NUROUT=0,DA(1)=NURQSURV
  1. D GETDF I NUROUT K NUROUT Q -1
  1. S DIC("S")=NURDICS S:NURDFLT'="" DIC("B")=NURDFLT
  1. S DIC("A")="Select LOCATION: ",DIC(0)="AEMQ",DIC="^NURSF(211.4,"
  1. W ! D ^DIC K DIC,NUROUT I +Y'>0 Q -1
  1. S NURQWRD=$P(Y,U,2) I NURQWRD'>0 Q -1
  1. S DA=$O(^NURQ(217,DA(1),2,"B",NURQWRD,0)) I DA>0 Q DA
  1. S X=NURQWRD,DIC="^NURQ(217,"_DA(1)_",2,",DIC(0)="L",DLAYGO=217,DIC("P")="217.04P"
  1. K DD,DO D FILE^DICN K DIC,DLAYGO S DA=+Y I DA'>0 S DA=-1
  1. Q DA
  1. GETDF ; This procedure will get the default location (if any) and the
  1. ; screen for a lookup on Nurs Location.
  1. ; Input Variable: DUZ = user doing lookup
  1. ; Output Variables: NURDICS = M code for screen on lookup.
  1. ; NURDFLT = Default location (text) or null if
  1. ; no default exists.
  1. ; NURSZLO( = array of locations set from NURSAUTL.
  1. ; NUROUT = 1 if security not proper, else 0.
  1. ;
  1. N X
  1. D EN1^NURSAUTL I NUROUT G QDF ; needs DUZ
  1. S NURDICS="I $S('$D(^(""I"")):1,$P(^(""I""),U)=""A"":1,1:0)"_$S(NURSZAP>6:",$D(NURSZLO(Y))",1:""),NURDFLT=""
  1. I NURSZAP>6,$D(NURSZLO) D
  1. . S X=0 F S X=$O(NURSZLO(X)) Q:X'>0 S NURQ44=$P($G(^NURSF(211.4,X,0)),U),NURQ=$O(^NURQ(217,DA(1),2,"B",NURQ44,0)) I NURQ>0 S NURDFLT=NURQ44 Q
  1. . Q
  1. E S X=+$P($G(^NURQ(217,DA(1),2,0)),U,3),NURDFLT=+$G(^NURQ(217,DA(1),2,X,0))
  1. I NURDFLT]"" S X=$P($G(^SC(+NURDFLT,0)),U),NURDFLT=$S($P(X,U)["NUR ":$P($P(X,U),"NUR ",2),1:$P(X,U))
  1. QDF ; Quit GETDF procedure and clean up variables
  1. K NURSZFAC,NURSZDA,NURSZAP,NURSZSP,NURQ44 ; set by EN1^NURSAUTL
  1. Q