©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
SCMCDD ;ALB/REW - DD Calls used by PCMM ; 6 November 1995
Source file <SCMCDD.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 4 | ($$PRTP,$$PTTM,$$PTTP,$$TPTM)^SCAPMC ($$DATES,$$LASTDATE,ERR)^SCAPMCU1 ($$ACTHIST,$$DTAFTER,$$DTBEFORE)^SCAPMCU2 ($$BADCHGDT,$$BADNEWDT)^SCMCDDA |
| VA Fileman | 1 | DD^%DT |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OKCHGDT(FILE,HISTIEN,DATE,SCERR) | ;PCMM history files - ok to change date?
; input: ; FILE = History File: 404.52,404.53,404.58, or 404.59 ; HISTIEN - IEN of History File (404.52,404.58 or 404.59) ; SCERR = [default = "SCERR"] ; output: ; Returned: 1 if ok to change date, 0 if not^message ; @scerr = error message array |
|
| QTOKDEL | ||
| QTOKCHK | ||
| OKINACT(FILE,IEN,DATE,SCERR) | ;PCMM history files - inactivate record?
; input: ; ** Complete ** ; input: ; FILE = History File: 404.52,404.53,404.58, or 404.59 ; IEN = IEN of non-History File: ; Team Position (#404.57) for 404.52 & 404.59 ; Team (#404.51) for 404.58 ; DATE = Date to inactivate ; SCERR = [default = "SCERR"] ; output: ; Returned: 1=ok on date/0 ow^1=ok in future/0 ow^message^techmessage ; @scerr = error message array |
|
| OKDEL(FILE,HISTIEN,SCERR) | ;PCMM history files - delete record
; input: ; FILE = History File: 404.52,404.53,404.58, or 404.59 ; HISTIEN = Entry in FILE ; SCERR = [default = "SCERR"] ; output: ; Returned: 1 if ok to delete, 0 if not^message ; @scerr = error message array |
|
| NEWHIST(FILE,IEN,DATE,SCERR,STATUS) | ; PCMM history files - new record's dt & status
; Complete ; input: ; FILE = 404.52,404.53,404.58, or 404.59 ; IEN = if file=404.58 - pointer to 404.51 ; otherwise - pointer to 404.57 ; DATE = effective date ; SCERR = [default = "SCERR"] ; STATUS = [optional] 1=active/0=inactive - IF undefined don't check ; output: ; Returned: 1 if ok to add, 0 if not^message^external ; Note: For 404.52: special case ; @scerr = error message array |
|
| QTNWHIST | ||
| POSHIS | ||
| TEAMHIS | ||
| QTOKIN |
| Name | Field # of Occurrence |
|---|---|
| DD^%DT | NEWHIST+19, OKDEL+14, OKINACT+17, OKINACT+26, TEAMHIS+6, OKCHGDT+18, OKCHGDT+22 |
| $$PRTP^SCAPMC | POSHIS+2 |
| $$PTTM^SCAPMC | TEAMHIS+11 |
| $$PTTP^SCAPMC | POSHIS+10 |
| $$TPTM^SCAPMC | TEAMHIS+2 |
| $$DATES^SCAPMCU1 | NEWHIST+21 |
| $$LASTDATE^SCAPMCU1 | NEWHIST+17, OKDEL+12, OKINACT+15 |
| ERR^SCAPMCU1 | NEWHIST+25, NEWHIST+29 |
| $$ACTHIST^SCAPMCU2 | OKINACT+22 |
| $$DTAFTER^SCAPMCU2 | OKCHGDT+16 |
| $$DTBEFORE^SCAPMCU2 | OKCHGDT+20 |
| $$BADCHGDT^SCMCDDA | OKCHGDT+25 |
| $$BADNEWDT^SCMCDDA | NEWHIST+31 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SC - [#44] | POSHIS+8 |
| ^SCTM(404.57 - [#404.57] | TEAMHIS+7, POSHIS+7 |
| ^TMP($J | TEAMHIS+12, TEAMHIS+13, TEAMHIS+14, POSHIS+11, POSHIS+13 |
| Name | Line Occurrences |
|---|---|
| $$OKINACT | OKDEL+18, TEAMHIS+8 |
| QTNWHIST | NEWHIST+18, NEWHIST+22, NEWHIST+26, NEWHIST+31, NEWHIST+34, NEWHIST+35 |
| QTOKCHK | OKCHGDT+12, OKCHGDT+17, OKCHGDT+21, OKCHGDT+25 |
| QTOKDEL | OKDEL+13 |
| QTOKIN | OKINACT+16, OKINACT+23 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DATE | NEWHIST~, NEWHIST+18, NEWHIST+21, NEWHIST+26, NEWHIST+28, OKINACT~, OKINACT+16, OKINACT+19, OKINACT+26, OKINACT+27 , TEAMHIS+5, TEAMHIS+8, TEAMHIS+13, TEAMHIS+14, POSHIS+4, POSHIS+5, POSHIS+12, POSHIS+13, OKCHGDT~, OKCHGDT+17 , OKCHGDT+21 |
| DIERR | NEWHIST+13~ |
| FILE | NEWHIST~, NEWHIST+17, NEWHIST+21, OKDEL~, OKDEL+10, OKDEL+12, OKDEL+17, OKDEL+18, OKINACT~, OKINACT+15 , OKINACT+22, TEAMHIS, POSHIS, OKCHGDT~, OKCHGDT+10, OKCHGDT+13, OKCHGDT+16, OKCHGDT+20 |
| HISTIEN | OKDEL~, OKDEL+10, OKCHGDT~, OKCHGDT+10, OKCHGDT+12 |
| IEN | NEWHIST~, NEWHIST+17, NEWHIST+21, OKINACT~, OKINACT+15, OKINACT+22, TEAMHIS+2, TEAMHIS+11, POSHIS+2, POSHIS+4 , POSHIS+5, POSHIS+7, POSHIS+10 |
| ROOT | OKDEL+8~, OKDEL+10*, OKDEL+11, OKINACT+13~, OKCHGDT+8~, OKCHGDT+10*, OKCHGDT+11 |
| SCBEGIN | NEWHIST+14~ |
| SCCLIN | OKINACT+13~, POSHIS+7*, POSHIS+8 |
| SCDATES | NEWHIST+13~ |
| >> SCDT("BEGIN" | OKINACT+19* |
| >> SCDT("END" | OKINACT+20* |
| >> SCDT("INCL" | OKINACT+21* |
| SCDTS | NEWHIST+14~ |
| SCEND | NEWHIST+14~ |
| SCERR | NEWHIST~, NEWHIST+25, NEWHIST+29, OKDEL~, OKDEL+18, OKINACT~, OKINACT+22, TEAMHIS+2, TEAMHIS+8, TEAMHIS+11 , POSHIS+2, POSHIS+10, OKCHGDT~ |
| SCESEQ | NEWHIST+14~, NEWHIST+25, NEWHIST+29 |
| SCI | OKINACT+13~, TEAMHIS+3*, TEAMHIS+5, TEAMHIS+6, TEAMHIS+7, TEAMHIS+12*, TEAMHIS+13, TEAMHIS+14, POSHIS+3*, POSHIS+4 , POSHIS+5, POSHIS+11*, POSHIS+12, POSHIS+13 |
| SCINCL | NEWHIST+14~ |
| SCLASTDT | NEWHIST+13~, NEWHIST+17*, NEWHIST+18, NEWHIST+19, NEWHIST+20, OKDEL+8~, OKDEL+12*, OKDEL+13, OKDEL+14, OKDEL+15 , OKDEL+18, OKINACT+13~, OKINACT+15*, OKINACT+16, OKINACT+17, OKINACT+18 |
| SCLSEQ | NEWHIST+14~ |
| SCN | NEWHIST+14~ |
| SCNODE | OKDEL+8~, OKDEL+11*, OKDEL+12, OKDEL+13, OKDEL+17, OKDEL+18, OKINACT+13~, OKCHGDT+8~, OKCHGDT+11*, OKCHGDT+12 , OKCHGDT+13, OKCHGDT+16, OKCHGDT+20 |
| SCOK | NEWHIST+13~, NEWHIST+15*, NEWHIST+20*, NEWHIST+23*, NEWHIST+27*, NEWHIST+36*, QTNWHIST, OKDEL+8~, OKDEL+9*, OKDEL+15* , OKDEL+18*, QTOKDEL, OKINACT+13~, OKINACT+14*, OKINACT+18*, OKINACT+24*, OKINACT+27*, TEAMHIS+2*, TEAMHIS+3, TEAMHIS+7* , TEAMHIS+9*, TEAMHIS+11*, TEAMHIS+12, TEAMHIS+13*, TEAMHIS+14*, POSHIS+2*, POSHIS+3, POSHIS+4*, POSHIS+5*, POSHIS+8* , POSHIS+10*, POSHIS+11, POSHIS+12*, POSHIS+13*, QTOKIN, OKCHGDT+8~, OKCHGDT+9*, OKCHGDT+12*, OKCHGDT+19*, OKCHGDT+23* , QTOKCHK |
| SCP | NEWHIST+14~ |
| SCPARM | NEWHIST+14~, NEWHIST+25, NEWHIST+29 |
| SCPARM("EFFEC | TIVE DATE" , NEWHIST+28* |
| SCPARM("NEW E | NTRY" , NEWHIST+24* |
| >> SCPR | POSHIS+3* |
| >> SCPRLST( | POSHIS+3, POSHIS+4, POSHIS+5 |
| >> SCPT | TEAMHIS+12*, POSHIS+11* |
| SCPTLST | OKINACT+13~ |
| SCPTLST( | POSHIS+12 |
| SCSTAT | OKINACT+13~, OKCHGDT+8~, OKCHGDT+13*, OKCHGDT+16, OKCHGDT+20 |
| SCSTATUS | OKDEL+8~, OKDEL+17*, OKDEL+18 |
| SCTP | OKINACT+13~, TEAMHIS+3*, TEAMHIS+7, TEAMHIS+8 |
| SCTPLST | OKINACT+13~ |
| SCTPLST( | TEAMHIS+3, TEAMHIS+5, TEAMHIS+6, TEAMHIS+7 |
| SCX | NEWHIST+13~, NEWHIST+21*, NEWHIST+22, NEWHIST+26, NEWHIST+35, OKDEL+8~, OKINACT+13~, OKINACT+22*, OKINACT+23, OKINACT+24 , OKINACT+25, TEAMHIS+8*, TEAMHIS+9, OKCHGDT+8~, OKCHGDT+16*, OKCHGDT+17, OKCHGDT+18, OKCHGDT+19, OKCHGDT+20*, OKCHGDT+21 , OKCHGDT+22, OKCHGDT+23 |
| STATUS | NEWHIST~, NEWHIST+34, NEWHIST+35, NEWHIST+36 |
| U | NEWHIST+20, NEWHIST+23, NEWHIST+26, NEWHIST+27, NEWHIST+36, OKDEL+12, OKDEL+13, OKDEL+15, OKDEL+17, OKDEL+18 , OKINACT+18, OKINACT+27, TEAMHIS+2, TEAMHIS+3, TEAMHIS+5, TEAMHIS+6, TEAMHIS+7, TEAMHIS+9, TEAMHIS+11, TEAMHIS+12 , TEAMHIS+13, TEAMHIS+14, POSHIS+2, POSHIS+3, POSHIS+4, POSHIS+5, POSHIS+7, POSHIS+8, POSHIS+11, POSHIS+12 , POSHIS+13, OKCHGDT+12, OKCHGDT+13, OKCHGDT+16, OKCHGDT+19, OKCHGDT+20, OKCHGDT+23 |
| X | NEWHIST+13~ |
| Y | NEWHIST+13~, NEWHIST+19*, NEWHIST+20, OKDEL+14*, OKDEL+15, OKINACT+17*, OKINACT+18, OKINACT+26*, OKINACT+27, TEAMHIS+6* , TEAMHIS+7, OKCHGDT+18*, OKCHGDT+19, OKCHGDT+22*, OKCHGDT+23 |