| [613] | 1 | SCAPMC ;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 --------------------------------
|
|---|
| 19 | TPPR(SC200,SCDATES,SCPURPA,SCROLEA,SCLIST,SCERR) ; -- positions for a practitioner
|
|---|
| 20 | Q $$TPPR^SCAPMC12(.SC200,.SCDATES,.SCPURPA,.SCROLEA,.SCLIST,.SCERR)
|
|---|
| 21 | ;
|
|---|
| 22 | TPPT(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)
|
|---|
| 24 | TPCL(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 | ;
|
|---|
| 27 | TPTM(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 ------------------------------
|
|---|
| 31 | PRTM(SCTEAM,SCDATES,SCUSRA,SCROLEA,SCLIST,SCERR) ; -- practitioners for team **SUPPORTED**
|
|---|
| 32 | Q $$PRTM^SCAPMC1(.SCTEAM,.SCDATES,.SCUSRA,.SCROLEA,.SCLIST,.SCERR)
|
|---|
| 33 | ;
|
|---|
| 34 | PRTP(SCTP,SCDATES,SCLIST,SCERR,SCPRCPTR,SCALLHIS) ; -- list practitioners for position
|
|---|
| 35 | Q $$PRTP^SCAPMC8(.SCTP,.SCDATES,.SCLIST,.SCERR,.SCPRCPTR,.SCALLHIS)
|
|---|
| 36 | ;
|
|---|
| 37 | PRTPC(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 | ;
|
|---|
| 41 | PRCL(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 | ;
|
|---|
| 44 | PRPT(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 -------------------------------
|
|---|
| 48 | PTTM(SCTEAM,SCDATES,SCLIST,SCERR) ; -- list of patients for team **SUPPORTED**
|
|---|
| 49 | Q $$PTTM^SCAPMC2(.SCTEAM,.SCDATES,.SCLIST,.SCERR)
|
|---|
| 50 | ;
|
|---|
| 51 | PTTP(SCTP,SCDATES,SCLIST,SCERR) ; -- list of patients for a position
|
|---|
| 52 | Q $$PTTP^SCAPMC11(.SCTP,.SCDATES,.SCLIST,.SCERR)
|
|---|
| 53 | ;
|
|---|
| 54 | PTPR(SC200,SCDATES,SCPURPA,SCROLEA,SCLIST,SCERR,SCYESCL) ; -- list patients for a pract
|
|---|
| 55 | Q $$PTPR^SCAPMC14(.SC200,.SCDATES,.SCPURPA,.SCROLEA,.SCLIST,.SCERR,.SCYESCL)
|
|---|
| 56 | ;
|
|---|
| 57 | PTCL(SC44,SCDATES,SCLIST,SCERR) ; -- list of patients for a clinic
|
|---|
| 58 | Q $$PTCL^SCAPMC26(.SC44,.SCDATES,.SCLIST,.SCERR)
|
|---|
| 59 | ;
|
|---|
| 60 | PTST(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 | ;
|
|---|
| 63 | PTAP(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 ----------------------------------
|
|---|
| 67 | TMPT(DFN,SCDATES,SCPURPA,SCLIST,SCERR) ; -- list of teams for a patient **SUPPORTED**
|
|---|
| 68 | Q $$TMPT^SCAPMC3(.DFN,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
|
|---|
| 69 | ;
|
|---|
| 70 | TMINST(SCINST,SCDATES,SCPURPA,SCLIST,SCERR) ; -- teams for institution
|
|---|
| 71 | Q $$TMINST^SCAPMC4(.SCINST,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
|
|---|
| 72 | ;
|
|---|
| 73 | TMAU(SCAU,SCDATES,SCPURPA,SCLIST,SCERR) ; -- list of teams for autolink
|
|---|
| 74 | Q $$TMAU^SCAPMC5(.SCAU,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
|
|---|
| 75 | ;
|
|---|
| 76 | TMPR(SC200,SCDATES,SCPURPA,SCLIST,SCERR) ; -- teams for a practitioner
|
|---|
| 77 | Q $$TMPR^SCAPMC13(.SC200,.SCDATES,.SCPURPA,.SCLIST,.SCERR)
|
|---|
| 78 | ;
|
|---|
| 79 | ; (5) ------------ MailMan Message Recipients ----------------
|
|---|
| 80 | MSGDTH(DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) ; users getting death message
|
|---|
| 81 | Q $$MSGPT^SCAPMC25(1,.DFN,.SCTEAMA,.SCDATES,.SCYESCL,.SCLIST,.SCERR)
|
|---|
| 82 | ;
|
|---|
| 83 | MSGINPT(DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) ; users getting inpatient msg
|
|---|
| 84 | Q $$MSGPT^SCAPMC25(2,.DFN,.SCTEAMA,.SCDATES,.SCYESCL,.SCLIST,.SCERR)
|
|---|
| 85 | ;
|
|---|
| 86 | MSGTEAM(DFN,SCTEAMA,SCDATES,SCYESCL,SCLIST,SCERR) ; users getting team update msg
|
|---|
| 87 | Q $$MSGPT^SCAPMC25(3,.DFN,.SCTEAMA,.SCDATES,.SCYESCL,.SCLIST,.SCERR)
|
|---|
| 88 | ;
|
|---|
| 89 | MSGCONS(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 ---------------------------
|
|---|
| 93 | ACPTTM(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 | ;
|
|---|
| 96 | INPTTM(DFN,SCPTTM,SCINACT,SCERR) ;inactivate patient from a team.
|
|---|
| 97 | ; pt tm assgn - #404.42.
|
|---|
| 98 | Q $$INPTTM^SCAPMC7(.DFN,.SCPTTM,.SCINACT,.SCERR)
|
|---|
| 99 | ;
|
|---|
| 100 | ACTMNM(SCTMNM,SCFIELDA,SCMAINA,SCEFF,SCERR) ; -- change team status (add if need be) using name
|
|---|
| 101 | Q $$ACTMNM^SCAPMC15(.SCTMNM,.SCFIELDA,.SCMAINA,.SCEFF,.SCERR)
|
|---|
| 102 | ;
|
|---|
| 103 | ACTM(SCTM,SCFIELDA,SCEFF,SCERR) ; change team status using ien
|
|---|
| 104 | Q $$ACTM^SCAPMC15(.SCTM,.SCFIELDA,.SCEFF,.SCERR)
|
|---|
| 105 | ;
|
|---|
| 106 | ACTPNM(SCTPNM,SCTMNM,SCFIELDA,SCMAINA,SCEFF,SCERR) ; -- change position status (add if need be)
|
|---|
| 107 | Q $$ACTPNM^SCAPMC17(.SCTPNM,.SCTMNM,.SCFIELDA,.SCMAINA,.SCEFF,.SCERR)
|
|---|
| 108 | ;
|
|---|
| 109 | ACTP(SCTP,SCFIELDA,SCEFF,SCERR) ; change position status using ien
|
|---|
| 110 | Q $$ACTP^SCAPMC17(.SCTP,.SCFIELDA,.SCEFF,.SCERR)
|
|---|
| 111 | ;
|
|---|
| 112 | ACPRTP(SC200,SCTP,SCFIELDA,SCEFF,SCERR) ; change practitioner-position assignment
|
|---|
| 113 | Q $$ACPRTP^SCAPMC19(.SC200,.SCTP,.SCFIELDA,.SCEFF,.SCERR)
|
|---|
| 114 | ;
|
|---|
| 115 | ACPTTP(DFN,SCTP,SCFIELDA,SCACT,SCERR,SCYESTM,SCMAINA) ; -- assign patient to position
|
|---|
| 116 | Q $$ACPTTP^SCAPMC21(.DFN,.SCTP,.SCFIELDA,.SCACT,.SCERR,.SCYESTM,.SCMAINA)
|
|---|
| 117 | ;
|
|---|
| 118 | INPTTP(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 -------------------------------
|
|---|
| 123 | CLPT(DFN,SCDATES,SCTEAMA,SCLIST,SCERR) ;clinics for patient
|
|---|
| 124 | ;
|
|---|
| 125 | Q $$CLPT^SCAPMC29(.DFN,.SCDATES,.SCTEAMA,.SCLIST,.SCERR)
|
|---|
| 126 | ;
|
|---|
| 127 | INSTPCTM(DFN,SCEFF) ;return institution & team for pt's pc team **SUPPORTED **
|
|---|
| 128 | Q $$INSTPCTM^SCMCTMU(.DFN,.SCEFF)
|
|---|
| 129 | ;
|
|---|
| 130 | PRPTTP(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 | ;
|
|---|
| 134 | PRPTTPC(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 | ;
|
|---|
| 138 | PROV(PTTMPOS,SCDATE,SCTYPE,SCPIECE) ;Return a single node/piece for AP/PCP.
|
|---|
| 139 | Q $$PROV^SCAPMC34(.PTTMPOS,.SCDATE,.SCTYPE,.SCPIECE)
|
|---|
