- 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/IBXSC36.m
r628 r636 1 IBXSC36 ; ; 02/03/081 IBXSC36 ; ;12/27/07 2 2 D DE G BEGIN 3 3 DE S DIE="^DGCR(399,",DIC=DIE,DP=399,DL=1,DIEL=0,DU="" K DG,DE,DB Q:$O(^DGCR(399,DA,""))="" … … 50 50 KEYCHK() Q:$G(DE(DW,"KEY"))="" 1 Q @DE(DW,"KEY") 51 51 BEGIN S DNM="IBXSC36",DQ=1 52 1 S DW="M1;2",DV="F X",DU="",DLB="PRIMARY PROVIDER #",DIFLD=12252 1 S DW="M1;2",DV="F",DU="",DLB="PRIMARY PROVIDER #",DIFLD=122 53 53 S DE(DW)="C1^IBXSC36" 54 54 S Y="@" … … 62 62 ; 63 63 C1F1 Q 64 X1 K:$L(X)>13!($L(X)<3) !($TR(X," ")="")X64 X1 K:$L(X)>13!($L(X)<3) X 65 65 I $D(X),X'?.ANP K X 66 66 Q … … 82 82 Q 83 83 6 D:$D(DG)>9 F^DIE17,DE S Y=U,DQ=6 G A 84 7 S DW="M1;2",DV="F X",DU="",DLB="PRIMARY PROVIDER #",DIFLD=12284 7 S DW="M1;2",DV="F",DU="",DLB="PRIMARY PROVIDER #",DIFLD=122 85 85 S DE(DW)="C7^IBXSC36" 86 86 S X="IBPSID" Q:X Q:$NA(@X)[U S X=$G(@X) … … 94 94 ; 95 95 C7F1 Q 96 X7 K:$L(X)>13!($L(X)<3) !($TR(X," ")="")X96 X7 K:$L(X)>13!($L(X)<3) X 97 97 I $D(X),X'?.ANP K X 98 98 Q … … 132 132 X18 I '$$SUPPPT^IBCEP7B(DA,2) S Y="@3222" 133 133 Q 134 19 S DW="M1;3",DV="F X",DU="",DLB="SECONDARY PROVIDER #",DIFLD=123134 19 S DW="M1;3",DV="F",DU="",DLB="SECONDARY PROVIDER #",DIFLD=123 135 135 S DE(DW)="C19^IBXSC36" 136 136 S Y="@" … … 144 144 ; 145 145 C19F1 Q 146 X19 K:$L(X)>13!($L(X)<3) !($TR(X," ")="")X146 X19 K:$L(X)>13!($L(X)<3) X 147 147 I $D(X),X'?.ANP K X 148 148 Q
Note:
See TracChangeset
for help on using the changeset viewer.