ONCPST45 ;Hines OIFO/GWB - Post-init for Patch ONC*2.11*45
;;2.11;ONCOLOGY;**45**; Mar 07, 1995
;
;Convert PRIMARY PAYER AT DX (165.5,18)
;from: 36 Medicaid with Medicare supplement
; to: 64 Medicare with Medicaid eligibility
S CTR=0 F IEN=0:0 S IEN=$O(^ONCO(165.5,IEN)) Q:IEN'>0 D
.S CTR=CTR+1 I CTR#100=0 W "."
.S PPAD=$P($G(^ONCO(165.5,IEN,1)),U,11)
.I PPAD=22 S $P(^ONCO(165.5,IEN,1),U,11)=25
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HONCPST45 418 printed Nov 22, 2024@17:37:33 Page 2
ONCPST45 ;Hines OIFO/GWB - Post-init for Patch ONC*2.11*45
+1 ;;2.11;ONCOLOGY;**45**; Mar 07, 1995
+2 ;
+3 ;Convert PRIMARY PAYER AT DX (165.5,18)
+4 ;from: 36 Medicaid with Medicare supplement
+5 ; to: 64 Medicare with Medicaid eligibility
+6 SET CTR=0
FOR IEN=0:0
SET IEN=$ORDER(^ONCO(165.5,IEN))
if IEN'>0
QUIT
Begin DoDot:1
+7 SET CTR=CTR+1
IF CTR#100=0
WRITE "."
+8 SET PPAD=$PIECE($GET(^ONCO(165.5,IEN,1)),U,11)
+9 IF PPAD=22
SET $PIECE(^ONCO(165.5,IEN,1),U,11)=25
End DoDot:1
