ACHS31P0 ;IHS/SET/GTH - ACHS 3.1 PATCH 5 ENTRY ACTIONS ; [ 12/06/2002 10:36 AM ]
;;3.1;CONTRACT HEALTH MGMT SYSTEM;**5**;JUN 11, 2001
;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - Specific to Patch 5.
;
POS ;EP - From KIDS.
; All the "D AUDIT^ACHSMAUD("ACHS",.LEVEL)" are removed from the
; ENTRY ACTIONs of the CHS options.
;
D BMES^XPDUTL("BEGIN Removing non-standard auditing from CHS options.")
NEW ACHS,ACHS20,ACHSR,DA,DIC,DIE,DR,X
S (DIC,DIE)=19,DIC(0)=""
F ACHS=1:1 S ACHSR=$P($T(AUDOPTS+ACHS),";",3,99) Q:ACHSR="END" D
. S X=$P(ACHSR,"^",1)
. D ^DIC
. I +Y<1 D MES^XPDUTL($J("",5)_"Option "_X_" not found (That's OK).") Q
. S ACHS20=$P(ACHSR,U,2,99),DA=+Y,DR="20///"_$S(ACHS20="":"@",1:"^S X=ACHS20")
. D ^DIE
. I $D(Y) D MES^XPDUTL("ERROR: Edit ENTRY ACTION of Option '"_$P(ACHSR,U,1)_"' FAILED.") Q
. D MES^XPDUTL($J("",5)_"ENTRY ACTION of Option "_$P(ACHSR,U,1)_" edited to '"_$P(ACHSR,U,2,99)_"'.") Q
.Q
I '$$KILLOK^ZIBGCHAR("ACHSAUD") KILL ^ACHSAUD ; KILL non-standard work global.
E NEW % S %="" F S %=$O(^ACHSAUD(%)) Q:'$L(%) KILL ^ACHSAUD(%)
D MES^XPDUTL("END Removing non-standard auditing from CHS options.")
Q
;
; - Option Name - ^ - Entry Action -
AUDOPTS ;
;;ACHS ADD REFERRAL^
;;ACHS CALC INTEREST^
;;ACHS CAN CC SCC^
;;ACHS CHEF EDIT CASES^
;;ACHS CHEF MANAGEMENT^
;;ACHS CHEF PARAMETERS^
;;ACHS CHEF REQUEST^
;;ACHS DEF ACCRUEDDEFSVC^D H^ACHS,^ACHSDFS
;;ACHS DEF ADD^D H^ACHS,^ACHSDF
;;ACHS DEF BY ISSUE DATE^D H^ACHS
;;ACHS DEF CANCEL^D H^ACHS,^ACHSDFC
;;ACHS DEF DOCNTL^D H^ACHS,DOCNTL1^ACHSDF
;;ACHS DEF DOCUMENT^S ACHDIO=IO D H^ACHS,DUMP^ACHSDF2
;;ACHS DEF EXRPT^D H^ACHS,^ACHSDFE
;;ACHS DEF LETTER^D H^ACHS,^ACHSDFL
;;ACHS DEF PO^D H^ACHS,PO^ACHSDF
;;ACHS DEFDEN ENHANCEMENTS^D H^ACHS
;;ACHS DEFDEN MENU^D LOGO^ACHS,SETCK^ACHSDF1
;;ACHS DEFDEN MENU ADD^D H^ACHS
;;ACHS DEFDEN MENU CANCEL^D H^ACHS
;;ACHS DEFDEN MENU DEF LTRS^D H^ACHS
;;ACHS DEFDEN MENU DEF RPT^D H^ACHS
;;ACHS DEFDEN MENU DEF SUPP^D H^ACHS
;;ACHS DEFDEN MENU DEN LTRS^D H^ACHS
;;ACHS DEFDEN MENU DEN REPORTS^D H^ACHS
;;ACHS DEFDEN MENU DEN SUPP^D H^ACHS
;;ACHS DEFDEN MENU PARM^D H^ACHS
;;ACHS DEFDEN MENU PRINT^D H^ACHS
;;ACHS DEFDEN MENU REPORTS^D H^ACHS
;;ACHS DEFDEN MENU SUPP^D H^ACHS
;;ACHS DEFDEN PARM AMT^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=.06 D ^DIE
;;ACHS DEFDEN PARM CLOSE^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=8 D ^DIE
;;ACHS DEFDEN PARM DEFCATEGORY^D H^ACHS
;;ACHS DEFDEN PARM FAC^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=.02 D ^DIE
;;ACHS DEFDEN PARM HEAD^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=".07;1.1" D ^DIE
;;ACHS DEFDEN PARM MEDPRI^D H^ACHS
;;ACHS DEFDEN PARM NUMS^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=".03:.05" D ^DIE S DR=".08" D ^DIE
;;ACHS DEFDEN PARM SIG^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=6 D ^DIE
;;ACHS DEFDEN TECHNICAL MANUAL^D H^ACHS
;;ACHS DEN ADD^D H^ACHS K ACHD D ^ACHSDN
;;ACHS DEN ADDPROVIDER^D H^ACHS,^ACHSDNAP
;;ACHS DEN ALTRESC^D H^ACHS,^ACHSDAR
;;ACHS DEN ALTRESCAPPEAL^D H^ACHS,^ACHSDAR3
;;ACHS DEN APPEAL^D H^ACHS,APPEAL^ACHSDN2
;;ACHS DEN CANCEL^D H^ACHS,^ACHSDNC
;;ACHS DEN DOCNTL^D H^ACHS,DOCNTL^ACHSDN2
;;ACHS DEN DOCUMENT^S ACHDIO=IO D H^ACHS,DUMP^ACHSDN2
;;ACHS DEN INFO^D H^ACHS,DENIAL^ACHSDF
;;ACHS DEN LETTER^D H^ACHS,^ACHSDNL
;;ACHS DEN PVDRLIST^D H^ACHS,^ACHSDPVO,RTRN^ACHS
;;ACHS DEN PVDRLISTNOT^D H^ACHS,^ACHSDPVN,RTRN^ACHS
;;ACHS DEN REASONS^D H^ACHS,^ACHSDREA
;;ACHS DEN REP1^D H^ACHS,^ACHSDNI
;;ACHS DEN REP1A^D H^ACHS,^ACHSDNA
;;ACHS DEN RPTHQ1^D H^ACHS,^ACHSDHQ,RTRN^ACHS
;;ACHS DEN STATS^D H^ACHS,^ACHSDNS
;;ACHS EDIT AUTH DATES^
;;ACHS EDIT DOCUMENT ACTIONS^
;;ACHS EDIT INTEREST^
;;ACHS ENHANCEMENTS^
;;ACHS INTEREST DISPLAY^
;;ACHS MENU EXPORT^
;;ACHS MENU INTEREST^
;;ACHS MENU OBJECT CLASS REPORTS^
;;ACHS MENU SCC REPORTS^
;;ACHS MENU VENDOR REPORTS^
;;ACHS PCC TRANSFER^
;;ACHS PG OPTIONS^
;;ACHS QUARTERLY VENDOR^
;;ACHS REPORT SCC DCRS^S ACHSIO=IO
;;ACHS SERVICE CLASS CODES^S DA=DUZ(2),DR="[ACHSOBCL]",DIE="^ACHS(3," D ^DIE
;;ACHS TST VER^D ^ACHSTV
;;ACHS-HV-DENIAL-REPORT^
;;ACHS-HV-EDIT HV PROVIDERS^S DIE="^ACHSF(",DA=DUZ(2),DR=18 D ^DIE KILL DA,DIE,DR
;;ACHS-HV-MASTER^
;;ACHS-HV-MDOL-REPORT^
;;ACHS-HV-MDOL-TX^
;;ACHS-HV-PRINT HVP^
;;ACHS-HV-PRINT NOTIFICATION^
;;ACHS-HV-RECEIVE NOTIFICATION^
;;ACHS638CHECK1^I $$638^ACHSFU D ^ACHSCHK
;;ACHS638CHECKB^I $P(^ACHSF(DUZ(2),0),U,8)="Y",$P(^(0),U,9)="Y" D BATCH^ACHSCHK
;;ACHS638CHECKIN^I $$638^ACHSFU D RETURN^ACHSCHK1
;;ACHS638CHECKMENU^Q:'$$638^ACHSFU
;;ACHS638CHECKSOUT^
;;ACHS638CHECKSPRINTED^S:'$$638^ACHSFU ACHSXQT="" Q:$D(ACHSXQT) S ACHSIO=IO
;;ACHS638REPORTS^Q:'$$638^ACHSFU
;;ACHSAA^D ^ACHSAA
;;ACHSAB^D ^ACHSAB,^ACHSAA
;;ACHSAC^D ^ACHSAC,^ACHSAA
;;ACHSAD^
;;ACHSAD1^D ^ACHSAD
;;ACHSAI^D ^ACHSAI,^ACHSAA
;;ACHSAL^D ^ACHSAL,^ACHSAA
;;ACHSALUP^D ^ACHSALUP
;;ACHSAREA^
;;ACHSAREA DHR LIST^D ^ACHSPCC5
;;ACHSAREA MENU PO TRANSACTIONS^
;;ACHSAREA PARAMETERS^
;;ACHSAREA PO TRANS DISPLAY^
;;ACHSAREA SP VEN REPORT^
;;ACHSAREA SP/EX^D ^ACHSPCC1
;;ACHSAREACON^D ^ACHSACO
;;ACHSAREAEOBR9TRK^D ^ACHSEOB6
;;ACHSAREAEOBREDIT^
;;ACHSAREAEOBRERRS^D ^ACHSEOB5
;;ACHSAREAEOBRFACS^S ACHSIO=IO
;;ACHSAREAEOBRIN^S ACHSISAO=1 D ^ACHSEOB
;;ACHSAREAEOBROUT^D ^ACHSEOB8
;;ACHSAREAEOBRPROC^
;;ACHSAS^D ^ACHSAS,^ACHSAA
;;ACHSCANCCOBJ^
;;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 !!
;;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 !!
;;ACHSDA^D ^AGSEENLY
;;ACHSDENADD^KILL ACHS D ^ACHSDN
;;ACHSDENDELETE^D ^ACHSDND
;;ACHSDENDOCUMENT^S ACHSIO=IO D DUMP^ACHSDN2
;;ACHSDENEDIT^D ^ACHSDN2
;;ACHSDENLETTER^D ^ACHSDNL
;;ACHSDENPARM^Q:'$$638^ACHSFU S DIE="^ACHSDENR(",DA=DUZ(2)
;;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
;;ACHSDENPARMAMT^Q:'$$638^ACHSFU S DR=.06 D ^DIE
;;ACHSDENPARMBOT^Q:'$$638^ACHSFU S DR=3 D ^DIE
;;ACHSDENPARMCLOSE^S DR=8 D ^DIE
;;ACHSDENPARMFAC^S DR=.02 D ^DIE
;;ACHSDENPARMHEAD^Q:'$$638^ACHSFU S DR=1.1 D ^DIE
;;ACHSDENPARMLOF^S X="ACHSDENPARMLOF" D HDR^ACHS S DR=7 D ^DIE
;;ACHSDENPARMMID^Q:'$$638^ACHSFU S DR=2 D ^DIE
;;ACHSDENPARMNUMS^Q:'$$638^ACHSFU S DR=".03:.05" D ^DIE
;;ACHSDENPARMREA^Q:'$$638^ACHSFU S DR=1 D ^DIE
;;ACHSDENPARMSIG^Q:'$$638^ACHSFU NEW DIE,DA,DR S DIE="^ACHSDENR(",DA=DUZ(2),DR=6 D ^DIE
;;ACHSDENPARMUNMET^S DR=5,DIE="^ACHSDENR("
;;ACHSDENPVDRLIST^S ACHSIO=IO,D0=DUZ(2)
;;ACHSDENPVDRLISTNOT^S ACHSIO=IO
;;ACHSDENREASONS^S ACHSIO=IO
;;ACHSDENREP1^D ^ACHSDNI
;;ACHSDENREPMENU^
;;ACHSDENRPTHQ1^S ACHSIO=IO
;;ACHSDENSTATS^D ^ACHSDNS
;;ACHSDENUNMET^D ^ACHSDNU
;;ACHSDOCQ^D ^ACHSDSU
;;ACHSDOCSTATUSREP^D ^ACHSDST
;;ACHSDOCSTATUSREPF^D ^ACHSDSF
;;ACHSDOCUMENT^S ACHSIO=IO D DUMP^ACHSAD
;;ACHSEDITMEDICAL^S ACHSIO=IO D EDIT^ACHSPAM
;;ACHSEDITREFMEDI^S ACHSIO=IO D REF^ACHSPAM
;;ACHSFACEOBREPORTS^D ^ACHSEOB5
;;ACHSFACEOBRMENU^
;;ACHSFEOBR^S ACHSISAO=0 D ^ACHSEOB
;;ACHSINPEXPREP^D ^ACHSC6Q
;;ACHSLBL^D ^ACHSVLB
;;ACHSMENU^D ISMGR^ACHS(DUZ) S LEVEL=0 D LOGO^ACHS,^ACHSVAR
;;ACHSMGP^D ^ACHSVDV
;;ACHSMGPAR^
;;ACHSMGR^
;;ACHSNEWFY^D ^ACHSNEW
;;ACHSOA^
;;ACHSOBJCLASS^S DA=DUZ(2),DR="[ACHSOBCL]",DIE="^ACHS(3," D ^DIE
;;ACHSOD^D ^ACHSODQ
;;ACHSOP^D ^ACHSBOP
;;ACHSOV^S ACHSIO=IO D A1A^ACHSBOP
;;ACHSPA^D ^ACHSPA
;;ACHSPARMSFAC^
;;ACHSPATDOCS^D ^ACHSPDC
;;ACHSPATLABS^D ^AGVAR,^AGADDR KILL AGOPT
;;ACHSPAYADJUST^D ^ACHSAJ
;;ACHSPAYMENU^
;;ACHSPRINTEOBR^
;;ACHSPRINTEOBRBAT^D ^ACHSEBAT
;;ACHSPRINTEOBRDOC^D ^ACHSEDOC
;;ACHSPRINTEOBRFI^D ^ACHSEOB7
;;ACHSPRINTEOBRPAT^D ^ACHSEPAT
;;ACHSRA^
;;ACHSRC^
;;ACHSREPORTS^
;;ACHSRP^D ^ACHSRP
;;ACHSRPT3RDPAY^D ^ACHS3PPQ
;;ACHSRPTCANCC^S ACHSIO=IO
;;ACHSRPTCHEF^
;;ACHSRPTCPTREV^D ^ACHSCPTA
;;ACHSRPTCPTREVFM^
;;ACHSRPTCPTVNDR^D ^ACHSCPTD
;;ACHSRPTHOSPLOG^S ACHSIO=IO
;;ACHSRPTMEDIDATA^
;;ACHSRPTOBJCLASS^S ACHSIO=IO W !,"'NAME' is the name of your facility.",!
;;ACHSRPTOBJCLSSUM^D ^ACHSOCSQ
;;ACHSRPTOBJREG^S ACHSIO=IO
;;ACHSRPTOBJVNDR^
;;ACHSRPTOPTCOMM^S ACHSIO=IO
;;ACHSRPTPHYSPEC^
;;ACHSRPTSCC^S ACHSIO=IO W !,"'NAME' is the name of your facility.",!
;;ACHSRPTSCCSUM^D ^ACHSOCSQ
;;ACHSRPTSCCVNDR^
;;ACHSRR^S ACHSDUZ2=DUZ(2) D ^ACHSRR S DUZ(2)=ACHSDUZ2 K ACHSDUZ2 D ^ACHSVAR
;;ACHSSITEMAN^
;;ACHSTX^S ACHSREEX=0 D ^ACHSTX K ACHSREEX
;;ACHSTX MARK PATIENT^
;;ACHSTX MARK VENDOR^
;;ACHSTXAR^S ACHSREEX=1 D ^ACHSTX KILL ACHSREEX
;;ACHSVDOCS^D ^ACHSVDC
;;ACHSVENDPRT^D ^ACHSVND
;;ACHSVNDRUSAGE^D ^ACHSVUR
;;END
;;^END
;
DIM ;
NEW ACHS,X
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)
Q
;
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
+2 ;IHS/SET/GTH ACHS*3.1*5 12/06/2002 - Specific to Patch 5.
+3 ;
POS ;EP - From KIDS.
+1 ; All the "D AUDIT^ACHSMAUD("ACHS",.LEVEL)" are removed from the
+2 ; ENTRY ACTIONs of the CHS options.
+3 ;
+4 DO BMES^XPDUTL("BEGIN Removing non-standard auditing from CHS options.")
+5 NEW ACHS,ACHS20,ACHSR,DA,DIC,DIE,DR,X
+6 SET (DIC,DIE)=19
SET DIC(0)=""
+7 FOR ACHS=1:1
SET ACHSR=$PIECE($TEXT(AUDOPTS+ACHS),";",3,99)
IF ACHSR="END"
QUIT
Begin DoDot:1
+8 SET X=$PIECE(ACHSR,"^",1)
+9 DO ^DIC
+10 IF +Y<1
DO MES^XPDUTL($JUSTIFY("",5)_"Option "_X_" not found (That's OK).")
QUIT
+11 SET ACHS20=$PIECE(ACHSR,U,2,99)
SET DA=+Y
SET DR="20///"_$SELECT(ACHS20="":"@",1:"^S X=ACHS20")
+12 DO ^DIE
+13 IF $DATA(Y)
DO MES^XPDUTL("ERROR: Edit ENTRY ACTION of Option '"_$PIECE(ACHSR,U,1)_"' FAILED.")
QUIT
+14 DO MES^XPDUTL($JUSTIFY("",5)_"ENTRY ACTION of Option "_$PIECE(ACHSR,U,1)_" edited to '"_$PIECE(ACHSR,U,2,99)_"'.")
QUIT
+15 QUIT
End DoDot:1
+16 ; KILL non-standard work global.
IF '$$KILLOK^ZIBGCHAR("ACHSAUD")
KILL ^ACHSAUD
+17 IF '$TEST
NEW %
SET %=""
FOR
SET %=$ORDER(^ACHSAUD(%))
IF '$LENGTH(%)
QUIT
KILL ^ACHSAUD(%)
+18 DO MES^XPDUTL("END Removing non-standard auditing from CHS options.")
+19 QUIT
+20 ;
+21 ; - Option Name - ^ - Entry Action -
AUDOPTS ;
+1 ;;ACHS ADD REFERRAL^
+2 ;;ACHS CALC INTEREST^
+3 ;;ACHS CAN CC SCC^
+4 ;;ACHS CHEF EDIT CASES^
+5 ;;ACHS CHEF MANAGEMENT^
+6 ;;ACHS CHEF PARAMETERS^
+7 ;;ACHS CHEF REQUEST^
+8 ;;ACHS DEF ACCRUEDDEFSVC^D H^ACHS,^ACHSDFS
+9 ;;ACHS DEF ADD^D H^ACHS,^ACHSDF
+10 ;;ACHS DEF BY ISSUE DATE^D H^ACHS
+11 ;;ACHS DEF CANCEL^D H^ACHS,^ACHSDFC
+12 ;;ACHS DEF DOCNTL^D H^ACHS,DOCNTL1^ACHSDF
+13 ;;ACHS DEF DOCUMENT^S ACHDIO=IO D H^ACHS,DUMP^ACHSDF2
+14 ;;ACHS DEF EXRPT^D H^ACHS,^ACHSDFE
+15 ;;ACHS DEF LETTER^D H^ACHS,^ACHSDFL
+16 ;;ACHS DEF PO^D H^ACHS,PO^ACHSDF
+17 ;;ACHS DEFDEN ENHANCEMENTS^D H^ACHS
+18 ;;ACHS DEFDEN MENU^D LOGO^ACHS,SETCK^ACHSDF1
+19 ;;ACHS DEFDEN MENU ADD^D H^ACHS
+20 ;;ACHS DEFDEN MENU CANCEL^D H^ACHS
+21 ;;ACHS DEFDEN MENU DEF LTRS^D H^ACHS
+22 ;;ACHS DEFDEN MENU DEF RPT^D H^ACHS
+23 ;;ACHS DEFDEN MENU DEF SUPP^D H^ACHS
+24 ;;ACHS DEFDEN MENU DEN LTRS^D H^ACHS
+25 ;;ACHS DEFDEN MENU DEN REPORTS^D H^ACHS
+26 ;;ACHS DEFDEN MENU DEN SUPP^D H^ACHS
+27 ;;ACHS DEFDEN MENU PARM^D H^ACHS
+28 ;;ACHS DEFDEN MENU PRINT^D H^ACHS
+29 ;;ACHS DEFDEN MENU REPORTS^D H^ACHS
+30 ;;ACHS DEFDEN MENU SUPP^D H^ACHS
+31 ;;ACHS DEFDEN PARM AMT^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=.06 D ^DIE
+32 ;;ACHS DEFDEN PARM CLOSE^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=8 D ^DIE
+33 ;;ACHS DEFDEN PARM DEFCATEGORY^D H^ACHS
+34 ;;ACHS DEFDEN PARM FAC^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=.02 D ^DIE
+35 ;;ACHS DEFDEN PARM HEAD^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=".07;1.1" D ^DIE
+36 ;;ACHS DEFDEN PARM MEDPRI^D H^ACHS
+37 ;;ACHS DEFDEN PARM NUMS^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=".03:.05" D ^DIE S DR=".08" D ^DIE
+38 ;;ACHS DEFDEN PARM SIG^D H^ACHS S DIE="^ACHSDENR(",DA=DUZ(2),DR=6 D ^DIE
+39 ;;ACHS DEFDEN TECHNICAL MANUAL^D H^ACHS
+40 ;;ACHS DEN ADD^D H^ACHS K ACHD D ^ACHSDN
+41 ;;ACHS DEN ADDPROVIDER^D H^ACHS,^ACHSDNAP
+42 ;;ACHS DEN ALTRESC^D H^ACHS,^ACHSDAR
+43 ;;ACHS DEN ALTRESCAPPEAL^D H^ACHS,^ACHSDAR3
+44 ;;ACHS DEN APPEAL^D H^ACHS,APPEAL^ACHSDN2
+45 ;;ACHS DEN CANCEL^D H^ACHS,^ACHSDNC
+46 ;;ACHS DEN DOCNTL^D H^ACHS,DOCNTL^ACHSDN2
+47 ;;ACHS DEN DOCUMENT^S ACHDIO=IO D H^ACHS,DUMP^ACHSDN2
+48 ;;ACHS DEN INFO^D H^ACHS,DENIAL^ACHSDF
+49 ;;ACHS DEN LETTER^D H^ACHS,^ACHSDNL
+50 ;;ACHS DEN PVDRLIST^D H^ACHS,^ACHSDPVO,RTRN^ACHS
+51 ;;ACHS DEN PVDRLISTNOT^D H^ACHS,^ACHSDPVN,RTRN^ACHS
+52 ;;ACHS DEN REASONS^D H^ACHS,^ACHSDREA
+53 ;;ACHS DEN REP1^D H^ACHS,^ACHSDNI
+54 ;;ACHS DEN REP1A^D H^ACHS,^ACHSDNA
+55 ;;ACHS DEN RPTHQ1^D H^ACHS,^ACHSDHQ,RTRN^ACHS
+56 ;;ACHS DEN STATS^D H^ACHS,^ACHSDNS
+57 ;;ACHS EDIT AUTH DATES^
+58 ;;ACHS EDIT DOCUMENT ACTIONS^
+59 ;;ACHS EDIT INTEREST^
+60 ;;ACHS ENHANCEMENTS^
+61 ;;ACHS INTEREST DISPLAY^
+62 ;;ACHS MENU EXPORT^
+63 ;;ACHS MENU INTEREST^
+64 ;;ACHS MENU OBJECT CLASS REPORTS^
+65 ;;ACHS MENU SCC REPORTS^
+66 ;;ACHS MENU VENDOR REPORTS^
+67 ;;ACHS PCC TRANSFER^
+68 ;;ACHS PG OPTIONS^
+69 ;;ACHS QUARTERLY VENDOR^
+70 ;;ACHS REPORT SCC DCRS^S ACHSIO=IO
+71 ;;ACHS SERVICE CLASS CODES^S DA=DUZ(2),DR="[ACHSOBCL]",DIE="^ACHS(3," D ^DIE
+72 ;;ACHS TST VER^D ^ACHSTV
+73 ;;ACHS-HV-DENIAL-REPORT^
+74 ;;ACHS-HV-EDIT HV PROVIDERS^S DIE="^ACHSF(",DA=DUZ(2),DR=18 D ^DIE KILL DA,DIE,DR
+75 ;;ACHS-HV-MASTER^
+76 ;;ACHS-HV-MDOL-REPORT^
+77 ;;ACHS-HV-MDOL-TX^
+78 ;;ACHS-HV-PRINT HVP^
+79 ;;ACHS-HV-PRINT NOTIFICATION^
+80 ;;ACHS-HV-RECEIVE NOTIFICATION^
+81 ;;ACHS638CHECK1^I $$638^ACHSFU D ^ACHSCHK
+82 ;;ACHS638CHECKB^I $P(^ACHSF(DUZ(2),0),U,8)="Y",$P(^(0),U,9)="Y" D BATCH^ACHSCHK
+83 ;;ACHS638CHECKIN^I $$638^ACHSFU D RETURN^ACHSCHK1
+84 ;;ACHS638CHECKMENU^Q:'$$638^ACHSFU
+85 ;;ACHS638CHECKSOUT^
+86 ;;ACHS638CHECKSPRINTED^S:'$$638^ACHSFU ACHSXQT="" Q:$D(ACHSXQT) S ACHSIO=IO
+87 ;;ACHS638REPORTS^Q:'$$638^ACHSFU
+88 ;;ACHSAA^D ^ACHSAA
+89 ;;ACHSAB^D ^ACHSAB,^ACHSAA
+90 ;;ACHSAC^D ^ACHSAC,^ACHSAA
+91 ;;ACHSAD^
+92 ;;ACHSAD1^D ^ACHSAD
+93 ;;ACHSAI^D ^ACHSAI,^ACHSAA
+94 ;;ACHSAL^D ^ACHSAL,^ACHSAA
+95 ;;ACHSALUP^D ^ACHSALUP
+96 ;;ACHSAREA^
+97 ;;ACHSAREA DHR LIST^D ^ACHSPCC5
+98 ;;ACHSAREA MENU PO TRANSACTIONS^
+99 ;;ACHSAREA PARAMETERS^
+100 ;;ACHSAREA PO TRANS DISPLAY^
+101 ;;ACHSAREA SP VEN REPORT^
+102 ;;ACHSAREA SP/EX^D ^ACHSPCC1
+103 ;;ACHSAREACON^D ^ACHSACO
+104 ;;ACHSAREAEOBR9TRK^D ^ACHSEOB6
+105 ;;ACHSAREAEOBREDIT^
+106 ;;ACHSAREAEOBRERRS^D ^ACHSEOB5
+107 ;;ACHSAREAEOBRFACS^S ACHSIO=IO
+108 ;;ACHSAREAEOBRIN^S ACHSISAO=1 D ^ACHSEOB
+109 ;;ACHSAREAEOBROUT^D ^ACHSEOB8
+110 ;;ACHSAREAEOBRPROC^
+111 ;;ACHSAS^D ^ACHSAS,^ACHSAA
+112 ;;ACHSCANCCOBJ^
+113 ;;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 !!
+114 ;;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 !!
+115 ;;ACHSDA^D ^AGSEENLY
+116 ;;ACHSDENADD^KILL ACHS D ^ACHSDN
+117 ;;ACHSDENDELETE^D ^ACHSDND
+118 ;;ACHSDENDOCUMENT^S ACHSIO=IO D DUMP^ACHSDN2
+119 ;;ACHSDENEDIT^D ^ACHSDN2
+120 ;;ACHSDENLETTER^D ^ACHSDNL
+121 ;;ACHSDENPARM^Q:'$$638^ACHSFU S DIE="^ACHSDENR(",DA=DUZ(2)
+122 ;;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
+123 ;;ACHSDENPARMAMT^Q:'$$638^ACHSFU S DR=.06 D ^DIE
+124 ;;ACHSDENPARMBOT^Q:'$$638^ACHSFU S DR=3 D ^DIE
+125 ;;ACHSDENPARMCLOSE^S DR=8 D ^DIE
+126 ;;ACHSDENPARMFAC^S DR=.02 D ^DIE
+127 ;;ACHSDENPARMHEAD^Q:'$$638^ACHSFU S DR=1.1 D ^DIE
+128 ;;ACHSDENPARMLOF^S X="ACHSDENPARMLOF" D HDR^ACHS S DR=7 D ^DIE
+129 ;;ACHSDENPARMMID^Q:'$$638^ACHSFU S DR=2 D ^DIE
+130 ;;ACHSDENPARMNUMS^Q:'$$638^ACHSFU S DR=".03:.05" D ^DIE
+131 ;;ACHSDENPARMREA^Q:'$$638^ACHSFU S DR=1 D ^DIE
+132 ;;ACHSDENPARMSIG^Q:'$$638^ACHSFU NEW DIE,DA,DR S DIE="^ACHSDENR(",DA=DUZ(2),DR=6 D ^DIE
+133 ;;ACHSDENPARMUNMET^S DR=5,DIE="^ACHSDENR("
+134 ;;ACHSDENPVDRLIST^S ACHSIO=IO,D0=DUZ(2)
+135 ;;ACHSDENPVDRLISTNOT^S ACHSIO=IO
+136 ;;ACHSDENREASONS^S ACHSIO=IO
+137 ;;ACHSDENREP1^D ^ACHSDNI
+138 ;;ACHSDENREPMENU^
+139 ;;ACHSDENRPTHQ1^S ACHSIO=IO
+140 ;;ACHSDENSTATS^D ^ACHSDNS
+141 ;;ACHSDENUNMET^D ^ACHSDNU
+142 ;;ACHSDOCQ^D ^ACHSDSU
+143 ;;ACHSDOCSTATUSREP^D ^ACHSDST
+144 ;;ACHSDOCSTATUSREPF^D ^ACHSDSF
+145 ;;ACHSDOCUMENT^S ACHSIO=IO D DUMP^ACHSAD
+146 ;;ACHSEDITMEDICAL^S ACHSIO=IO D EDIT^ACHSPAM
+147 ;;ACHSEDITREFMEDI^S ACHSIO=IO D REF^ACHSPAM
+148 ;;ACHSFACEOBREPORTS^D ^ACHSEOB5
+149 ;;ACHSFACEOBRMENU^
+150 ;;ACHSFEOBR^S ACHSISAO=0 D ^ACHSEOB
+151 ;;ACHSINPEXPREP^D ^ACHSC6Q
+152 ;;ACHSLBL^D ^ACHSVLB
+153 ;;ACHSMENU^D ISMGR^ACHS(DUZ) S LEVEL=0 D LOGO^ACHS,^ACHSVAR
+154 ;;ACHSMGP^D ^ACHSVDV
+155 ;;ACHSMGPAR^
+156 ;;ACHSMGR^
+157 ;;ACHSNEWFY^D ^ACHSNEW
+158 ;;ACHSOA^
+159 ;;ACHSOBJCLASS^S DA=DUZ(2),DR="[ACHSOBCL]",DIE="^ACHS(3," D ^DIE
+160 ;;ACHSOD^D ^ACHSODQ
+161 ;;ACHSOP^D ^ACHSBOP
+162 ;;ACHSOV^S ACHSIO=IO D A1A^ACHSBOP
+163 ;;ACHSPA^D ^ACHSPA
+164 ;;ACHSPARMSFAC^
+165 ;;ACHSPATDOCS^D ^ACHSPDC
+166 ;;ACHSPATLABS^D ^AGVAR,^AGADDR KILL AGOPT
+167 ;;ACHSPAYADJUST^D ^ACHSAJ
+168 ;;ACHSPAYMENU^
+169 ;;ACHSPRINTEOBR^
+170 ;;ACHSPRINTEOBRBAT^D ^ACHSEBAT
+171 ;;ACHSPRINTEOBRDOC^D ^ACHSEDOC
+172 ;;ACHSPRINTEOBRFI^D ^ACHSEOB7
+173 ;;ACHSPRINTEOBRPAT^D ^ACHSEPAT
+174 ;;ACHSRA^
+175 ;;ACHSRC^
+176 ;;ACHSREPORTS^
+177 ;;ACHSRP^D ^ACHSRP
+178 ;;ACHSRPT3RDPAY^D ^ACHS3PPQ
+179 ;;ACHSRPTCANCC^S ACHSIO=IO
+180 ;;ACHSRPTCHEF^
+181 ;;ACHSRPTCPTREV^D ^ACHSCPTA
+182 ;;ACHSRPTCPTREVFM^
+183 ;;ACHSRPTCPTVNDR^D ^ACHSCPTD
+184 ;;ACHSRPTHOSPLOG^S ACHSIO=IO
+185 ;;ACHSRPTMEDIDATA^
+186 ;;ACHSRPTOBJCLASS^S ACHSIO=IO W !,"'NAME' is the name of your facility.",!
+187 ;;ACHSRPTOBJCLSSUM^D ^ACHSOCSQ
+188 ;;ACHSRPTOBJREG^S ACHSIO=IO
+189 ;;ACHSRPTOBJVNDR^
+190 ;;ACHSRPTOPTCOMM^S ACHSIO=IO
+191 ;;ACHSRPTPHYSPEC^
+192 ;;ACHSRPTSCC^S ACHSIO=IO W !,"'NAME' is the name of your facility.",!
+193 ;;ACHSRPTSCCSUM^D ^ACHSOCSQ
+194 ;;ACHSRPTSCCVNDR^
+195 ;;ACHSRR^S ACHSDUZ2=DUZ(2) D ^ACHSRR S DUZ(2)=ACHSDUZ2 K ACHSDUZ2 D ^ACHSVAR
+196 ;;ACHSSITEMAN^
+197 ;;ACHSTX^S ACHSREEX=0 D ^ACHSTX K ACHSREEX
+198 ;;ACHSTX MARK PATIENT^
+199 ;;ACHSTX MARK VENDOR^
+200 ;;ACHSTXAR^S ACHSREEX=1 D ^ACHSTX KILL ACHSREEX
+201 ;;ACHSVDOCS^D ^ACHSVDC
+202 ;;ACHSVENDPRT^D ^ACHSVND
+203 ;;ACHSVNDRUSAGE^D ^ACHSVUR
+204 ;;END
+205 ;;^END
+206 ;
DIM ;
+1 NEW ACHS,X
+2 FOR ACHS=1:1
SET X=$PIECE($TEXT(AUDOPTS+ACHS),"^",2,99)
IF X="END"
QUIT
WRITE $JUSTIFY(ACHS,8)
DO ^DIM
IF '$DATA(X)
WRITE !,$TEXT(AUDOPTS+ACHS)
+3 QUIT
+4 ;
