source: FOIAVistA/trunk/r/SCHEDULING-SD-SC/SCAPMC.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 6.6 KB
Line 
1SCAPMC ;ALB/REW - Team API's ; 6/21/99 2:31pm
2 ;;5.3;Scheduling;**41,177**;AUG 13, 1993
3 ;;1.0
4 ; ** This is the main calling routine for the PCMM (Managed Care) APIs
5 ; ** More detailed comments are included with the called routines
6 ;
7 ; (1) Position Lists
8 ; (2) Practitioner Lists
9 ; (3) Patient Lists
10 ; (4) Team Lists
11 ; (5) MailMan Message Recipient Lists
12 ; (6) Database Updates
13 ; (7) Other
14 ;
15 ; ** Note: Most of these calls are not supported. Calls supported
16 ; for all programmers are indicated as **SUPPORTED**
17 ;
18 ; (1) ------------- Position Lists --------------------------------
19TPPR(SC200,SCDATES,SCPURPA,SCROLEA,SCLIST,SCERR) ; -- positions for a practitioner
20 Q $$TPPR^SCAPMC12(.SC200,.SCDATES,.SCPURPA,.SCROLEA,.SCLIST,.SCERR)
21 ;
22TPPT(DFN,SCDATES,SCPOSA,SCUSRA,SCPURPA,SCROLEA,SCYESCL,SCLIST,SCERR) ; -- list of positions for a patient
23 Q $$TPPT^SCAPMC23(.DFN,.SCDATES,.SCPOSA,.SCUSRA,.SCPURPA,.SCROLEA,.SCYESCL,.SCLIST,.SCERR)
24TPCL(SC44,SCDATES,SCPOSA,SCUSRA,SCPURPA,SCROLEA,SCLIST,SCERR) ; -- list of positions for a clinic
25 Q $$TPCL^SCAPMC30(.SC44,.SCDATES,.SCPOSA,.SCUSRA,.SCPURPA,.SCROLEA,.SCLIST,.SCERR)
26 ;
27TPTM(SCTEAM,SCDATES,SCUSRA,SCROLEA,SCLIST,SCERR) ; -- positions for a team
28 Q $$TPTM^SCAPMC24(.SCTEAM,.SCDATES,.SCUSRA,.SCROLEA,.SCLIST,.SCERR)
29 ;
30 ; (2) ------------ Practitioner Lists ------------------------------
31PRTM(SCTEAM,SCDATES,SCUSRA,SCROLEA,SCLIST,SCERR) ; -- practitioners for team **SUPPORTED**
32 Q $$PRTM^SCAPMC1(.SCTEAM,.SCDATES,.SCUSRA,.SCROLEA,.SCLIST,.SCERR)
33 ;
34PRTP(SCTP,SCDATES,SCLIST,SCERR,SCPRCPTR,SCALLHIS) ; -- list practitioners for position
35 Q $$PRTP^SCAPMC8(.SCTP,.SCDATES,.SCLIST,.SCERR,.SCPRCPTR,.SCALLHIS)
36 ;
37PRTPC(SCTP,SCDATES,SCLIST,SCERR,SCALLHIS,ADJDATE) ;Call PRTP and convert
38 ;returned array from Provider/Preceptor to PROV-P, PROV-U, PREC.
39 Q $$PRTPC^SCAPMC8C(.SCTP,.SCDATES,.SCLIST,.SCERR,.SCALLHIS,.ADJDATE)
40 ;
41PRCL(SC44,SCDATES,SCPOSA,SCUSRA,SCROLEA,SCLIST,SCERR) ; -- list of practitioners for clinic **SUPPORTED**
42 Q $$PRCL^SCAPMC9(.SC44,.SCDATES,.SCPOSA,.SCUSRA,.SCROLEA,.SCLIST,.SCERR)
43 ;
44PRPT(DFN,SCDATES,SCPOSA,SCUSRA,SCROLEA,SCPURPA,SCLIST,SCERR) ; -- practs for patient **SUPPORTED**
45 Q $$PRPT^SCAPMC10(.DFN,.SCDATES,.SCPOSA,.SCUSRA,.SCROLEA,.SCPURPA,.SCLIST,.SCERR)
46 ;
47 ; (3) -------------Patient Lists -------------------------------
48PTTM(SCTEAM,SCDATES,SCLIST,SCERR) ; -- list of patients for team **SUPPORTED**
49 Q $$PTTM^SCAPMC2(.SCTEAM,.SCDATES,.SCLIST,.SCERR)
50 ;
51PTTP(SCTP,SCDATES,SCLIST,SCERR) ; -- list of patients for a position
52 Q $$PTTP^SCAPMC11(.SCTP,.SCDATES,.SCLIST,.SCERR)
53 ;
54PTPR(SC200,SCDATES,SCPURPA,SCROLEA,SCLIST,SCERR,SCYESCL) ; -- list patients for a pract
55 Q $$PTPR^SCAPMC14(.SC200,.SCDATES,.SCPURPA,.SCROLEA,.SCLIST,.SCERR,.SCYESCL)
56 ;
57PTCL(SC44,SCDATES,SCLIST,SCERR) ; -- list of patients for a clinic
58 Q $$PTCL^SCAPMC26(.SC44,.SCDATES,.SCLIST,.SCERR)
59 ;
60PTST(SCST,SCDATES,SCMAXCNT,SCLIST,SCERR,MORE) ; -- list of patients with a IEN of 40.7
61 Q $$PTST^SCAPMC27(.SCST,.SCDATES,.SCMAXCNT,.SCLIST,.SCERR,.MORE)
62 ;
63PTAP(SCCL,SCDATES,SCMAXCNT,SCLIST,SCERR,MORE) ; -- list of patients with an appointment in a given clinic
64 Q $$PTAP^SCAPMC28(.SCCL,.SCDATES,.SCMAXCNT,.SCLIST,.SCERR,.MORE)
65 ;
66 ; (4) ------------Team Lists ----------------------------------
67TMPT(DFN,SCDATES,SCPURPA,SCLIST,SCERR) ; -- list of teams for a patient **SUPPORTED**
68 Q $$TMPT^SCAPMC3(.DFN,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
69 ;
70TMINST(SCINST,SCDATES,SCPURPA,SCLIST,SCERR) ; -- teams for institution
71 Q $$TMINST^SCAPMC4(.SCINST,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
72 ;
73TMAU(SCAU,SCDATES,SCPURPA,SCLIST,SCERR) ; -- list of teams for autolink
74 Q $$TMAU^SCAPMC5(.SCAU,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
75 ;
76TMPR(SC200,SCDATES,SCPURPA,SCLIST,SCERR) ; -- teams for a practitioner
77 Q $$TMPR^SCAPMC13(.SC200,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
78 ;
79 ; (5) ------------ MailMan Message Recipients ----------------
80MSGDTH(DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) ; users getting death message
81 Q $$MSGPT^SCAPMC25(1,.DFN,.SCTEAMA,.SCDATES,.SCYESCL,.SCLIST,.SCERR)
82 ;
83MSGINPT(DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) ; users getting inpatient msg
84 Q $$MSGPT^SCAPMC25(2,.DFN,.SCTEAMA,.SCDATES,.SCYESCL,.SCLIST,.SCERR)
85 ;
86MSGTEAM(DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) ; users getting team update msg
87 Q $$MSGPT^SCAPMC25(3,.DFN,.SCTEAMA,.SCDATES,.SCYESCL,.SCLIST,.SCERR)
88 ;
89MSGCONS(DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) ; users getting consult message
90 Q $$MSGPT^SCAPMC25(4,.DFN,.SCTEAMA,.SCDATES,.SCYESCL,.SCLIST,.SCERR)
91 ;
92 ; (6) ------------- Database Updates ---------------------------
93ACPTTM(DFN,SCTM,SCFIELDA,SCACT,SCERR) ;add a patient to a team (pt tm assgn - #404.42
94 Q $$ACPTTM^SCAPMC6(.DFN,.SCTM,.SCFIELDA,.SCACT,.SCERR)
95 ;
96INPTTM(DFN,SCPTTM,SCINACT,SCERR) ;inactivate patient from a team.
97 ; pt tm assgn - #404.42.
98 Q $$INPTTM^SCAPMC7(.DFN,.SCPTTM,.SCINACT,.SCERR)
99 ;
100ACTMNM(SCTMNM,SCFIELDA,SCMAINA,SCEFF,SCERR) ; -- change team status (add if need be) using name
101 Q $$ACTMNM^SCAPMC15(.SCTMNM,.SCFIELDA,.SCMAINA,.SCEFF,.SCERR)
102 ;
103ACTM(SCTM,SCFIELDA,SCEFF,SCERR) ; change team status using ien
104 Q $$ACTM^SCAPMC15(.SCTM,.SCFIELDA,.SCEFF,.SCERR)
105 ;
106ACTPNM(SCTPNM,SCTMNM,SCFIELDA,SCMAINA,SCEFF,SCERR) ; -- change position status (add if need be)
107 Q $$ACTPNM^SCAPMC17(.SCTPNM,.SCTMNM,.SCFIELDA,.SCMAINA,.SCEFF,.SCERR)
108 ;
109ACTP(SCTP,SCFIELDA,SCEFF,SCERR) ; change position status using ien
110 Q $$ACTP^SCAPMC17(.SCTP,.SCFIELDA,.SCEFF,.SCERR)
111 ;
112ACPRTP(SC200,SCTP,SCFIELDA,SCEFF,SCERR) ; change practitioner-position assignment
113 Q $$ACPRTP^SCAPMC19(.SC200,.SCTP,.SCFIELDA,.SCEFF,.SCERR)
114 ;
115ACPTTP(DFN,SCTP,SCFIELDA,SCACT,SCERR,SCYESTM,SCMAINA) ; -- assign patient to position
116 Q $$ACPTTP^SCAPMC21(.DFN,.SCTP,.SCFIELDA,.SCACT,.SCERR,.SCYESTM,.SCMAINA)
117 ;
118INPTTP(DFN,SCPTTPA,SCINACT,SCERR) ;inactivate patient from a position.
119 ; pt tm pos assgn - #404.43.
120 Q $$INPTTP^SCAPMC22(.DFN,.SCPTTPA,.SCINACT,.SCERR)
121 ;
122 ; (7) -------------Other -------------------------------
123CLPT(DFN,SCDATES,SCTEAMA,SCLIST,SCERR) ;clinics for patient
124 ;
125 Q $$CLPT^SCAPMC29(.DFN,.SCDATES,.SCTEAMA,.SCLIST,.SCERR)
126 ;
127INSTPCTM(DFN,SCEFF) ;return institution & team for pt's pc team **SUPPORTED **
128 Q $$INSTPCTM^SCMCTMU(.DFN,.SCEFF)
129 ;
130PRPTTP(PTTMPOS,SCDATES,SCLIST,SCERR,SCALLHIS,ADJDATE) ;Get provider array
131 ;for a Patient Team Position Assignment (404.43).
132 Q $$PRPTTP^SCAPMC33(.PTTMPOS,.SCDATES,.SCLIST,.SCERR,.SCALLHIS,.ADJDATE)
133 ;
134PRPTTPC(PTTMPOS,SCDATES,SCLIST,SCERR,SCALLHIS,ADJDATE) ;
135 ;Call PRPTTP and convert returned array from Prov/Prec to PCP/AP.
136 Q $$PRPTTPC^SCAPMC34(.PTTMPOS,.SCDATES,.SCLIST,.SCERR,.SCALLHIS,.ADJDATE)
137 ;
138PROV(PTTMPOS,SCDATE,SCTYPE,SCPIECE) ;Return a single node/piece for AP/PCP.
139 Q $$PROV^SCAPMC34(.PTTMPOS,.SCDATE,.SCTYPE,.SCPIECE)
Note: See TracBrowser for help on using the repository browser.