ONCPST45.m

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 ---ONCPST45   418     printed  Apr 09, 2024@21:26:29                                                                                                                                                                                                     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