| 1 | SDP498P ;ALB/TEH - PCMM Post Init for locks; 18 Apr 2003 9:36 AM ; 8/23/05 2:34pm ; Compiled May 23, 2007 07:37:17
|
|---|
| 2 | ;;5.3;Scheduling;**498**;AUG 13, 1993;Build 23
|
|---|
| 3 | ;
|
|---|
| 4 | ;IA 4988 (APPROVED)
|
|---|
| 5 | ;
|
|---|
| 6 | ;The following OPTIONS will have the locks removed.
|
|---|
| 7 | ;
|
|---|
| 8 | ;
|
|---|
| 9 | ; SCMC EXTENDED REPORT
|
|---|
| 10 | ; SCMC FLAGGED
|
|---|
| 11 | ; SCMC INACTIVATED REPORT
|
|---|
| 12 | ; SC PCMM DIRECT PC FTEE
|
|---|
| 13 | ; SCMC PRACTITIONER FLAGGED
|
|---|
| 14 | ; SCMC PC STAFF AUTO INACTIVATE
|
|---|
| 15 | ; SCMC PCMM MAIN MENU
|
|---|
| 16 | ;
|
|---|
| 17 | ;
|
|---|
| 18 | ;The following OPTIONS will have the lock SC PCMM SETUP.
|
|---|
| 19 | ;
|
|---|
| 20 | ; SCMC PCMM NIGHTLY TASK
|
|---|
| 21 | ; SCMC RETRANSMIT
|
|---|
| 22 | ; SCMC PCMM ERR CODE REPORT
|
|---|
| 23 | ; SCMC EXTEND A PATIENT
|
|---|
| 24 | ; SCMC HL7 MENU
|
|---|
| 25 | ; SCMC CLEAN GHOST ENTRIES
|
|---|
| 26 | ; SCMC CLEAN INSTITUTION
|
|---|
| 27 | ;
|
|---|
| 28 | ;The following OPTION will have the lock SCMC PCMM RETRANSMIT.
|
|---|
| 29 | ;
|
|---|
| 30 | ; SCMC PCMM TRANS ERROR PROC
|
|---|
| 31 | ; SCMC PCMM TRANS ERROR REPORT
|
|---|
| 32 | ;
|
|---|
| 33 | ;The following OPTION will be deleted from the SCMC PCMM MAIN MENU.
|
|---|
| 34 | ;
|
|---|
| 35 | ;SCMC PCMM EWL MENU
|
|---|
| 36 | ;
|
|---|
| 37 | ;The following OPTION will be added the SCMC PCMM MAIN MENU.
|
|---|
| 38 | ;
|
|---|
| 39 | ; SD WAIT LIST MENU
|
|---|
| 40 | ;
|
|---|
| 41 | ;
|
|---|
| 42 | Q
|
|---|
| 43 | EN ;ENTRY POINT
|
|---|
| 44 | ;REMOVE LOCKS
|
|---|
| 45 | N SDPI,SDPX,DA,DR,DIE,DIK,SDPLOCK,SDPMESS,SDPMM,SDPEWL,SDPNEWL,DIC,X,SDPIEN
|
|---|
| 46 | F SDPI=1:1:7 S SDPX=$P($T(RE+SDPI),";",2) D
|
|---|
| 47 | .S DA=$O(^DIC(19,"B",SDPX,0)) I DA="" Q
|
|---|
| 48 | .S DR="3///@",DIE="^DIC(19," D ^DIE
|
|---|
| 49 | .S SDPMESS=" LOCK REMOVED FROM "_SDPX D MESS
|
|---|
| 50 | ;ADD LOCK SC PCMM SETUP
|
|---|
| 51 | S SDPLOCK="SC PCMM SETUP"
|
|---|
| 52 | F SDPI=1:1:7 S SDPX=$P($T(LOCK+SDPI),";",2) D
|
|---|
| 53 | .S DA=$O(^DIC(19,"B",SDPX,0)) I DA="" Q
|
|---|
| 54 | .S DR="3///^S X=SDPLOCK",DIE="^DIC(19," D ^DIE
|
|---|
| 55 | .S SDPMESS="LOCK SC PCMM SETUP HAS BEEN APPLIED TO "_SDPX D MESS
|
|---|
| 56 | S SDPLOCK="SCMC PCMM RETRANSMIT"
|
|---|
| 57 | F SDPI=8,9 S SDPX=$P($T(LOCK+SDPI),";",2) D
|
|---|
| 58 | .S DA=$O(^DIC(19,"B",SDPX,0)) I DA="" Q
|
|---|
| 59 | .S DR="3///^S X=SDPLOCK",DIE="^DIC(19," D ^DIE
|
|---|
| 60 | .S SDPMESS="LOCK SCMC PCMM RETRANSMIT HAS BEEN APPLIED TO "_SDPX D MESS
|
|---|
| 61 | OPT ;GET SCMC PCMM MAIN MENU INTERNAL IEN
|
|---|
| 62 | S SDPMM=$O(^DIC(19,"B","SCMC PCMM MAIN MENU",0)) Q:SDPMM=""
|
|---|
| 63 | I '$D(^DIC(19,SDPMM,0)) Q
|
|---|
| 64 | ;GET BAD OPTION IEN SCMC PCMM EWL MENU
|
|---|
| 65 | S SDPEWL=$O(^DIC(19,"B","SCMC PCMM EWL MENU",0)) Q:SDPEWL=""
|
|---|
| 66 | I '$D(^DIC(19,SDPEWL,0)) Q
|
|---|
| 67 | ;GET GOOD OPTION IEN SD WAIT LIST MENU
|
|---|
| 68 | S SDPNEWL=$O(^DIC(19,"B","SD WAIT LIST MENU",0)) Q:SDPNEWL=""
|
|---|
| 69 | DEL ;DELETE BAD OPTION
|
|---|
| 70 | S DA=$O(^DIC(19,SDPMM,10,"B",SDPEWL,0))
|
|---|
| 71 | I 'DA S SDPMESS="The OPTION SCMC PCMM EWL MENU is not on the SCMC PCMM MAIN MENU." G DEL1
|
|---|
| 72 | S DA(1)=SDPMM
|
|---|
| 73 | S DIK="^DIC(19,"_SDPMM_",10," D ^DIK
|
|---|
| 74 | S SDPMESS="The OPTION "_"SCMC PCMM EWL MENU has been removed."
|
|---|
| 75 | DEL1 D MES^XPDUTL(SDPMESS)
|
|---|
| 76 | ADD ;ADD EWL WAIT LIST OPTION
|
|---|
| 77 | S SDPMM=$O(^DIC(19,"B","SCMC PCMM MAIN MENU",0)) Q:SDPMM=""
|
|---|
| 78 | S SDPNEWL=$O(^DIC(19,"B","SD WAIT LIST MENU",0)) Q:SDPNEWL=""
|
|---|
| 79 | I $D(^DIC(19,SDPMM,10,"B",SDPNEWL)) D G ADDER
|
|---|
| 80 | .S SDPMESS="The OPTION "_"SD WAIT LIST MENU is already on the SCMC PCMM MAIN MENU."
|
|---|
| 81 | .S SDPMESS(1)="*** No update for SCMC PCMM MAIN MENU will be made."
|
|---|
| 82 | S DA(1)=SDPMM,DIC(0)="L",DA=SDPNEWL,X=SDPNEWL
|
|---|
| 83 | S DIC="^DIC(19,"_DA(1)_",10,",DIC("P")=$P(^DD(19,10,0),U,2) K D0
|
|---|
| 84 | D FILE^DICN
|
|---|
| 85 | ADD0 S DA(1)=SDPMM,DR="2////^S X=""WL"""
|
|---|
| 86 | S DR(1)="10;"
|
|---|
| 87 | S DR(1,19)="10;"
|
|---|
| 88 | S DR(2,"19.01")="2",DIE="^DIC(19,"_DA(1)_",10,"
|
|---|
| 89 | D ^DIE
|
|---|
| 90 | S SDPMESS="The OPTION "_"SD WAIT LIST MENU has been added."
|
|---|
| 91 | ADD1 S SDPMM=$O(^DIC(19,"B","SCMC PCMM MAIN MENU",0)) Q:SDPMM=""
|
|---|
| 92 | S SDPNEWL=$O(^DIC(19,"B","SD WAIT LIST MENU",0)) Q:SDPNEWL=""
|
|---|
| 93 | S SDPIEN=$O(^DIC(19,SDPMM,10,"B",SDPNEWL,0))
|
|---|
| 94 | S SDPMM=$O(^DIC(19,"B","SCMC PCMM MAIN MENU",0)) Q:SDPMM=""
|
|---|
| 95 | S DA(1)=SDPMM,DA=SDPIEN,DR="2////^S X=""WL"""
|
|---|
| 96 | S DR(1)="10;"
|
|---|
| 97 | S DR(1,19)="10;"
|
|---|
| 98 | S DR(2,"19.01")="2",DIE="^DIC(19,"_DA(1)_",10,"
|
|---|
| 99 | D ^DIE
|
|---|
| 100 | S SDPMESS="The NEW WAIT LIST OPTION has been place on the SCMC PCMM MAIN MENU."
|
|---|
| 101 | ADDER D MES^XPDUTL(SDPMESS) I $D(SDPMESS(1)) D
|
|---|
| 102 | .S SDPMESS=SDPMESS(1) D MES^XPDUTL(SDPMESS)
|
|---|
| 103 | ;REPAIR REPORTS MENU IN EWL MENU
|
|---|
| 104 | Q
|
|---|
| 105 | MESS D MES^XPDUTL(SDPMESS)
|
|---|
| 106 | Q
|
|---|
| 107 | RE ;REMOVAL LIST
|
|---|
| 108 | ;SCMC EXTENDED REPORT
|
|---|
| 109 | ;SCMC FLAGGED
|
|---|
| 110 | ;SCMC INACTIVATED REPORT
|
|---|
| 111 | ;SC PCMM DIRECT PC FTEE
|
|---|
| 112 | ;SCMC PRACTITIONER FLAGGED
|
|---|
| 113 | ;SCMC PC STAFF AUTO INACTIVATE
|
|---|
| 114 | ;SCMC PCMM MAIN MENU
|
|---|
| 115 | ;
|
|---|
| 116 | LOCK ;LOCK LIST
|
|---|
| 117 | ;SCMC PCMM NIGHTLY TASK
|
|---|
| 118 | ;SCMC PCMM ERR CODE REPORT
|
|---|
| 119 | ;SCMC EXTEND A PATIENT
|
|---|
| 120 | ;SCMC HL7 MENU
|
|---|
| 121 | ;SCMC CLEAN GHOST ENTRIES
|
|---|
| 122 | ;SCMC CLEAN INSTITUTION
|
|---|
| 123 | ;SCMC RETRANSMIT
|
|---|
| 124 | ;SCMC PCMM TRANS ERROR REPORT
|
|---|
| 125 | ;SCMC PCMM TRANS ERROR PROC
|
|---|
