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

ACHS31P0.m

Go to the documentation of this file.
  1. ACHS31P0 ;IHS/SET/GTH - ACHS 3.1 PATCH 5 ENTRY ACTIONS ; [ 12/06/2002 10:36 AM ]
  1. ;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5**;JUN 11, 2001
  1. ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - Specific to Patch 5.
  1. ;
  1. POS ;EP - From KIDS.
  1. ; All the "D AUDIT^ACHSMAUD("ACHS",.LEVEL)" are removed from the
  1. ; ENTRY ACTIONs of the CHS options.
  1. ;
  1. D BMES^XPDUTL("BEGIN Removing non-standard auditing from CHS options.")
  1. NEW ACHS,ACHS20,ACHSR,DA,DIC,DIE,DR,X
  1. S (DIC,DIE)=19,DIC(0)=""
  1. F ACHS=1:1 S ACHSR=$P($T(AUDOPTS+ACHS),";",3,99) Q:ACHSR="END" D
  1. . S X=$P(ACHSR,"^",1)
  1. . D ^DIC
  1. . I +Y<1 D MES^XPDUTL($J("",5)_"Option "_X_" not found (That's OK).") Q
  1. . S ACHS20=$P(ACHSR,U,2,99),DA=+Y,DR="20///"_$S(ACHS20="":"@",1:"^S X=ACHS20")
  1. . D ^DIE
  1. . I $D(Y) D MES^XPDUTL("ERROR: Edit ENTRY ACTION of Option '"_$P(ACHSR,U,1)_"' FAILED.") Q
  1. . D MES^XPDUTL($J("",5)_"ENTRY ACTION of Option "_$P(ACHSR,U,1)_" edited to '"_$P(ACHSR,U,2,99)_"'.") Q
  1. .Q
  1. I '$$KILLOK^ZIBGCHAR("ACHSAUD") KILL ^ACHSAUD ; KILL non-standard work global.
  1. E NEW % S %="" F S %=$O(^ACHSAUD(%)) Q:'$L(%) KILL ^ACHSAUD(%)
  1. D MES^XPDUTL("END Removing non-standard auditing from CHS options.")
  1. Q
  1. ;
  1. ; - Option Name - ^ - Entry Action -
  1. AUDOPTS ;
  1. ;;ACHS ADD REFERRAL^
  1. ;;ACHS CALC INTEREST^
  1. ;;ACHS CAN CC SCC^
  1. ;;ACHS CHEF EDIT CASES^
  1. ;;ACHS CHEF MANAGEMENT^
  1. ;;ACHS CHEF PARAMETERS^
  1. ;;ACHS CHEF REQUEST^
  1. ;;ACHS DEF ACCRUEDDEFSVC^D H^ACHS,^ACHSDFS
  1. ;;ACHS DEF ADD^D H^ACHS,^ACHSDF
  1. ;;ACHS DEF BY ISSUE DATE^D H^ACHS
  1. ;;ACHS DEF CANCEL^D H^ACHS,^ACHSDFC
  1. ;;ACHS DEF DOCNTL^D H^ACHS,DOCNTL1^ACHSDF
  1. ;;ACHS DEF DOCUMENT^S ACHDIO=IO D H^ACHS,DUMP^ACHSDF2
  1. ;;ACHS DEF EXRPT^D H^ACHS,^ACHSDFE
  1. ;;ACHS DEF LETTER^D H^ACHS,^ACHSDFL
  1. ;;ACHS DEF PO^D H^ACHS,PO^ACHSDF
  1. ;;ACHS DEFDEN ENHANCEMENTS^D H^ACHS
  1. ;;ACHS DEFDEN MENU^D LOGO^ACHS,SETCK^ACHSDF1
  1. ;;ACHS DEFDEN MENU ADD^D H^ACHS
  1. ;;ACHS DEFDEN MENU CANCEL^D H^ACHS
  1. ;;ACHS DEFDEN MENU DEF LTRS^D H^ACHS
  1. ;;ACHS DEFDEN MENU DEF RPT^D H^ACHS
  1. ;;ACHS DEFDEN MENU DEF SUPP^D H^ACHS
  1. ;;ACHS DEFDEN MENU DEN LTRS^D H^ACHS
  1. ;;ACHS DEFDEN MENU DEN REPORTS^D H^ACHS
  1. ;;ACHS DEFDEN MENU DEN SUPP^D H^ACHS
  1. ;;ACHS DEFDEN MENU PARM^D H^ACHS
  1. ;;ACHS DEFDEN MENU PRINT^D H^ACHS
  1. ;;ACHS DEFDEN MENU REPORTS^D H^ACHS
  1. ;;ACHS DEFDEN MENU SUPP^D H^ACHS
  1. ;;ACHS DEFDEN PARM AMT^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=.06 D ^DIE
  1. ;;ACHS DEFDEN PARM CLOSE^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=8 D ^DIE
  1. ;;ACHS DEFDEN PARM DEFCATEGORY^D H^ACHS
  1. ;;ACHS DEFDEN PARM FAC^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=.02 D ^DIE
  1. ;;ACHS DEFDEN PARM HEAD^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=".07;1.1" D ^DIE
  1. ;;ACHS DEFDEN PARM MEDPRI^D H^ACHS
  1. ;;ACHS DEFDEN PARM NUMS^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=".03:.05" D ^DIE S DR=".08" D ^DIE
  1. ;;ACHS DEFDEN PARM SIG^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=6 D ^DIE
  1. ;;ACHS DEFDEN TECHNICAL MANUAL^D H^ACHS
  1. ;;ACHS DEN ADD^D H^ACHS K ACHD D ^ACHSDN
  1. ;;ACHS DEN ADDPROVIDER^D H^ACHS,^ACHSDNAP
  1. ;;ACHS DEN ALTRESC^D H^ACHS,^ACHSDAR
  1. ;;ACHS DEN ALTRESCAPPEAL^D H^ACHS,^ACHSDAR3
  1. ;;ACHS DEN APPEAL^D H^ACHS,APPEAL^ACHSDN2
  1. ;;ACHS DEN CANCEL^D H^ACHS,^ACHSDNC
  1. ;;ACHS DEN DOCNTL^D H^ACHS,DOCNTL^ACHSDN2
  1. ;;ACHS DEN DOCUMENT^S ACHDIO=IO D H^ACHS,DUMP^ACHSDN2
  1. ;;ACHS DEN INFO^D H^ACHS,DENIAL^ACHSDF
  1. ;;ACHS DEN LETTER^D H^ACHS,^ACHSDNL
  1. ;;ACHS DEN PVDRLIST^D H^ACHS,^ACHSDPVO,RTRN^ACHS
  1. ;;ACHS DEN PVDRLISTNOT^D H^ACHS,^ACHSDPVN,RTRN^ACHS
  1. ;;ACHS DEN REASONS^D H^ACHS,^ACHSDREA
  1. ;;ACHS DEN REP1^D H^ACHS,^ACHSDNI
  1. ;;ACHS DEN REP1A^D H^ACHS,^ACHSDNA
  1. ;;ACHS DEN RPTHQ1^D H^ACHS,^ACHSDHQ,RTRN^ACHS
  1. ;;ACHS DEN STATS^D H^ACHS,^ACHSDNS
  1. ;;ACHS EDIT AUTH DATES^
  1. ;;ACHS EDIT DOCUMENT ACTIONS^
  1. ;;ACHS EDIT INTEREST^
  1. ;;ACHS ENHANCEMENTS^
  1. ;;ACHS INTEREST DISPLAY^
  1. ;;ACHS MENU EXPORT^
  1. ;;ACHS MENU INTEREST^
  1. ;;ACHS MENU OBJECT CLASS REPORTS^
  1. ;;ACHS MENU SCC REPORTS^
  1. ;;ACHS MENU VENDOR REPORTS^
  1. ;;ACHS PCC TRANSFER^
  1. ;;ACHS PG OPTIONS^
  1. ;;ACHS QUARTERLY VENDOR^
  1. ;;ACHS REPORT SCC DCRS^S ACHSIO=IO
  1. ;;ACHS SERVICE CLASS CODES^S DA=DUZ(2),DR="[ACHSOBCL]",DIE="^ACHS(3," D ^DIE
  1. ;;ACHS TST VER^D ^ACHSTV
  1. ;;ACHS-HV-DENIAL-REPORT^
  1. ;;ACHS-HV-EDIT HV PROVIDERS^S DIE="^ACHSF(",DA=DUZ(2),DR=18 D ^DIE KILL DA,DIE,DR
  1. ;;ACHS-HV-MASTER^
  1. ;;ACHS-HV-MDOL-REPORT^
  1. ;;ACHS-HV-MDOL-TX^
  1. ;;ACHS-HV-PRINT HVP^
  1. ;;ACHS-HV-PRINT NOTIFICATION^
  1. ;;ACHS-HV-RECEIVE NOTIFICATION^
  1. ;;ACHS638CHECK1^I $$638^ACHSFU D ^ACHSCHK
  1. ;;ACHS638CHECKB^I $P(^ACHSF(DUZ(2),0),U,8)="Y",$P(^(0),U,9)="Y" D BATCH^ACHSCHK
  1. ;;ACHS638CHECKIN^I $$638^ACHSFU D RETURN^ACHSCHK1
  1. ;;ACHS638CHECKMENU^Q:'$$638^ACHSFU
  1. ;;ACHS638CHECKSOUT^
  1. ;;ACHS638CHECKSPRINTED^S:'$$638^ACHSFU ACHSXQT="" Q:$D(ACHSXQT) S ACHSIO=IO
  1. ;;ACHS638REPORTS^Q:'$$638^ACHSFU
  1. ;;ACHSAA^D ^ACHSAA
  1. ;;ACHSAB^D ^ACHSAB,^ACHSAA
  1. ;;ACHSAC^D ^ACHSAC,^ACHSAA
  1. ;;ACHSAD^
  1. ;;ACHSAD1^D ^ACHSAD
  1. ;;ACHSAI^D ^ACHSAI,^ACHSAA
  1. ;;ACHSAL^D ^ACHSAL,^ACHSAA
  1. ;;ACHSALUP^D ^ACHSALUP
  1. ;;ACHSAREA^
  1. ;;ACHSAREA DHR LIST^D ^ACHSPCC5
  1. ;;ACHSAREA MENU PO TRANSACTIONS^
  1. ;;ACHSAREA PARAMETERS^
  1. ;;ACHSAREA PO TRANS DISPLAY^
  1. ;;ACHSAREA SP VEN REPORT^
  1. ;;ACHSAREA SP/EX^D ^ACHSPCC1
  1. ;;ACHSAREACON^D ^ACHSACO
  1. ;;ACHSAREAEOBR9TRK^D ^ACHSEOB6
  1. ;;ACHSAREAEOBREDIT^
  1. ;;ACHSAREAEOBRERRS^D ^ACHSEOB5
  1. ;;ACHSAREAEOBRFACS^S ACHSIO=IO
  1. ;;ACHSAREAEOBRIN^S ACHSISAO=1 D ^ACHSEOB
  1. ;;ACHSAREAEOBROUT^D ^ACHSEOB8
  1. ;;ACHSAREAEOBRPROC^
  1. ;;ACHSAS^D ^ACHSAS,^ACHSAA
  1. ;;ACHSCANCCOBJ^
  1. ;;ACHSCNUP^S DLAYGO=9002062,(DIC,DIE)="^ACHS(2,",DIC(0)="AEFLMNQ",DR="1:4" K X F D ^DIC Q:+Y<0 S DA=+Y D ^DIE W !!
  1. ;;ACHSCOSTCTR^S DLAYGO=9002061,(DIC,DIE)="^ACHS(1,",DR=1,DIC(0)="QALEM" F I=0:0 D ^DIC Q:+Y<0 S DA=+Y D ^DIE W !!
  1. ;;ACHSDA^D ^AGSEENLY
  1. ;;ACHSDENADD^KILL ACHS D ^ACHSDN
  1. ;;ACHSDENDELETE^D ^ACHSDND
  1. ;;ACHSDENDOCUMENT^S ACHSIO=IO D DUMP^ACHSDN2
  1. ;;ACHSDENEDIT^D ^ACHSDN2
  1. ;;ACHSDENLETTER^D ^ACHSDNL
  1. ;;ACHSDENPARM^Q:'$$638^ACHSFU S DIE="^ACHSDENR(",DA=DUZ(2)
  1. ;;ACHSDENPARMADDREA^S DIC(0)="AEFLMNQ",(DIC,DIE)="^ACHSDENS(",DR=".01:1" D ^DIC S DA=+Y D:DA ^DIE S DIE="^ACHSDENR(",DA=DUZ(2) K DIC
  1. ;;ACHSDENPARMAMT^Q:'$$638^ACHSFU S DR=.06 D ^DIE
  1. ;;ACHSDENPARMBOT^Q:'$$638^ACHSFU S DR=3 D ^DIE
  1. ;;ACHSDENPARMCLOSE^S DR=8 D ^DIE
  1. ;;ACHSDENPARMFAC^S DR=.02 D ^DIE
  1. ;;ACHSDENPARMHEAD^Q:'$$638^ACHSFU S DR=1.1 D ^DIE
  1. ;;ACHSDENPARMLOF^S X="ACHSDENPARMLOF" D HDR^ACHS S DR=7 D ^DIE
  1. ;;ACHSDENPARMMID^Q:'$$638^ACHSFU S DR=2 D ^DIE
  1. ;;ACHSDENPARMNUMS^Q:'$$638^ACHSFU S DR=".03:.05" D ^DIE
  1. ;;ACHSDENPARMREA^Q:'$$638^ACHSFU S DR=1 D ^DIE
  1. ;;ACHSDENPARMSIG^Q:'$$638^ACHSFU NEW DIE,DA,DR S DIE="^ACHSDENR(",DA=DUZ(2),DR=6 D ^DIE
  1. ;;ACHSDENPARMUNMET^S DR=5,DIE="^ACHSDENR("
  1. ;;ACHSDENPVDRLIST^S ACHSIO=IO,D0=DUZ(2)
  1. ;;ACHSDENPVDRLISTNOT^S ACHSIO=IO
  1. ;;ACHSDENREASONS^S ACHSIO=IO
  1. ;;ACHSDENREP1^D ^ACHSDNI
  1. ;;ACHSDENREPMENU^
  1. ;;ACHSDENRPTHQ1^S ACHSIO=IO
  1. ;;ACHSDENSTATS^D ^ACHSDNS
  1. ;;ACHSDENUNMET^D ^ACHSDNU
  1. ;;ACHSDOCQ^D ^ACHSDSU
  1. ;;ACHSDOCSTATUSREP^D ^ACHSDST
  1. ;;ACHSDOCSTATUSREPF^D ^ACHSDSF
  1. ;;ACHSDOCUMENT^S ACHSIO=IO D DUMP^ACHSAD
  1. ;;ACHSEDITMEDICAL^S ACHSIO=IO D EDIT^ACHSPAM
  1. ;;ACHSEDITREFMEDI^S ACHSIO=IO D REF^ACHSPAM
  1. ;;ACHSFACEOBREPORTS^D ^ACHSEOB5
  1. ;;ACHSFACEOBRMENU^
  1. ;;ACHSFEOBR^S ACHSISAO=0 D ^ACHSEOB
  1. ;;ACHSINPEXPREP^D ^ACHSC6Q
  1. ;;ACHSLBL^D ^ACHSVLB
  1. ;;ACHSMENU^D ISMGR^ACHS(DUZ) S LEVEL=0 D LOGO^ACHS,^ACHSVAR
  1. ;;ACHSMGP^D ^ACHSVDV
  1. ;;ACHSMGPAR^
  1. ;;ACHSMGR^
  1. ;;ACHSNEWFY^D ^ACHSNEW
  1. ;;ACHSOA^
  1. ;;ACHSOBJCLASS^S DA=DUZ(2),DR="[ACHSOBCL]",DIE="^ACHS(3," D ^DIE
  1. ;;ACHSOD^D ^ACHSODQ
  1. ;;ACHSOP^D ^ACHSBOP
  1. ;;ACHSOV^S ACHSIO=IO D A1A^ACHSBOP
  1. ;;ACHSPA^D ^ACHSPA
  1. ;;ACHSPARMSFAC^
  1. ;;ACHSPATDOCS^D ^ACHSPDC
  1. ;;ACHSPATLABS^D ^AGVAR,^AGADDR KILL AGOPT
  1. ;;ACHSPAYADJUST^D ^ACHSAJ
  1. ;;ACHSPAYMENU^
  1. ;;ACHSPRINTEOBR^
  1. ;;ACHSPRINTEOBRBAT^D ^ACHSEBAT
  1. ;;ACHSPRINTEOBRDOC^D ^ACHSEDOC
  1. ;;ACHSPRINTEOBRFI^D ^ACHSEOB7
  1. ;;ACHSPRINTEOBRPAT^D ^ACHSEPAT
  1. ;;ACHSRA^
  1. ;;ACHSRC^
  1. ;;ACHSREPORTS^
  1. ;;ACHSRP^D ^ACHSRP
  1. ;;ACHSRPT3RDPAY^D ^ACHS3PPQ
  1. ;;ACHSRPTCANCC^S ACHSIO=IO
  1. ;;ACHSRPTCHEF^
  1. ;;ACHSRPTCPTREV^D ^ACHSCPTA
  1. ;;ACHSRPTCPTREVFM^
  1. ;;ACHSRPTCPTVNDR^D ^ACHSCPTD
  1. ;;ACHSRPTHOSPLOG^S ACHSIO=IO
  1. ;;ACHSRPTMEDIDATA^
  1. ;;ACHSRPTOBJCLASS^S ACHSIO=IO W !,"'NAME' is the name of your facility.",!
  1. ;;ACHSRPTOBJCLSSUM^D ^ACHSOCSQ
  1. ;;ACHSRPTOBJREG^S ACHSIO=IO
  1. ;;ACHSRPTOBJVNDR^
  1. ;;ACHSRPTOPTCOMM^S ACHSIO=IO
  1. ;;ACHSRPTPHYSPEC^
  1. ;;ACHSRPTSCC^S ACHSIO=IO W !,"'NAME' is the name of your facility.",!
  1. ;;ACHSRPTSCCSUM^D ^ACHSOCSQ
  1. ;;ACHSRPTSCCVNDR^
  1. ;;ACHSRR^S ACHSDUZ2=DUZ(2) D ^ACHSRR S DUZ(2)=ACHSDUZ2 K ACHSDUZ2 D ^ACHSVAR
  1. ;;ACHSSITEMAN^
  1. ;;ACHSTX^S ACHSREEX=0 D ^ACHSTX K ACHSREEX
  1. ;;ACHSTX MARK PATIENT^
  1. ;;ACHSTX MARK VENDOR^
  1. ;;ACHSTXAR^S ACHSREEX=1 D ^ACHSTX KILL ACHSREEX
  1. ;;ACHSVDOCS^D ^ACHSVDC
  1. ;;ACHSVENDPRT^D ^ACHSVND
  1. ;;ACHSVNDRUSAGE^D ^ACHSVUR
  1. ;;END
  1. ;;^END
  1. ;
  1. DIM ;
  1. NEW ACHS,X
  1. F ACHS=1:1 S X=$P($T(AUDOPTS+ACHS),"^",2,99) Q:X="END" W $J(ACHS,8) D ^DIM I '$D(X) W !,$T(AUDOPTS+ACHS)
  1. Q
  1. ;