Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: DGMTAUD

DGMTAUD.m

Go to the documentation of this file.
  1. DGMTAUD ;ALB/TT,RMO,CAW,LD,BRM - AUDIT CHANGES TO MEANS TEST ; 1/2/02 11:39am
  1. ;;5.3;Registration;**33,45,182,433**;Aug 13, 1993
  1. ;
  1. EN ;INPUT: DFN - Patient IEN
  1. ; DGMTACT - Type of Action from Means Test
  1. ; DGMTI - Means Test IEN
  1. ; DGMTINF - Means Test Interactive/Non-interactive flag
  1. ; DGMTP - Prior zero node
  1. ; DGMTA - After zero node
  1. ; DGMTYPT - Type of Test 1=MT, 2=COPAY, 4=LTC
  1. ; DGDEP - (Optional) Dependent Info
  1. ; DGDEPI - (Optional) Dependent IEN
  1. ;OUTPUT: None
  1. I DGMTP=DGMTA Q
  1. SETD ; Update audit file
  1. ;
  1. ;DGMTFLG - Flag for status or deductible agreement change
  1. ; 0=no change,1=status change,2=agree to pay deductible change
  1. ;
  1. ;DGMTFLG1 - source flag 0=no change, 1=source change
  1. ;DGMTFLG2 - Dependent Flag 0=no change, 1=dependent info change
  1. ;DGMTATYP - Means Test Change Type
  1. ; 1-Add
  1. ; 2-Category change
  1. ; 3-Agree to pay deductible
  1. ; 4-Adjudicate
  1. ; 5-Edit
  1. ; 7-Status change
  1. ; 13-Source of test change
  1. ; 14-Delete primary means test that was previously uploaded
  1. ; 15-Deleted Dependent
  1. ;(IVM) 16-Name Change
  1. ;(IVM) 17-Date of Birth Change
  1. ;(IVM) 18-SSN Change
  1. ;(IVM) 19-Sex Change
  1. ;(IVM) 20-Relationship Change
  1. ;
  1. ;DGMTACT - type of change
  1. ; 'DEL' (delete): changes related to that means test
  1. ; are deleted from file 408.41.
  1. ; 'COM' (Complete) a means test then type is edited
  1. ; 'UPL' (Upload), this is a means test uploaded from an
  1. ; external source such as IVM and is a Source of
  1. ; Test change.
  1. ; 'EDT' is Edit,
  1. ; 'ADD' is Add,
  1. ; 'ADJ' is Adjudicate,
  1. ; 'CAT' is Category change,
  1. ; 'STA' is Status change,
  1. ; 'DUP' is delete a primary means test,
  1. ; 'DDP' is deleted dependent
  1. ; 'NAM' is name change (dependent only)
  1. ; 'DOB' is Date of Birth change (dependent only)
  1. ; 'SSN' is Social Security Number change (dependent only)
  1. ; 'SEX' is Sex change (dependent only)
  1. ; 'REL' is Relationship change (dependent only)
  1. ;
  1. SET S DGMTATYP="" I '$D(DGMTYPT) S DGMTYPT=$P(DGMTA,U,19)
  1. I DGMTACT="DEL" G DEL
  1. I DGMTACT="STA" S DGMTATYP=$P("7^10^^10","^",DGMTYPT)
  1. I DGMTACT="EDT"!(DGMTACT="COM") S DGMTATYP=$P("5^9^^9","^",DGMTYPT)
  1. I DGMTACT="ADD" S DGMTATYP=$P("1^8^^8","^",DGMTYPT)
  1. I DGMTACT="CAT" S DGMTATYP=$P("2^11^^11","^",DGMTYPT)
  1. I DGMTACT="ADJ" S DGMTATYP=$P("4^12^^12","^",DGMTYPT)
  1. I DGMTACT="UPL" S DGMTATYP=$P("13^^^","^",DGMTYPT)
  1. I DGMTACT="DUP" S DGMTATYP=$P("14^^^","^",DGMTYPT)
  1. I DGMTACT="DDP" S DGMTATYP=15
  1. I DGMTACT="NAM" S DGMTATYP=16
  1. I DGMTACT="DOB" S DGMTATYP=17
  1. I DGMTACT="SSN" S DGMTATYP=18
  1. I DGMTACT="SEX" S DGMTATYP=19
  1. I DGMTACT="REL" S DGMTATYP=20
  1. S (DGMTFLG,DGMTFLG1,DGMTFLG2)=0
  1. I ($$SR^DGMTAUD1(DGMTP)'=$$SR^DGMTAUD1(DGMTA)) S DGMTFLG1=1,DGMTOSRC=$$SR^DGMTAUD1(DGMTP),DGMTNSRC=$$SR^DGMTAUD1(DGMTA)
  1. I $P(DGMTA,U,3)'=$P(DGMTP,U,3) S DGMTFLG=1,DGMTSOLD=$$S^DGMTAUD1($P(DGMTP,U,3)),DGMTSNEW=$$S^DGMTAUD1($P(DGMTA,U,3))
  1. I DGMTATYP=15 S DGMTSOLD=$P(DGDEP,U),DGMTSNEW="",DGMTFLG=1
  1. I DGMTATYP>15 S (DGMTFLG,DGMTFLG2)=1
  1. ED ;File and edit
  1. D NOW^%DTC S (DIE,DIC)="^DGMT(408.41,",DIC(0)="L",X=% K DD,DO D FILE^DICN G:Y'>0 Q S (DA,DGMTAUD)=+Y
  1. LOCK L +^DGMT(408.41,DGMTAUD):1 G:'$T LOCK
  1. S DR="[DGMT UPDATE AUDIT]" D ^DIE L -^DGMT(408.41,DGMTAUD)
  1. Q K DA,DE,DGDASH,DGMTAI,DGMTAIZ,DGMTATYP,DGMTAUD,DGMTD,DGMTFLG,DGMTFLG1,DGMTSNEW,DGMTSOLD,DGMTOSRC,DGMTNSRC,DGNAM,DIC,DIE,DQ,DR,DTOUT,DUOUT,X,Y,% Q
  1. DEL ;Delete audits associated to MT
  1. S DIK="^DGMT(408.41,"
  1. S DA=0 F S DA=$O(^DGMT(408.41,"AM",DGMTYPT,DFN,DGMTI,DA)) Q:'DA D ^DIK
  1. K DA,DIK Q
  1. ;
  1. DIS ;Display changes pertaining to a means test for a vet
  1. D DIS^DGMTAUD2 Q