DVBCTRNN ;ALB ISC/THM-NOTIFY DOC OF REQUIRED TRANSFER DICTATION ; 5/23/91 11:04 AM
;;2.7;AMIE;;Apr 10, 1995
;
EXIT D GO1 K DVBCCOPY,DVBCX Q
;
GO1 W:(IOST?1"C-".E) @IOF K ^UTILITY($J,"W") D X3^DVBCLTR W !!!!!!!
F ZZI=0:1 S LY=$T(TXT+ZZI) Q:LY["END" S X=$P(LY,";;",2),DIWF="R",DIWR=75,DIWL=5 D ^DIWP
D ^DIWW
K LY,TXT W @IOF Q
;
TXT ;;Notice to the physician: |BLANK(1)|
;;The attached examination(s) have been transferred to this medical center
;;from another center. It will be required, therefore, that all laboratory
;;and X-Ray results be dictated for transcription and return to the
;;originating medical center.
;;
;;END
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBCTRNN 658 printed Nov 22, 2024@16:59:13 Page 2
DVBCTRNN ;ALB ISC/THM-NOTIFY DOC OF REQUIRED TRANSFER DICTATION ; 5/23/91 11:04 AM
+1 ;;2.7;AMIE;;Apr 10, 1995
+2 ;
EXIT DO GO1
KILL DVBCCOPY,DVBCX
QUIT
+1 ;
GO1 if (IOST?1"C-".E)
WRITE @IOF
KILL ^UTILITY($JOB,"W")
DO X3^DVBCLTR
WRITE !!!!!!!
+1 FOR ZZI=0:1
SET LY=$TEXT(TXT+ZZI)
if LY["END"
QUIT
SET X=$PIECE(LY,";;",2)
SET DIWF="R"
SET DIWR=75
SET DIWL=5
DO ^DIWP
+2 DO ^DIWW
+3 KILL LY,TXT
WRITE @IOF
QUIT
+4 ;
TXT ;;Notice to the physician: |BLANK(1)|
+1 ;;The attached examination(s) have been transferred to this medical center
+2 ;;from another center. It will be required, therefore, that all laboratory
+3 ;;and X-Ray results be dictated for transcription and return to the
+4 ;;originating medical center.
+5 ;;
+6 ;;END
