source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDP498P.m@ 1185

Last change on this file since 1185 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 4.2 KB
Line 
1SDP498P ;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
43EN ;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
61OPT ;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=""
69DEL ;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."
75DEL1 D MES^XPDUTL(SDPMESS)
76ADD ;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
85ADD0 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."
91ADD1 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."
101ADDER 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
105MESS D MES^XPDUTL(SDPMESS)
106 Q
107RE ;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 ;
116LOCK ;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
Note: See TracBrowser for help on using the repository browser.