NURQUTL1.m

NURQUTL1 ;HIRMFO/RM-QI SUMMARY UTILITIES ;1/22/97  15:26

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

NLDEM() ; This function returns the IEN of the Demographic Reference (748.2)

 ; file for the NURS Location (file) entry, or "" if it is not in

 ; the file.

 ;   Function Value = IEN in 748.2 file, or "".

 ;

 N FXN K ^TMP("DILIST",$J)

 D FIND^DIC(748.2,"","","X","NURS LOCATION",1,"B")

 S FXN=$G(^TMP("DILIST",$J,2,1)) K ^TMP("DILIST",$J)

 Q FXN

SURLOC(NURQSURV) ; This function will determine if this survey tracks

 ; response data by NURS Location.

 ;   Input Parameter:  NURQSURV=ptr to 748 (survey) file

 ;   Function Value = IEN in demographic multiple for NURS Location

 ;                       demographic, if responses tracked by NURS Loc.

 ;                    0 Responses not tracked by NURS Location

 ;

 N NURQDEM,NURQFXN,NURQX

 S NURQDEM=$$NLDEM,NURQFXN=0

 K ^TMP($J,"NURQDEM")

 D GETS^DIQ(748,NURQSURV_",","3*","","^TMP($J,""NURQDEM"")")

 S NURQX="" F  S NURQX=$O(^TMP($J,"NURQDEM",748.03,NURQX)) Q:NURQX=""  I $P($G(^TMP($J,"NURQDEM",748.03,NURQX,2)),U)="NURS LOCATION" S NURQFXN=1

 K ^TMP($J,"NURQDEM")

 Q NURQFXN

RESLOC(NURQRESP,NURQDEM) ; This function returns the NURS Location

 ; demographic for a particular set of Response Data.

 ;   Input Parameter: NURQRESP=Ptr to 748.3 (Response Data) file

 ;                    NURQDEM=Ien in Demographic Data Item sub-file

 ;                            of Survey (748) file for the NURS Location

 ;                            demographic.

 ;   Function Value = Ptr to Hospital Location (44) or 0 if this

 ;                    entry was not filled in.

 ;

 N NURQFXN K ^TMP("DILIST",$J)

 D FIND^DIC(748.36,","_NURQRESP_",",1,"X",NURQDEM,1)

 S NURQFXN=$G(^TMP("DILIST",$J,"ID",1,1)) K ^TMP("DILIST",$J)

 Q NURQFXN

 ;

SURGENVR(VRCHK,OPT) ; THIS EXTRINSIC FUNCTION WILL DETERMINE IF THE VERSION

 ; OF THE SURVEY GENERATOR DETERMINED BY VRCHK IS INSTALLED.  IF THE

 ; IT IS NOT INSTALLED, THE FUNCTION RETURNS FALSE (0) AND PRINTS

 ; AN ERROR MESSAGE.  IF IT IS, IT RETURNS TRUE (1).  OPT IS AN OPTIONAL

 ; INPUT THAT WILL HAVE THE ERROR MESSAGE CALL ^DIR TO STOP SCREEN FROM

 ; SCROLLING MESSAGE OFF.

 N FXN,VER S FXN=1,VER=+$$VERSION^XPDUTL("SURVEY GENERATOR")

 I VRCHK=1,VER'=1 S FXN=0

 I VRCHK=2,VER<2 S FXN=0

 I 'FXN W !!,"SURVEY GENERATOR V. "_VRCHK_".0 "_$S(VRCHK=2:"OR GREATER ",1:"")_"IS REQUIRED - CANNOT CONTINUE:" I $G(OPT) S DIR(0)="E" D ^DIR K DIR

 Q FXN

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURQUTL1   2466     printed  Apr 09, 2024@21:21:09                                                                                                                                                                                                    Page 2

NURQUTL1  ;HIRMFO/RM-QI SUMMARY UTILITIES ;1/22/97  15:26

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

