©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCAPMC26 ;ALB/REW - API: Patients in a Clinic ; December 1, 1995 [12/21/98 4:30pm]
Source file <SCAPMC26.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 3 | ($$PTTM,$$PTTP)^SCAPMC (ERR,INIT)^SCAPMCU1 $$DTCHK^SCAPU1 |
| IHS Changes To ADT | 1 | $$HRCN^BDGF2 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PTCLBRTP(SC44,SCTP,SCDATES) | ;for PCMM use only!! returns list to ^tmp($j,'scclpt'
; SC44 - Clinic we're adding to team ; SCTP - EXCLUDES Patients assigned to SCTP Position during scdates ; SCDATES - Standard Date array ; Returns: $j if successful & at least one entry, 0 if error or none ; Warning: Kills ^tmp($j,'scclpt') before it runs |
|
| ST | ||
| PTCL(SC44,SCDATES,SCLIST,SCERR) | ; patients in a clinic
; Input: ; SC44 - Pointer to Hospital Location File #44 ; SCDATES- Date array (begin, end, incl) ; SCLIST - Name of output array ; SCERR = array NAME to store error messages. ; [ex. ^TMP("ORXX",$J ; Output: ; SCLIST() = array of practitioners (users) - pointers to file #200 ; Format: ; Subscript: Sequential # from 1 to n ; Piece Description ; 1 DFN - Ptr to Patient File (#2) ; 2 Patient Name (External) ; 3 null ; 4 Activation Date ; 5 Discharge Date ; 6 '1' - for merge reasons with other pt lists ; 7 sc44 |
|
| CLTPQ | ||
| PTCLBR(SC44,SCTM,SCDATES) | ;for PCMM use only!! returns list to ^tmp($j,'scclpt'
; SC44 - Clinic we're adding to team ; SCTM - EXCLUDES Patients assigned to SCTM Team during time period ; SCDATES - Standard Date array ; Returns: $j if successful & at least one entry, 0 if error or none ; Warning: Kills ^tmp($j,'scclpt') before it runs & ^tmp('scmc',$j,'exclude pt') after it runs |
|
| OKDATA() | ;check/setup variables - return 1 if ok; 0 if error
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | ST+17, ST+22 |
| ^DPT("AEB1" | ST+7, ST+9, ST+13, ST+15 |
| ^SC - [#44] | OKDATA+5 |
| ^TMP("SCMC" | ST+10, PTCLBR+10!, PTCLBRTP+10! |
| ^TMP($J | PTCLBR+7!, PTCLBR+11, PTCLBRTP+7!, PTCLBRTP+11 |
| Name | Line Occurrences |
|---|---|
| $$OKDATA | ST+4 |
| $$PTCL | PTCLBR+9, PTCLBRTP+9 |
| CLTPQ | ST+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DFN | ST~, ST+8*, ST+9*, ST+10, ST+13, ST+15, ST+17, ST+22, ST+24 |
| DUZ(2 | ST+22 |
| SC44 | PTCL~, ST+7, ST+9, ST+13, ST+15, ST+22, OKDATA+5, OKDATA+6, PTCLBR~, PTCLBR+9 , PTCLBRTP~, PTCLBRTP+9 |
| SCBEGIN | ST+1~, ST+18 |
| SCCL | ST~, ST+13*, ST+14, ST+15, ST+17 |
| SCCLDT | ST~, ST+6*, ST+7*, ST+9, ST+13, ST+15 |
| SCCLERR | PTCLBR+6~, PTCLBRTP+6~ |
| SCDATES | PTCL~, PTCLBR~, PTCLBR+8, PTCLBR+9, PTCLBRTP~, PTCLBRTP+8, PTCLBRTP+9 |
| SCDTS | ST+1~ |
| SCEND | ST+1~, ST+18 |
| SCERR | PTCL~, CLTPQ, OKDATA+7, OKDATA+10 |
| SCESEQ | ST+1~, OKDATA+3*, OKDATA+7, OKDATA+10 |
| SCINCL | ST+1~, ST+18 |
| SCLIST | PTCL~, ST+19, ST+20, ST+22, ST+24, OKDATA+8, OKDATA+9 |
| SCLSEQ | ST+1~, OKDATA+3* |
| SCN | ST+1~, ST+19*, ST+20, ST+22, ST+24, OKDATA+3* |
| >> SCNODE | ST+17*, ST+18, ST+22 |
| SCOK | ST~, ST+3*, OKDATA+1~, OKDATA+2*, OKDATA+4, OKDATA+5*, OKDATA+8*, OKDATA+11 |
| SCPARM | ST+1~, OKDATA+7, OKDATA+10 |
| SCPARM("CLINIC" | OKDATA+6* |
| SCPARM("OUTPU | T ARRAY" , OKDATA+9* |
| SCTM | PTCLBR~, PTCLBR+8 |
| SCTP | PTCLBRTP~, PTCLBRTP+8 |
| SCX | ST+15*, ST+16, ST+17, ST+24, PTCLBR+6~, PTCLBR+9*, PTCLBR+11, PTCLBRTP+6~, PTCLBRTP+9*, PTCLBRTP+11 |
| SCXX | PTCLBR+6~, PTCLBR+8*, PTCLBRTP+6~, PTCLBRTP+8* |
| U | ST+18, ST+22 |