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

ABMDTVIS.m

Go to the documentation of this file.
  1. ABMDTVIS ; IHS/ASDST/DMJ - Add/Edit 3P Visit Types ;
  1. ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
  1. ;
  1. ; IHS/SD/SDR - v2.5 p8 - task 8
  1. ; Add prompt for auto-link to do claim splitting
  1. ; in claim generator
  1. ;
  1. START ;START HERE
  1. K DIC,ABM
  1. W ! S DIC="^ABMDVTYP(",DIC(0)="QEAML",DIC("A")="Select VISIT TYPE: " D ^DIC
  1. Q:+Y<1!$D(DTOUT)!$D(DUOUT)
  1. S ABMVT=+Y
  1. I $P($G(^ABMDVTYP(+Y,0)),U,3)'="" W " ","(uneditable) ??",*7 D AUTOLINK G START
  1. I $P($G(^ABMDVTYP(+Y,0)),U,3)="" D
  1. .S DR=$S('$P(^ABMDVTYP(+Y,0),U,3):".01;",1:"")_".02;1"
  1. .S DA=+Y,DIE="^ABMDVTYP(" D ^DIE
  1. D AUTOLINK
  1. G XIT
  1. W !
  1. F D Q:+ABMY<0!$D(DTOUT)!$D(DUOUT)
  1. .K DIC
  1. .S DA(1)=ABMVT
  1. .S DIC="^ABMDVTYP("_DA(1)_",2,"
  1. .S DIC(0)="QEAML"
  1. .S DIC("A")="AUTO-LINK to PCC file:"
  1. .S DIC("P")=$P(^DD(9002274.8,2,0),U,2)
  1. .D ^DIC K DIC
  1. .S ABMY=Y
  1. .Q:+ABMY<0
  1. .S DIE="^ABMDVTYP("_DA(1)_",2,"
  1. .S DA=+Y
  1. .S DR=".01;.02Delete from original claim?"
  1. .D ^DIE
  1. Q
  1. ;
  1. XIT ;
  1. K ABM,DIR,DR,DIE,ABMVT,ABMY
  1. Q