- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCEP0A.m
r628 r636 1 1 IBCEP0A ;ALB/TMP - EDI UTILITIES for insurance assigned provider ID ;01-NOV-00 2 ;;2.0;INTEGRATED BILLING;**137,232,320,377**;21-MAR-94;Build 23 3 ;;Per VHA Directive 2004-038, this routine should not be modified. 2 ;;2.0;INTEGRATED BILLING;**137,232,320**;21-MAR-94 4 3 ; 5 4 NEW(IBINS,IBPRV,IBPTYP,IBDEF) ; Add new insurance co assigned id … … 26 25 I '$G(IBPTYP) D G:IBQ NEWQ 27 26 . S DIR(0)="PAr^355.97:AEMQ",DIR("A")="Select Provider ID Qualifier: " 28 . S DIR("?")="Enter a Qualifier to i dentify the type of ID number you are entering."27 . S DIR("?")="Enter a Qualifier to indentify the type of ID number you are entering." 29 28 . S DIR("S")="I $$RAINS^IBCEPU(Y)" ; Rendering/Attending IDs provided by ins 30 29 . S DA=0 … … 101 100 Q 102 101 ; 103 PRVTJMP(VALMBG) ; Navigate to a specific type of ID qualifier(from ins co option)102 PRVTJMP(VALMBG) ; Navigate to a specific provider id type (from ins co option) 104 103 ; 105 104 N DIR,X,Y 106 105 D FULL^VALM1 107 S DIR(0)="PAO^355.97:AEMQ",DIR("A")="Select type of ID Qualifier: " 108 S DIR("?")="Select a type of ID Qualifier to display the IDs of that type." 106 S DIR(0)="PAO^355.97:AEMQ",DIR("A")="SELECT PROVIDER ID TYPE: ",DIR("?",1)="SELECTING A PROVIDER ID TYPE WILL FORCE THE DISPLAY TO SKIP TO THE DATA FOR ",DIR("?")=" THAT PROVIDER ID TYPE" 109 107 S DIR("S")="I $D(^TMP(""IBPRV_INS_ID"",$J,""ZXPTYP"",+Y))" 110 108 W ! D ^DIR K DIR W ! … … 113 111 . S Z=$G(^TMP("IBPRV_INS_ID",$J,"ZXPTYP",+Y)) 114 112 . I Z S VALMBG=Z Q 115 . S DIR(0)="EA",DIR("A",1)="T his type of ID Qualifier does not exist in the current display",DIR("A")="Press the Enter key to continue"113 . S DIR(0)="EA",DIR("A",1)="THIS PROVIDER ID TYPE DOES NOT EXIST IN THE CURRENT DISPLAY",DIR("A")="PRESS THE ENTER KEY TO CONTINUE" 116 114 . W ! D ^DIR K DIR W ! 117 115 Q
Note:
See TracChangeset
for help on using the changeset viewer.