- PSJPRE44 ; B'ham ISC/CML3 - PRINT OUT INPATIENT SITE FILE ;3/23/92 18:42
- ;;3.2;;**28**
- ;
- W @IOF,!?30,"INPATIENT SITE PRINT"
- W !!?2,"This option will print all of the information contained in each of the entries",!,"in your Inpatient Site file, to assist you in your decisions in moving data",!,"from the Inpatient Site file to the Inpatient Ward Parameter file and "
- W !,"the Ward Group file.",!!?2,"Although this can be printed to your screen, it is highly recommended that",!,"you send this print to a printer so that you can have a hard copy readily",!,"available when using the data move options.",!
- ;
- K %ZIS,IO("Q"),IOP S %ZIS="Q",%ZIS("A")="Select PRINTER FOR INPATIENT SITE LIST: ",%ZIS("B")="" D ^%ZIS I POP D HOME^%ZIS G DONE
- I $D(IO("Q")) K ZTSAVE S ZTDTH=$H,PSGTIR="ENQ^PSJPRE44",ZTRTN="DQ^PSGTI",ZTSAVE("PSGTIR")="" D ENTSK^PSGTI W !?3,"...print ",$S($D(ZTSK):"",1:"NOT "),"sent..." G DONE
- ;
- ENQ ;
- D NOW^%DTC S CNT=0,PG=1,PDT=$E(%,4,5)_"/"_$E(%,6,7)_"/"_$E(%,2,3),CML=IO'=IO(0)!($E(IOST)'="C"),ND="" U IO W @IOF,!!,PDT,?28,"INPATIENT SITE FILE PRINT",?71,"Page: 1"
- F Q=0:0 S Q=$O(^PS(59.4,Q)) Q:'Q I $S($D(^(Q,0)):1,1:$D(^(5))) D PRT Q:ND="^"
- S X="*** INPATIENT SITE PRINT "_$S(ND="^":"ABORTED",1:"COMPLETED") S:'CNT X=X_" - NO ENTRIES FOUND" S X=X_" ***" W !!?80-$L(X)/2,X W:CML @IOF D ^%ZISC
- ;
- DONE ;
- D ENKV^PSGSETU K CML,CNT,ND,PDT,PG,PL,PSGTIR Q
- ;
- PRT ;
- S CNT=CNT+1,ND=$G(^PS(59.4,Q,0)),PL=$G(^(5))
- D:$Y+5>IOSL&CML NP W !!,"-------------------------------------------------------------------------------",!,"Site: ",$S($P(ND,"^")]"":$P(ND,"^"),1:Q)
- D:$Y+3>IOSL&CML NP W !?4,"Days until stop date/time: ",$P(ND,"^",3),?47,"Order entry process: ",$S($P(ND,"^",21)="1":"WARD",$P(ND,"^",21)="1":"ABBREVIATED",1:"REGULAR")
- D:$Y+3>IOSL&CML NP W !?1,"Same stop date on all orders: ",$S($P(ND,"^",4):"YES",1:"NO"),?41,"'SELF MED' in order entry: ",$S($P(ND,"^",24):"YES",1:"NO")
- D:$Y+3>IOSL&CML NP W !?1,"Time of day that orders stop: ",$P(ND,"^",7),?49,"Auto nurse verify: ",$S($P(ND,"^",15):"YES",1:"NO")
- D:$Y+3>IOSL&CML NP W !?3,"Start time for 24 hour MAR: ",$P(ND,"^",8),?44,"Auto pharmacist verify: ",$S($P(ND,"^",17):"YES",1:"NO")
- D:$Y+3>IOSL&CML NP W !?9,"Days new labels last: ",$P(ND,"^",11),?44,"Pre-exchange envelopes: ",$S($P(ND,"^",27):"YES",1:"NO")
- D:$Y+3>IOSL&CML NP W !?1,"Print profile in order entry: ",$S($P(ND,"^",30):"YES",1:"NO")
- D:$Y+3>IOSL&CML NP W !,"PICK LIST:",!?6,"Room/bed sort: ",$S($P(PL,"^"):"BED-ROOM",1:"ROOM-BED"),?55,"Form feed/patient: ",$S($P(PL,"^",4):"YES",1:"NO")
- D:$Y+3>IOSL&CML NP W !?5,"Omit ward sort: ",$S($P(PL,"^",2):"YES - DO NOT SORT BY WARD",1:"NO - SORT BY WARD"),?58,"Form feed/ward: ",$S($P(PL,"^",5):"YES",1:"NO")
- D:$Y+3>IOSL&CML NP W !?1,"Omit room-bed sort: ",$S($P(PL,"^",3):"YES - DO NOT SORT BY ROOM-BED",1:"NO - SORT BY ROOM-BED"),?54,"Lines on form feed: ",$S($P(PL,"^",6):"YES",1:"NO")
- S ND="" I 'CML K DIR S DIR(0)="E" W ! D ^DIR S:X="^"!$D(DIRUT) ND="^"
- Q
- ;
- NP ;
- S PG=PG+1 W @IOF,!,PDT,?30,"INPATIENT SITE FILE PRINT",?72-$L(PG),"Page: ",PG,! Q
- PSJPRE44 ; B'ham ISC/CML3 - PRINT OUT INPATIENT SITE FILE ;3/23/92 18:42
- +1 ;;3.2;;**28**
- +2 ;
- +3 WRITE @IOF,!?30,"INPATIENT SITE PRINT"
- +4 WRITE !!?2,"This option will print all of the information contained in each of the entries",!,"in your Inpatient Site file, to assist you in your decisions in moving data",!,"from the Inpatient Site file to the Inpatient Ward Parameter file and
- "
- +5 WRITE !,"the Ward Group file.",!!?2,"Although this can be printed to your screen, it is highly recommended that",!,"you send this print to a printer so that you can have a hard copy readily",!,"available when using the data move options.",!
- +6 ;
- +7 KILL %ZIS,IO("Q"),IOP
- SET %ZIS="Q"
- SET %ZIS("A")="Select PRINTER FOR INPATIENT SITE LIST: "
- SET %ZIS("B")=""
- DO ^%ZIS
- IF POP
- DO HOME^%ZIS
- GOTO DONE
- +8 IF $DATA(IO("Q"))
- KILL ZTSAVE
- SET ZTDTH=$HOROLOG
- SET PSGTIR="ENQ^PSJPRE44"
- SET ZTRTN="DQ^PSGTI"
- SET ZTSAVE("PSGTIR")=""
- DO ENTSK^PSGTI
- WRITE !?3,"...print ",$SELECT($DATA(ZTSK):"",1:"NOT "),"sent..."
- GOTO DONE
- +9 ;
- ENQ ;
- +1 DO NOW^%DTC
- SET CNT=0
- SET PG=1
- SET PDT=$EXTRACT(%,4,5)_"/"_$EXTRACT(%,6,7)_"/"_$EXTRACT(%,2,3)
- SET CML=IO'=IO(0)!($EXTRACT(IOST)'="C")
- SET ND=""
- USE IO
- WRITE @IOF,!!,PDT,?28,"INPATIENT SITE FILE PRINT",?71,"Page: 1"
- +2 FOR Q=0:0
- SET Q=$ORDER(^PS(59.4,Q))
- IF 'Q
- QUIT
- IF $SELECT($DATA(^(Q,0)):1,1:$DATA(^(5)))
- DO PRT
- IF ND="^"
- QUIT
- +3 SET X="*** INPATIENT SITE PRINT "_$SELECT(ND="^":"ABORTED",1:"COMPLETED")
- IF 'CNT
- SET X=X_" - NO ENTRIES FOUND"
- SET X=X_" ***"
- WRITE !!?80-$LENGTH(X)/2,X
- IF CML
- WRITE @IOF
- DO ^%ZISC
- +4 ;
- DONE ;
- +1 DO ENKV^PSGSETU
- KILL CML,CNT,ND,PDT,PG,PL,PSGTIR
- QUIT
- +2 ;
- PRT ;
- +1 SET CNT=CNT+1
- SET ND=$GET(^PS(59.4,Q,0))
- SET PL=$GET(^(5))
- +2 IF $Y+5>IOSL&CML
- DO NP
- WRITE !!,"-------------------------------------------------------------------------------",!,"Site: ",$SELECT($PIECE(ND,"^")]"":$PIECE(ND,"^"),1:Q)
- +3 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?4,"Days until stop date/time: ",$PIECE(ND,"^",3),?47,"Order entry process: ",$SELECT($PIECE(ND,"^",21)="1":"WARD",$PIECE(ND,"^",21)="1":"ABBREVIATED",1:"REGULAR")
- +4 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?1,"Same stop date on all orders: ",$SELECT($PIECE(ND,"^",4):"YES",1:"NO"),?41,"'SELF MED' in order entry: ",$SELECT($PIECE(ND,"^",24):"YES",1:"NO")
- +5 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?1,"Time of day that orders stop: ",$PIECE(ND,"^",7),?49,"Auto nurse verify: ",$SELECT($PIECE(ND,"^",15):"YES",1:"NO")
- +6 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?3,"Start time for 24 hour MAR: ",$PIECE(ND,"^",8),?44,"Auto pharmacist verify: ",$SELECT($PIECE(ND,"^",17):"YES",1:"NO")
- +7 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?9,"Days new labels last: ",$PIECE(ND,"^",11),?44,"Pre-exchange envelopes: ",$SELECT($PIECE(ND,"^",27):"YES",1:"NO")
- +8 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?1,"Print profile in order entry: ",$SELECT($PIECE(ND,"^",30):"YES",1:"NO")
- +9 IF $Y+3>IOSL&CML
- DO NP
- WRITE !,"PICK LIST:",!?6,"Room/bed sort: ",$SELECT($PIECE(PL,"^"):"BED-ROOM",1:"ROOM-BED"),?55,"Form feed/patient: ",$SELECT($PIECE(PL,"^",4):"YES",1:"NO")
- +10 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?5,"Omit ward sort: ",$SELECT($PIECE(PL,"^",2):"YES - DO NOT SORT BY WARD",1:"NO - SORT BY WARD"),?58,"Form feed/ward: ",$SELECT($PIECE(PL,"^",5):"YES",1:"NO")
- +11 IF $Y+3>IOSL&CML
- DO NP
- WRITE !?1,"Omit room-bed sort: ",$SELECT($PIECE(PL,"^",3):"YES - DO NOT SORT BY ROOM-BED",1:"NO - SORT BY ROOM-BED"),?54,"Lines on form feed: ",$SELECT($PIECE(PL,"^",6):"YES",1:"NO")
- +12 SET ND=""
- IF 'CML
- KILL DIR
- SET DIR(0)="E"
- WRITE !
- DO ^DIR
- IF X="^"!$DATA(DIRUT)
- SET ND="^"
- +13 QUIT
- +14 ;
- NP ;
- +1 SET PG=PG+1
- WRITE @IOF,!,PDT,?30,"INPATIENT SITE FILE PRINT",?72-$LENGTH(PG),"Page: ",PG,!
- QUIT
