- 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 ;