SDES2CREATECLIN ;ALB/MGD/BLB,BWF,TJB - SDES2 CREATE CLINIC MAIN DRIVER ;SEPT 20,2023
Source file <SDES2CREATECLIN.m>
| Package | Total | Call Graph |
|---|---|---|
| Scheduling | 5 | (ADDHASH2CLIN,ADDRESOURCE,SAVEDIAG,SAVEINSTRUCT,SAVEPRIVUSERS,SAVEPROVIDERS)^SDES2CLINUT (BUILDJSON,ERRLOG)^SDES2JSON (CHECKFORDEL,CHECKFORDELMULT)^SDES2UTIL VALCONTEXT^SDES2VALCONTEXT VALCLINIC^SDES2VALCRTCLIN1 |
| VA FileMan | 2 | $$FIND1^DIC UPDATE^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CREATECLINIC(SDRETURN,SDCONTEXT,SDCLINIC) | ; Add a new clinic to the HOSPITAL LOCATION file (#44)
|
|
| CREATEFDAARRAY(FILEDATA,SDFDA) | ;
; Clinic Data - Required Fields |
|
| FILECLINIC(SDERRORS,SDFILEDATA,SDCLINICIEN) | ;
|
|
| ADDMULTIPLES(SDERRORS,SDFILEDATA,SDCLINICIEN) | ; Add multiple fields after Clinic creation
|
|
| ERRLOG(ERNUM,OPTIONALTXT) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | CREATEFDAARRAY+17 |
| UPDATE^DIE | FILECLINIC+2 |
| ADDHASH2CLIN^SDES2CLINUT | CREATECLINIC+29 |
| ADDRESOURCE^SDES2CLINUT | CREATECLINIC+31 |
| SAVEDIAG^SDES2CLINUT | ADDMULTIPLES+2 |
| SAVEINSTRUCT^SDES2CLINUT | ADDMULTIPLES+4 |
| SAVEPRIVUSERS^SDES2CLINUT | ADDMULTIPLES+3 |
| SAVEPROVIDERS^SDES2CLINUT | ADDMULTIPLES+1 |
| BUILDJSON^SDES2JSON | CREATECLINIC+6, CREATECLINIC+9, CREATECLINIC+12, CREATECLINIC+15, CREATECLINIC+18, CREATECLINIC+23, CREATECLINIC+34 |
| ERRLOG^SDES2JSON | FILECLINIC+4, ERRLOG+1 |
| CHECKFORDEL^SDES2UTIL | CREATECLINIC+5, CREATECLINIC+8 |
| CHECKFORDELMULT^SDES2UTIL | CREATECLINIC+11 |
| VALCONTEXT^SDES2VALCONTEXT | CREATECLINIC+14 |
| VALCLINIC^SDES2VALCRTCLIN1 | CREATECLINIC+17 |
| RPC Name | Call Tags |
|---|---|
| SDES2 CREATE CLINIC | CREATECLINIC |
| FileNo | Call Tags |
|---|---|
| ^DIC(40.9 - [#40.9] | FIND1^DIC |
| Name | Line Occurrences |
|---|---|
| ADDMULTIPLES | CREATECLINIC+27 |
| CREATEFDAARRAY | CREATECLINIC+20 |
| FILECLINIC | CREATECLINIC+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> CLINMSG("DIERR" | FILECLINIC+4, FILECLINIC+5! |
| ERNUM | ERRLOG~, ERRLOG+1 |
| FILEDATA | CREATEFDAARRAY~ |
| FILEDATA("ABBREVIATION" | CREATEFDAARRAY+19 |
| FILEDATA("ADM | IN INPATIENT MEDS" , CREATEFDAARRAY+20 |
| FILEDATA("ALL | OWABLE CONSECUTIVE NO-SHOWS" , CREATEFDAARRAY+2 |
| FILEDATA("APP | OINTMENT CANCELLATION LETTER" , CREATEFDAARRAY+21 |
| FILEDATA("ASK | CHECK IN/OUT" , CREATEFDAARRAY+22 |
| FILEDATA("CLI | NIC CANCELLATION LETTER" , CREATEFDAARRAY+23 |
| FILEDATA("CRE | DIT AMIS" , CREATEFDAARRAY+24 |
| FILEDATA("DEF | AULT APPOINTMENT TYPE" , CREATEFDAARRAY+25, AULT TO PC PRACTITIONER" , CREATEFDAARRAY+26 |
| FILEDATA("DIR | ECT PATIENT SCHEDULING" , CREATEFDAARRAY+3 |
| FILEDATA("DIS | PLAY APPOINTMENTS" , CREATEFDAARRAY+4, PLAY INCREMENTS PER HOUR" , CREATEFDAARRAY+5 |
| FILEDATA("DIVISION" | CREATEFDAARRAY+6 |
| FILEDATA("E-C | HECKIN ALLOWED" , CREATEFDAARRAY+7 |
| FILEDATA("HOU | R CLINIC DISPLAY BEGINS" , CREATEFDAARRAY+27 |
| FILEDATA("LEN | GTH OF APPOINTMENT" , CREATEFDAARRAY+8 |
| FILEDATA("MAX | DAYS FUTURE BOOKING" , CREATEFDAARRAY+9 |
| FILEDATA("MEE | TS AT FACILITY" , CREATEFDAARRAY+28 |
| FILEDATA("NAME" | CREATEFDAARRAY+10 |
| FILEDATA("NO- | SHOW LETTER" , CREATEFDAARRAY+29 |
| FILEDATA("NON-COUNT" | CREATEFDAARRAY+11 |
| FILEDATA("OVE | RBOOKS/DAY MAX" , CREATEFDAARRAY+12 |
| FILEDATA("PAT | IENT FRIENDLY NAME" , CREATEFDAARRAY+30 |
| FILEDATA("PBSPID" | CREATEFDAARRAY+31 |
| FILEDATA("PHY | SICAL LOCATION" , CREATEFDAARRAY+32 |
| FILEDATA("PRE | -APPOINTMENT LETTER" , CREATEFDAARRAY+33, -CHECKIN ALLOWED" , CREATEFDAARRAY+13 |
| FILEDATA("PRI | MARY AMIS" , CREATEFDAARRAY+14, NCIPAL CLINIC" , CREATEFDAARRAY+34 |
| FILEDATA("PRO | HIBIT ACCESS TO CLINIC" , CREATEFDAARRAY+35 |
| FILEDATA("REQ | UIRE ACTION PROFILES" , CREATEFDAARRAY+15, UIRE X-RAY" , CREATEFDAARRAY+36 |
| FILEDATA("SCH | EDULE ON HOLIDAYS" , CREATEFDAARRAY+37 |
| FILEDATA("SERVICE" | CREATEFDAARRAY+16 |
| FILEDATA("TEL | EPHONE EXTENSION" , CREATEFDAARRAY+39 |
| FILEDATA("TELEPHONE" | CREATEFDAARRAY+38 |
| FILEDATA("VAR | IABLE APPOINTMENT LENGTH" , CREATEFDAARRAY+40 |
| FILEDATA("VET | ERAN SELF-CANCEL" , CREATEFDAARRAY+42 |
| FILEDATA("WOR | KLOAD VALIDATION" , CREATEFDAARRAY+41 |
| OPTIONALTXT | ERRLOG~, ERRLOG+1 |
| SDCLINIC | CREATECLINIC~, CREATECLINIC+8, CREATECLINIC+11, CREATECLINIC+17, ERRLOG+1 |
| SDCLINIC("DIAGNOSIS" | ADDMULTIPLES+2 |
| SDCLINIC("PRI | VILEGED USER" , ADDMULTIPLES+3 |
| SDCLINIC("PROVIDER" | ADDMULTIPLES+1 |
| SDCLINIC("SPE | CIAL INSTRUCTIONS" , ADDMULTIPLES+4 |
| SDCLINICIEN | CREATECLINIC+2~, CREATECLINIC+22, CREATECLINIC+25, CREATECLINIC+27, CREATECLINIC+29, CREATECLINIC+31, CREATECLINIC+33, FILECLINIC~, FILECLINIC+6*, ADDMULTIPLES~ , ADDMULTIPLES+1, ADDMULTIPLES+2, ADDMULTIPLES+3, ADDMULTIPLES+4 |
| SDCLINMSG | FILECLINIC+1~, FILECLINIC+3 |
| SDCLINMSG("DIERR" | FILECLINIC+4 |
| SDCLINRET | FILECLINIC+1~ |
| SDCLINRET(1 | FILECLINIC+6 |
| SDCLINRETURN | CREATECLINIC+2~, CREATECLINIC+34 |
| SDCLINRETURN("CreateClinic" | CREATECLINIC+33* |
| SDCNT | FILECLINIC+1~ |
| SDCONTEXT | CREATECLINIC~, CREATECLINIC+5, CREATECLINIC+14 |
| SDERRNUM | FILECLINIC+1~, FILECLINIC+4* |
| SDERRORS | CREATECLINIC+2~, CREATECLINIC+5, CREATECLINIC+6, CREATECLINIC+8, CREATECLINIC+9, CREATECLINIC+11, CREATECLINIC+12, CREATECLINIC+14, CREATECLINIC+15, CREATECLINIC+17 , CREATECLINIC+18, CREATECLINIC+22, CREATECLINIC+23, CREATECLINIC+27, FILECLINIC~, FILECLINIC+4, ADDMULTIPLES~, ADDMULTIPLES+1, ADDMULTIPLES+2, ADDMULTIPLES+3 , ADDMULTIPLES+4 |
| SDFDA | CREATECLINIC+2~, CREATECLINIC+20, CREATECLINIC+22, CREATEFDAARRAY~ |
| SDFDA(44 | CREATEFDAARRAY+2*, CREATEFDAARRAY+3*, CREATEFDAARRAY+4*, CREATEFDAARRAY+5*, CREATEFDAARRAY+6*, CREATEFDAARRAY+7*, CREATEFDAARRAY+8*, CREATEFDAARRAY+9*, CREATEFDAARRAY+10*, CREATEFDAARRAY+11* , CREATEFDAARRAY+12*, CREATEFDAARRAY+13*, CREATEFDAARRAY+14*, CREATEFDAARRAY+15*, CREATEFDAARRAY+16*, CREATEFDAARRAY+17*, CREATEFDAARRAY+19*, CREATEFDAARRAY+20*, CREATEFDAARRAY+21*, CREATEFDAARRAY+22* , CREATEFDAARRAY+23*, CREATEFDAARRAY+24*, CREATEFDAARRAY+25*, CREATEFDAARRAY+26*, CREATEFDAARRAY+27*, CREATEFDAARRAY+28*, CREATEFDAARRAY+29*, CREATEFDAARRAY+30*, CREATEFDAARRAY+31*, CREATEFDAARRAY+32* , CREATEFDAARRAY+33*, CREATEFDAARRAY+34*, CREATEFDAARRAY+35*, CREATEFDAARRAY+36*, CREATEFDAARRAY+37*, CREATEFDAARRAY+38*, CREATEFDAARRAY+39*, CREATEFDAARRAY+40*, CREATEFDAARRAY+41*, CREATEFDAARRAY+42* , CREATEFDAARRAY+43* |
| SDFILEDATA | CREATECLINIC+2~, CREATECLINIC+17, CREATECLINIC+20, CREATECLINIC+27, FILECLINIC~, ADDMULTIPLES~, ADDMULTIPLES+1, ADDMULTIPLES+2, ADDMULTIPLES+3, ADDMULTIPLES+4 |
| SDJSONERRORS | CREATECLINIC+2~, CREATECLINIC+6*, CREATECLINIC+9*, CREATECLINIC+12*, CREATECLINIC+15*, CREATECLINIC+18*, CREATECLINIC+23* |
| SDJSONERRORS("CreateClinic" | CREATECLINIC+6*, CREATECLINIC+9*, CREATECLINIC+12*, CREATECLINIC+15*, CREATECLINIC+18* |
| SDRESULTS | CREATECLINIC+2~ |
| SDRETURN | CREATECLINIC~, CREATECLINIC+6, CREATECLINIC+9, CREATECLINIC+12, CREATECLINIC+15, CREATECLINIC+18, CREATECLINIC+23, CREATECLINIC+34 |