NLDEM()   ; This function returns the IEN of the Demographic Reference (748.2)

 +1       ; file for the NURS Location (file) entry, or "" if it is not in

 +2       ; the file.

 +3       ;   Function Value = IEN in 748.2 file, or "".

 +4       ;

 +5        NEW FXN

           KILL ^TMP("DILIST",$JOB)

 +6        DO FIND^DIC(748.2,"","","X","NURS LOCATION",1,"B")

 +7        SET FXN=$GET(^TMP("DILIST",$JOB,2,1))

           KILL ^TMP("DILIST",$JOB)

 +8        QUIT FXN

SURLOC(NURQSURV) ; This function will determine if this survey tracks

 +1       ; response data by NURS Location.

 +2       ;   Input Parameter:  NURQSURV=ptr to 748 (survey) file

 +3       ;   Function Value = IEN in demographic multiple for NURS Location

 +4       ;                       demographic, if responses tracked by NURS Loc.

 +5       ;                    0 Responses not tracked by NURS Location

 +6       ;

 +7        NEW NURQDEM,NURQFXN,NURQX

 +8        SET NURQDEM=$$NLDEM

           SET NURQFXN=0

 +9        KILL ^TMP($JOB,"NURQDEM")

 +10       DO GETS^DIQ(748,NURQSURV_",","3*","","^TMP($J,""NURQDEM"")")

 +11       SET NURQX=""

           FOR 

               SET NURQX=$ORDER(^TMP($JOB,"NURQDEM",748.03,NURQX))

               if NURQX=""

                   QUIT 

               IF $PIECE($GET(^TMP($JOB,"NURQDEM",748.03,NURQX,2)),U)="NURS LOCATION"

                   SET NURQFXN=1

 +12       KILL ^TMP($JOB,"NURQDEM")

 +13       QUIT NURQFXN

RESLOC(NURQRESP,NURQDEM) ; This function returns the NURS Location

 +1       ; demographic for a particular set of Response Data.

 +2       ;   Input Parameter: NURQRESP=Ptr to 748.3 (Response Data) file

 +3       ;                    NURQDEM=Ien in Demographic Data Item sub-file

 +4       ;                            of Survey (748) file for the NURS Location

 +5       ;                            demographic.

 +6       ;   Function Value = Ptr to Hospital Location (44) or 0 if this

 +7       ;                    entry was not filled in.

 +8       ;

 +9        NEW NURQFXN

           KILL ^TMP("DILIST",$JOB)

 +10       DO FIND^DIC(748.36,","_NURQRESP_",",1,"X",NURQDEM,1)

 +11       SET NURQFXN=$GET(^TMP("DILIST",$JOB,"ID",1,1))

           KILL ^TMP("DILIST",$JOB)

 +12       QUIT NURQFXN

 +13      ;

SURGENVR(VRCHK,OPT) ; THIS EXTRINSIC FUNCTION WILL DETERMINE IF THE VERSION

 +1       ; OF THE SURVEY GENERATOR DETERMINED BY VRCHK IS INSTALLED.  IF THE

 +2       ; IT IS NOT INSTALLED, THE FUNCTION RETURNS FALSE (0) AND PRINTS

 +3       ; AN ERROR MESSAGE.  IF IT IS, IT RETURNS TRUE (1).  OPT IS AN OPTIONAL

 +4       ; INPUT THAT WILL HAVE THE ERROR MESSAGE CALL ^DIR TO STOP SCREEN FROM

 +5       ; SCROLLING MESSAGE OFF.

 +6        NEW FXN,VER

           SET FXN=1

           SET VER=+$$VERSION^XPDUTL("SURVEY GENERATOR")

 +7        IF VRCHK=1

               IF VER'=1

                   SET FXN=0

 +8        IF VRCHK=2

               IF VER<2

                   SET FXN=0

 +9        IF 'FXN

               WRITE !!,"SURVEY GENERATOR V. "_VRCHK_".0 "_$SELECT(VRCHK=2:"OR GREATER ",1:"")_"IS REQUIRED - CANNOT CONTINUE:"

               IF $GET(OPT)

                   SET DIR(0)="E"

                   DO ^DIR

                   KILL DIR

 +10       QUIT FXN