- 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 ---[H[J[2J[HNURSAMSG 1624 printed Feb 18, 2025@23:47:58 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