- 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 Mar 13, 2025@20:53:44 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
