NURSAMSG.m

NURSAMSG ;HIRMFO/RM,FPT-QUEUED MESSAGES TO THE CENT. NURS. OFFICE ;6/18/96  16:27

 ;;4.0;NURSING SERVICE;**46**;Apr 25, 1997;Build 1

EN1 ; CALLED BY THE NURSAWCK AND NURSCPL ROUTINES IF A PATIENT IS NOT 

 ; ADMITTED INTO THE NURSING SERVICE, BUT IS ADMITTED IN MAS

 G BADPARAM:'$D(^DIC(213.9,1,0)),BADPARAM:$P(^DIC(213.9,1,0),"^",2)=""

 S NURSX=X,IOP=$P(^DIC(213.9,1,0),"^",2),IOP="`"_IOP

 S %ZIS="NQ" D ^%ZIS K IOP S ZTRTN="NOADM^NURSAMSG",ZTIO=ION,ZTDTH=$H,ZTNOP=1,ZTDESC="Patient not entered into Nursing database" F G="DA","IOF","NURSX" S ZTSAVE(G)=""

 D ^%ZTLOAD,CLOSE^NURSUT1 ;,^NURSKILL

 K %ZIS,NUROUT,POP,ZTDTH,ZTIO,ZTNOP,ZTRTN,ZTSK

 Q

NOADM ; THIS MESSAGE SENT TO CNO IF PATIENT NOT ADMITTED AND VALID 

 ; SITE PARAMETERS EXIST

 S DFN=DA D DEM^VADPT W @IOF,!!,VADM(1)," has not been admitted into the NURSING SYSTEM by MAS, because ",!,NURSX," (MAS ward) does not have a corresponding NURSING",!,"Unit."

 W !!,"To admit the patient: ",!,"     1.  Validate ",NURSX," the MAS Ward by giving it a",!,"         NURSING Unit by running option Nursing Location File, Edit",!,"         (NURSFL-LOC), by choosing the appropriate NURSING Unit,"

 W !,"         and adding the appropriate MAS Location.",!!,"     2.  Then run the option NURS PATIENT File Update (Admit patient)",!,"         (NURSPT-ACT) to admit the patient into the NURSING SERVICE.",@IOF

 Q

BADPARAM ; ERROR IF NURSING SITE PARAMETERS HAVE NOT BEEN ADDED

 W !!,*7,*7,"Notify NURSING ADP Coordinator and Site Manager that this patient was not",!,"admitted into the NURSING Service because NURSING Site parameters were not",!,"updated."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURSAMSG   1624     printed  Apr 09, 2024@21:25:22                                                                                                                                                                                                    Page 2

NURSAMSG  ;HIRMFO/RM,FPT-QUEUED MESSAGES TO THE CENT. NURS. OFFICE ;6/18/96  16:27

 +1       ;;4.0;NURSING SERVICE;**46**;Apr 25, 1997;Build 1

EN1       ; CALLED BY THE NURSAWCK AND NURSCPL ROUTINES IF A PATIENT IS NOT 

 +1       ; ADMITTED INTO THE NURSING SERVICE, BUT IS ADMITTED IN MAS

 +2        if '$DATA(^DIC(213.9,1,0))

               GOTO BADPARAM

           if $PIECE(^DIC(213.9,1,0),"^",2)=""

               GOTO BADPARAM

 +3        SET NURSX=X

           SET IOP=$PIECE(^DIC(213.9,1,0),"^",2)

           SET IOP="`"_IOP

 +4        SET %ZIS="NQ"

           DO ^%ZIS

           KILL IOP

           SET ZTRTN="NOADM^NURSAMSG"

           SET ZTIO=ION

           SET ZTDTH=$HOROLOG

           SET ZTNOP=1

           SET ZTDESC="Patient not entered into Nursing database"

           FOR G="DA","IOF","NURSX"

               SET ZTSAVE(G)=""

 +5       ;,^NURSKILL

           DO ^%ZTLOAD

           DO CLOSE^NURSUT1

 +6        KILL %ZIS,NUROUT,POP,ZTDTH,ZTIO,ZTNOP,ZTRTN,ZTSK

 +7        QUIT 

NOADM     ; THIS MESSAGE SENT TO CNO IF PATIENT NOT ADMITTED AND VALID 

 +1       ; SITE PARAMETERS EXIST

 +2        SET DFN=DA

           DO DEM^VADPT

           WRITE @IOF,!!,VADM(1)," has not been admitted into the NURSING SYSTEM by MAS, because ",!,NURSX," (MAS ward) does not have a corresponding NURSING",!,"Unit."

 +3        WRITE !!,"To admit the patient: ",!,"     1.  Validate ",NURSX," the MAS Ward by giving it a",!,"         NURSING Unit by running option Nursing Location File, Edit",!,"         (NURSFL-LOC), by choosing the appropriate NURSING Unit,"

 +4        WRITE !,"         and adding the appropriate MAS Location.",!!,"     2.  Then run the option NURS PATIENT File Update (Admit patient)",!,"         (NURSPT-ACT) to admit the patient into the NURSING SERVICE.",@IOF

 +5        QUIT 

BADPARAM  ; ERROR IF NURSING SITE PARAMETERS HAVE NOT BEEN ADDED

 +1        WRITE !!,*7,*7,"Notify NURSING ADP Coordinator and Site Manager that this patient was not",!,"admitted into the NURSING Service because NURSING Site parameters were not",!,"updated."

 +2        QUIT