Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points
Print Page as PDF
Routine: ICPTIDX

Package: CPT HCPCS Codes

Routine: ICPTIDX


Information

ICPTIDX ;DLS/DEK - MUMPS Cross Reference Routine for History ; 04/28/2003

Source Information

Source file <ICPTIDX.m>

Entry Points

Name Comments DBIA/ICR reference
SAHC ; Set new value when CPT Code is Edited
; ^DD(81,.01,1,D0,1) = D SAHC^ICPTIDX
KAHC ; Kill old value when CPT Code is Edited
; ^DD(81,.01,1,D0,2) = D KAHC^ICPTIDX
SAHD ; Set new value when Effective Date is Edited
; ^DD(81.02,.01,1,D0,1) = D SAHD^ICPTIDX
KAHD ; Kill old value when Effective Date is Edited
; ^DD(81.02,.01,1,D0,2) = D KAHD^ICPTIDX
SAHS ; Set new value when Status is Edited
; ^DD(81.02,.02,1,D0,1) = D SAHS^ICPTIDX
KAHS ; Kill old value when Status is Edited
; ^DD(81.02,.02,1,D0,2) = D KAHS^ICPTIDX
HDC ; Set Common Variables (Code, Status and Effective Date)
SHIS ; Set Index ^ICPT("ACT",<code>,<status>,<date>,<ien>,<history>)
KHIS ; Kill Index ^ICPT("ACT",<code>,<status>,<date>,<ien>,<history>)
Info |  Source |  Entry Points