ABSPOSS7.m

ABSPOSS7 ; IHS/FCS/DRS - Summary of POS insurers ; 

 ;;1.0;PHARMACY POINT OF SALE;**16,21,49**;JUN 21, 2001;Build 38

 ;IHS/SD/RLT - 3/3/06 - Patch 16

 ;             Created new ABSP INSURERS 2 sort template

 ;             with NDC BIN Number sort level added.

 ;IHS/SD/RLT - 05/22/07 - Patch 21

 ;             Created new ABSP INSURERS 3 sort template

 ;             with INSURER NPI FLAG sort level added.

 ;IHS/HQ/RAM - 02 OCTOBER 2017 - Patch 49

 ;             Created new ABSP INSURERS2 print template

 ;             with PCN field added.

 Q

ABSPOSS1 ;EP - option ABSP SETUP SUMMARY

 ;D TEMPLATE^ABSPOSS2("ABSP INSURERS",9002313.4)

 ;D TEMPLATE^ABSPOSS2("ABSP INSURERS 2",9002313.4,"ABSP INSURERS") 

 ; D TEMPLATE^ABSPOSS2("ABSP INSURERS 3",9002313.4,"ABSP INSURERS") ; disable pre-P49 report

 ; /IHS/OIT/RAM ; 2 OCT 2017 ; P49 - CR#06326 / DUP 6562 ADD PCN COLUMN TO SUMI REPORT.

 D TEMPLATE^ABSPOSS2("ABSP INSURERS 3",9002313.4,"ABSP INSURERS2") ; P49 enable report with PCN added.

 Q

ABSPOSS7  ; IHS/FCS/DRS - Summary of POS insurers ; 

 +1       ;;1.0;PHARMACY POINT OF SALE;**16,21,49**;JUN 21, 2001;Build 38

 +2       ;IHS/SD/RLT - 3/3/06 - Patch 16

 +3       ;             Created new ABSP INSURERS 2 sort template

 +4       ;             with NDC BIN Number sort level added.

 +5       ;IHS/SD/RLT - 05/22/07 - Patch 21

 +6       ;             Created new ABSP INSURERS 3 sort template

 +7       ;             with INSURER NPI FLAG sort level added.

 +8       ;IHS/HQ/RAM - 02 OCTOBER 2017 - Patch 49

 +9       ;             Created new ABSP INSURERS2 print template

 +10      ;             with PCN field added.

 +11       QUIT 

ABSPOSS1  ;EP - option ABSP SETUP SUMMARY

 +1       ;D TEMPLATE^ABSPOSS2("ABSP INSURERS",9002313.4)

 +2       ;D TEMPLATE^ABSPOSS2("ABSP INSURERS 2",9002313.4,"ABSP INSURERS") 

 +3       ; D TEMPLATE^ABSPOSS2("ABSP INSURERS 3",9002313.4,"ABSP INSURERS") ; disable pre-P49 report

 +4       ; /IHS/OIT/RAM ; 2 OCT 2017 ; P49 - CR#06326 / DUP 6562 ADD PCN COLUMN TO SUMI REPORT.

 +5       ; P49 enable report with PCN added.

           DO TEMPLATE^ABSPOSS2("ABSP INSURERS 3",9002313.4,"ABSP INSURERS2")

 +6        QUIT